Hallo,
ich habe nun schon seit knapp 2 Tagen ein Problem was ich nicht zu loesen schaffe.
Ich will aus einer simpelen Interbase Datenbank etwas aktuallisieren und es klappt nicht.
Das Select funktioniert so:
Delphi-Quellcode:
s_sql := 'SELECT ID, VORNAME, NACHNAME, KUERZEL, ADMINISTRATOR FROM MITARBEITER WHERE KUERZEL = '+''''+Environment.UserName+'''';
cmd := BdpCommand.Create(s_sql, DBConnection2);
DBConnection2.Open;
trsa := DBConnection2.BeginTransaction;
datred := cmd.ExecuteReader;
while datred.read do
begin
lbl_id.Text := datred['ID'].ToString;
lbl_vorname.Text := datred['VORNAME'].ToString;
lbl_nachname.Text := datred['NACHNAME'].ToString;
lbl_kuerzel.Text := datred['KUERZEL'].ToString;
lbl_admin.Text := datred['ADMINISTRATOR'].ToString;
end;
datred.Close;
trsa.Commit;
datred.Free;
DBConnection2.Close;
aber das UPDATEN klappt nicht...hab das so ausprobiert:
Delphi-Quellcode:
s_sql :='UPDATE MITARBEITER SET '+
'ID = '+txt_id.Text+', '+
'VORNAME = '+txt_vorname.Text+', '+
'NACHNAME = '+txt_nachname.Text+', '+
'KUERZEL = '+txt_kuerzel.Text+', '+
'ADMINISTRATOR = '+txt_admin.Text+' '+
'WHERE KUERZEL = '+Environment.UserName;
cmd := BdpCommand.Create(s_sql, DBConnection2);
DBConnection2.Open;
trsa := DBConnection2.BeginTransaction;
cmd.Transaction:=trsa;
trsa.Commit;
DBConnection2.Close;
cmd.Free
Die Vars sind so deklariert:
Delphi-Quellcode:
s_sql: string;
cmd: BdpCommand;
trsa: BdpTransaction;
datred: BdpDataReader;
ich hoffe mir kann jemand helfen!