Понимание и устранение ошибок хранимой процедуры SQL Server при выполнении из Delphi и SQL Server Management Studio

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

При работе с базами данных на языке SQL Server хранимая процедура (Stored Procedure) является одним из ключевых механизмов автоматизации и оптимизации запросов. Однако, когда дело доходит до вызова таких процедур из приложения на Delphi, у разработчика могут возникнуть неожиданные проблемы, например, отсутствие ошибок, которые должны были быть возвращены процедурой. В этом материале мы рассмотрим типичную задачу, с которой сталкивается специалист, работающий в среде Delphi и Pascal, и постараемся предоставить исчерпывающее решение.

Описание проблемы

Пользователь столкнулся с проблемой при вызове хранимой процедуры spTest из Delphi-программы. Процедура срабатывает на ошибку, когда её вызывают напрямую из SQL Server Management Studio, но при вызове через Delphi-приложение ошибка не возникает, и не перехватывается обработчиком исключений в Delphi.

CREATE PROCEDURE [dbo].[spTest]
    @Pozitii varchar(max),
    @NrZile int
AS
    set @Pozitii = SUBSTRING(@Pozitii,0,LEN(@Pozitii))
    CREATE TABLE #Pozitii (part varchar(20) null)
    INSERT INTO #Pozitii(part)
    SELECT part
    FROM dbo.SDF_SplitString(@Pozitii,',')
    if exists (SELECT * FROM #Pozitii)
        RAISERROR('asdf',16,-1)
    else
        RAISERROR('else',16,-1)

Вызов хранимой процедуры в SQL Server Management Studio выглядит следующим образом и возвращает ожидаемое сообщение об ошибке:

exec [spTest] '11,12,13,',1

Возвращается сообщение об ошибке с кодом asdf.

Теперь, если выполнить ту же самую процедуру через Delphi-программу, используя объект ADO, то ошибки не возникает:

procedure TframePlanificatorPozitieComanda.Button5Click(Sender: TObject);
begin
    try
        with dm.spTest do
        begin
            Close;
            Parameters.ParambyName('@Pozitii').Value := '11,12,13,';
            Parameters.ParambyName('@NrZile').Value := 1;
            ExecProc;
        end;
    except
        on E: Exception do
        begin
            ShowMessage(E.Message);
        end;
    end;
end;

Подтвержденный ответ

Проблема может быть связана с тем, что ошибка хранится в дополнительном наборе результатов, который игнорируется Delphi. Попробуйте добавить в начало хранимой процедуры команду:

SET NOCOUNT ON;

Это позволит отключить возвращение количества затронутых строк, что может скрывать ошибки.

Альтернативный ответ

Возможно, ошибка не обрабатывается в Delphi, так как процедура уже выполнена на стороне сервера. Чтобы проверить успешность выполнения процедуры, можно проверить первый элемент коллекции параметров TAdoStoredProc:

showmessage(vartostr(self.ADOStoredProc1.Parameters[0].Value))

Если результат не равен 0, это может указывать на ошибку.

Также стоит отметить, что в SQL Server 2014, при использовании стандартного кода, ошибка должна корректно обрабатываться и возвращаться клиентскому приложению, так что возможна проблема в логике обработки исключений в Delphi-программе.

Выводы

При работе с хранимой процедурой SQL Server в Delphi важно правильно обрабатывать возвращаемые процедурой сообщения об ошибках. Для этого можно использовать коллекцию ошибок TAdoConnection для определения наличия ошибок и получения дополнительной информации о них. Необходимо также убедиться, что настройки отладчика Delphi настроены для перехвата ошибок языка.

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

При вызове хранимой процедуры SQL Server из Delphi и SQL Server Management Studio возникла проблема с отсутствием обработки ошибок, которая проявляется только в Delphi, и требуется найти способ корректного перехвата и обработки этих ошибок.

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

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

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