Delphi-PRAXiS - Zeos update

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Datenbanken (https://www.delphipraxis.net/15-datenbanken/)

- - Zeos update (https://www.delphipraxis.net/167389-zeos-update.html)

Hallo mal wieder ZEOS,

gibt es irgend einen Grund warum folgender append funktioniert update jedoch nicht? Ich bekomme keinen Fehler zurück, das Feld bleibt einfach unverändert, der update tut nix! Mit ADO geht das.

Delphi-Quellcode:

			ZConnection2.Connected := true;

ZQuery2.Connection := ZConnection2;

ZQuery2.Close;

ZQuery2.SQL.Clear;

ZQuery2.SQL.Text := 'select * from my.test';

try

  ZQuery2.Open;

  ZQuery2.Append;

  ZQuery2.FieldByName('field1').AsInteger := 10;

  ZQuery2.FieldByName('timestamp').AsDateTime := now;

  ZQuery2.Post;

except

  ShowMessage('append Fehler!');

end;

ZConnection2.Connected := true;

ZQuery2.Connection := ZConnection2;

ZQuery2.Close;

ZQuery2.SQL.Clear;

ZQuery2.SQL.Text := 'select * from my.test where field1 = ''1''';

try

  ZQuery2.Open;

  if ZQuery2.REcordCount = 1 then

  begin

    ZQuery2.Edit;

    ZQuery2.FieldByName('field1').AsInteger := 20;

    ZQuery2.Post;

  end;

except

  ShowMessage('update Fehler!');

end;

Ganz einfach:
der Tomaten-Auf-Den-Augen-Effekt
hat mal wieder zugeschlagen.

Delphi-Quellcode:

			ZQuery2.FieldByName('field1').AsInteger := 10; // Zehn

// und später

ZQuery2.SQL.Text := 'select * from my.test where field1 = ''1''';  // Eins

Hast du mal geschaut ob Recordcount auch 1 ist?

Ja, habe den Code mit dem Debugger verfolgt. Sehe somit auch wie das DB-Feld beschrieben und Post ausgeführt wird. Es gibt keine Exception und trotzdem bleiben die Daten unverändert?

jangbu