TIBSQL ExecQuery

[ThomasWB]

Hallo,

ich verwende TIBSQL, um eien Anzahl von Befehlen auszuführen:

• INSERT ...
• UPDATE ...
• DELETE ...

]
Ein IBTransaction.Commit möchte ich aber nur durchführen, wenn alle SQL-Befehle fehlerfrei durchlaufen wurden. Ansonsnten soll ein Rollback durchgeführt werden. Wie kann ich dies feststellen, da meines Wissens ExecQuery nichts zurückgibt.

[BerndS]

Bei einem Fehler wird ja eine Exception ausgelöst.
Ich mache das etwas so:

Delphi-Quellcode:

DB.Starttransaction;
try
  ...
  Query.ExecSql;
  DB.Commit;
except
  DB.Rollback;
  raise;
end;

[ThomasWB]

Hallo Bernd,

super. Genau das habe ich gesucht. Es funktioniert genau nach meinen Vorstellungen-