Как сделать откат внутри триггера

Delphi , Базы данных , SQL

Внутри триггера нельзя управлять транзакциями, поэтому генерируешь там исключение а откат транзакции делаешь в приложении, пославшем запрос. Естественно exception должен предварительно создан

SET TERM !!;

CREATE TRIGGER " DELETE_INV"  FOR " TINV"
    ACTIVE BEFORE DELETE
    POSITION 10
    AS
    BEGIN
        IF (EXISTS (SELECT tOst.Id FROM tOst
                    WHERE tOst.Id = tInv.Id))
        THEN
            EXCEPTION EST_OSTATOK;
    END !!

SET TERM ;!!


DBase.StartTransaction;
try
  Query.ExecSQL;
  DBase.Commit;
except
  DBase.Rollback;
  raise;    // Для последующей обработки
end;

Here's the translation of the text into Russian:

Классическая проблема "как откатить транзакцию внутри триггера"

Вы упомянули, что невозможно контролировать транзакции напрямую внутри триггера, поэтому мы должны найти другой способ достичь этого.

В вашем коде вы пытаетесь вызвать исключение (EST_OSTATOK) внутри триггера и затем обрабатывать его на уровне приложения. Этот подход не работает потому что исключения, вызванные внутри триггеров, не передаются на уровень приложения.

Вместо этого можно использовать другой механизм для сигнализации о том, что операция удаления должна быть откатана. Один из способов сделать это - изменить флаг или счетчик, который мониторится приложением. Когда триггер обнаруживает, что удаление вызывает проблему (т.е., исключение EST_OSTATOK), он устанавливает этот флаг или увеличивает счетчик.

Приложение затем может проверить этот флаг или счетчик перед коммитом транзакции. Если оно находит, что флаг установлен или счетчик был увеличен, оно должно откатать транзакцию.

Вот обновленная версия вашего кода, которая демонстрирует этот подход:

SET TERM   !!;
CREATE TRIGGER  "DELETE_INV" FOR  "TINV"
    ACTIVE BEFORE DELETE
    POSITION 10
AS
BEGIN
    IF (EXISTS (SELECT tOst.Id FROM tOst
                 WHERE tOst.Id = tInv.Id))
    THEN
         -- Установить флаг или увеличить счетчик для указания, что удаление должно быть откатано
        UPDATE TAPP SET RollbackFlag = 1;
    END
!!;
SET TERM ;!!

DBase.StartTransaction;
try:
    Query.ExecSQL;
    if DBase.RollbackFlag:   # Проверить, установлен ли флаг или был увеличен счетчик
        DBase.Rollback;   # Откатать транзакцию
        raise;   # Перезвонить исключение для обработки в приложении
    else:
        DBase.Commit;
except:
     # Обработать любые другие исключения, которые могут возникнуть во время выполнения запроса
    pass;
end;

Используя этот подход, вы можете эффективно "сигнализировать" изнутри триггера о том, что транзакция должна быть откатана, а затем обрабатывать откат в приложении.

В статье описывается как создать триггер в базе данных, который генерирует исключение при удалении записи из таблицы и позволяет выполнить откат транзакции на стороне приложения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: SQL ::