UPDATE führt zu Exception

[Balu der Bär]

Moin,

ich möchte einen simplen Eintrag in meiner DB ändern.

Delphi-Quellcode:

procedure TDatabase.UpdateValue(AField, AID, AValue: String);
var
  InsertDataQuery:  TZQuery;
begin
  InsertDataQuery := TZQuery.Create(nil);
    with InsertDataQuery do
      begin
        Connection := fConnection;
        ParamCheck := true;
        SQL.Text :=Format('UPDATE KUNDE SET %s = ''%s'' WHERE ID = %s)',[AField, AValue, AID]);
        ExecSQL;
      end;
      InsertDataQuery.Free;
end;

Mit der "Übersetzung" scheint alles zu klappen, trotzdem bekomme ich bei jedem Aufruf eine Exception:

Zitat:

Im Projekt Project1.exe ist eine Exception der Klasse EZSQLException mit der Meldung 'SQL Error: Dynamic SQL Error SQL error code = -104 Token unknown - line 1, column 47 ). Error Code: -104. Invalid token The SQL: UPDATE KUNDE SET K_NAME = 'Peter' WHERE ID = 3); ' aufgetreten.

Ich habe es auch schon mit "" statt '' versucht, Resultat bleibt dasselbe. Die Tabelle heißt KUNDE und K_NAME existiert auch. In dem Feld steht bereits ein Wert drinnen.

Hat jemand eine Idee was da los ist?

Danke