Zeos update

[jangbu]

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;

[shmia]

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

[mkinzler]

Hast du mal geschaut ob Recordcount auch 1 ist?

[jangbu]

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