TIBSQL ExecQuery

[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;