Zitat von
Ati:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var nr:string;
begin
nr:=dbgrid1.DataSource.DataSet.FieldByName('ID').AsString;
showmessage(nr);
qrmain.SQL.text:='UPDATE Korrekturen SET Status=''Erledigt'' where ID=:nr';
qrmain.ExecSQL;
trmain.Commit;
end;
Das mit dem Showmessage unten ist nur ein Test, ob er mir auch die richtige ID gibt. So wie ich mich kenne habe ich das ganze wieder voll falsch angefangen..stimmt´s?
Du muss Deinem
SQL auch einen Wert zuweisen oder den entsprechenden Parameter füllen
qrmain.SQL.text:='UPDATE Korrekturen SET Status=''Erledigt'' where ID=' + nr;
oder
Delphi-Quellcode:
qrmain.params.parambyname('nr').AsString := nr;
qrmain.SQL.text:='UPDATE Korrekturen SET Status=''Erledigt'' where ID=:nr';