Update funktioniert nicht

[Ati]

Moin,

leider haben alle Vorschläge bisher zu Fehlermeldung (EDatabaseError) geführt. Hier mal der aktuelle Code:

Delphi-Quellcode:

procedure TForm1.btnanzeigeClick(Sender: TObject);
begin
  if dbmain.Connected=true then
  begin
    dbmain.Connected:=false;
  end;
  dbmain.Connected:=true;
  qrmain.SQL.Text:='SELECT ID,Lager,Artikel,Menge_soll,Menge_Ist,Kommentar,Erfasser,Status,Datum,Uhrzeit From Korrekturen;';
  qrmain.Open;
  qrmain.Refresh;
end;

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'' = ' + nr +';' ;
 qrmain.ExecSQL;
 trmain.Commit;
end;