Update funktioniert nicht

[Michael Habbe]

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';