Как обработать исключение при нарушении многострочного уникального индекса в Delphi при использовании TADOQuery для вызова хранимой процедуры в SQL Server?

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

В этой статье мы рассмотрим проблему обработки исключений при нарушении многострочного уникального индекса в Delphi при использовании компонента TADOQuery для вызова хранимой процедуры в SQL Server. Мы разберем причины появления проблемы и предложим решения, включая использование директивы SET NOCOUNT ON в хранимой процедуре и обработку всех результатов, возвращаемых хранимой процедурой.

Введение

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

В этой статье мы рассмотрим проблему на примере использования компонента TADOQuery в Delphi 10.1 Berlin для вызова хранимой процедуры в SQL Server 2019 Developer Edition. Мы разберем код, который вызывает хранимую процедуру и обрабатывает исключения, а также рассмотрим хранимую процедуру на стороне SQL Server.

Пример кода в Delphi

try
  DM.OmegaCA_SS.BeginTrans;
  DM.Exec_SQL.Close;
  DM.Exec_SQL.SQL.Clear;

  Exec_SQL_Str := 'execute OMEGACA.P_ACC_POL_RULE_INS '
  ... params ... ;

  DM.Exec_SQL.SQL.Add(Exec_SQL_Str);

  DM.Exec_SQL.ExecSQL;
  DM.OmegaCA_SS.CommitTrans;    
except
  on E:EAdoError do
  begin
    DM.OmegaCA_SS.RollbackTrans;
    Messagedlg_alb(E.Message, 'Error', mtError, [mbYes], 0);
    statusbar1.SimpleText := '';
    Exit;
  end;

  on E:EDatabaseError do
  begin
    DM.OmegaCA_SS.RollbackTrans;
    Messagedlg_alb(E.Message, 'Error', mtError, [mbYes], 0);
    statusbar1.SimpleText := '';
    Exit;
  end;

  on E:Exception do
  begin
    DM.OmegaCA_SS.RollbackTrans;
    Messagedlg_alb(E.Message, 'Error', mtError, [mbYes], 0);
    statusbar1.SimpleText := '';
    Exit;
  end;
end;

Пример хранимой процедуры на SQL Server

CREATE PROCEDURE [OMEGACA].[P_ACC_POL_RULE_INS] 
  (@p_policy_id int,
   @p_rule_name nvarchar(100),
   @p_rule_desc nvarchar(1000),
   @p_cond_eval int,
   @p_status_id int)
AS
BEGIN
     INSERT INTO OMEGACA.ACC_POL_RULE (policy_id, 
                                       rule_name, rule_desc, 
                                       cond_eval, status_id)
     VALUES (@p_policy_id,
             @p_rule_name, @p_rule_desc,
             @p_cond_eval, @p_status_id);
END;

Проблема

Если пользователь вводит значения, которые нарушают уникальный индекс в таблице ACC_POL_RULE, исключение в коде Delphi не перехватывается. Это происходит несмотря на то, что обработка ошибок в коде Delphi настроена правильно.

Решение

Для решения этой проблемы можно использовать директиву SET NOCOUNT ON в начале хранимой процедуры. Эта директива предотвращает отправку сообщений о количестве строк, что позволяет клиентскому коду корректно обрабатывать ошибки.

CREATE PROCEDURE [OMEGACA].[P_ACC_POL_RULE_INS] 
  (@p_policy_id int,
   @p_rule_name nvarchar(100),
   @p_rule_desc nvarchar(1000),
   @p_cond_eval int,
   @p_status_id int)
AS
BEGIN
  SET NOCOUNT ON;
     INSERT INTO OMEGACA.ACC_POL_RULE (policy_id, 
                                       rule_name, rule_desc, 
                                       cond_eval, status_id)
     VALUES (@p_policy_id,
             @p_rule_name, @p_rule_desc,
             @p_cond_eval, @p_status_id);
END;

Альтернативное решение

Если использование SET NOCOUNT ON не является приемлемым, можно обработать все результаты, возвращаемые хранимой процедурой. Это можно сделать, вызывая метод NextRecordset после выполнения хранимой процедуры.

try
  DM.OmegaCA_SS.BeginTrans;
  DM.Exec_SQL.Close;
  DM.Exec_SQL.SQL.Clear;

  Exec_SQL_Str := 'execute OMEGACA.P_ACC_POL_RULE_INS '
  ... params ... ;

  DM.Exec_SQL.SQL.Add(Exec_SQL_Str);

  DM.Exec_SQL.ExecSQL;
  while DM.Exec_SQL.NextRecordset do;
  DM.OmegaCA_SS.CommitTrans;    
except
  on E:EAdoError do
  begin
    DM.OmegaCA_SS.RollbackTrans;
    Messagedlg_alb(E.Message, 'Error', mtError, [mbYes], 0);
    statusbar1.SimpleText := '';
    Exit;
  end;

  on E:EDatabaseError do
  begin
    DM.OmegaCA_SS.RollbackTrans;
    Messagedlg_alb(E.Message, 'Error', mtError, [mbYes], 0);
    statusbar1.SimpleText := '';
    Exit;
  end;

  on E:Exception do
  begin
    DM.OmegaCA_SS.RollbackTrans;
    Messagedlg_alb(E.Message, 'Error', mtError, [mbYes], 0);
    statusbar1.SimpleText := '';
    Exit;
  end;
end;

Заключение

В этой статье мы рассмотрели проблему обработки исключений при нарушении многострочного уникального индекса в Delphi при использовании TADOQuery для вызова хранимой процедуры в SQL Server. Мы разобрали причины появления проблемы и предложили решения, включая использование директивы SET NOCOUNT ON в хранимой процедуре и обработку всех результатов, возвращаемых хранимой процедурой. Эти решения помогут корректно обрабатывать ошибки в приложении и улучшить его надежность.

Создано по материалам из источника по ссылке.

Статья рассматривает проблему обработки исключений при нарушении уникального индекса в Delphi при вызове хранимой процедуры SQL Server через TADOQuery и предлагает решения, включая использование SET NOCOUNT ON и обработку всех результатов.

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

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

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