Delphi Firebird Insert Transaction Пример

Delphi часто используется совместно с СУБД Firebird, и для многих задач требуется работа с транзакциями. Рассмотрим пример вставки данных в таблицу с использованием транзакции.

try
 MyTransaction.StartTransaction;
 MyQuery.SQL.Clear;
 MyQuery.SQL.Add('INSERT INTO MyTable (Field1, Field2) VALUES (:param1, :param2)');
 MyQuery.ParamByName('param1').AsInteger := MyFieldValue1;
 MyQuery.ParamByName('param2').AsString := MyFieldValue2;
 MyQuery.ExecSQL;
 MyTransaction.Commit;
except
 MyTransaction.Rollback;
end;

В данном примере создается объект транзакции MyTransaction, который затем стартует с помощью метода StartTransaction. Затем создается объект запроса MyQuery, в который передается SQL-запрос на вставку данных. Значения параметров :param1 и :param2 заменяются на значения MyFieldValue1 и MyFieldValue2 соответственно. Затем выполняется запрос с помощью метода ExecSQL. Если запрос выполнен успешно, транзакция коммитится методом Commit. Если возникает ошибка, то выполняется откат транзакции методом Rollback.