Delphi-PRAXiS - TIBSQL ExecQuery

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

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

- - TIBSQL ExecQuery (https://www.delphipraxis.net/201610-tibsql-execquery.html)

ThomasWB

7. Aug 2019 09:15

Datenbank: Firebird • Version: xxx • Zugriff über: Delphi

TIBSQL ExecQuery

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

7. Aug 2019 09:21

AW: TIBSQL ExecQuery

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

7. Aug 2019 11:00

AW: TIBSQL ExecQuery

Hallo Bernd,

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

Alle Zeitangaben in WEZ +1. Es ist jetzt 00:30 Uhr.