UPDATE führt zu Exception

[DeddyH]

Im anderen Thread wurden doch bereits Parameter angesprochen.

Delphi-Quellcode:

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

Allerdings ist es wahrscheinlich flexibler, AValue nicht als String, sondern als Variant zu deklarieren.

[edit] Exception-Handling hinzugefügt [/edit]