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;