Обновление хранимых процедур в Delphi XE6: использование TAdoQuery и SQL ALTER PROCEDURE

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

Прежде чем приступить к написанию статьи, стоит уточнить, что контекст вопроса связан с миграцией проекта, созданного в среде Delphi 5, на Delphi XE6, с использованием того же сервера InterBase и провайдера ADO. В проекте активно используются хранимые процедуры (SP), и для их создания применяется компонент TAdoQuery. В процессе миграции возникла проблема с обновлением хранимых процедур, которая была успешно решена. В статье мы рассмотрим, как использовать TAdoQuery для обновления процедур InterBase с помощью SQL-команды ALTER PROCEDURE.

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

Проблема миграции

При миграции проекта, использующего InterBase 2009 Server и IBProvider, на Delphi XE6, сохраняется использование того же сервера и провайдера ADO. Проект активно использует хранимые процедуры, что требует их корректного создания и обновления в новой среде разработки.

Подход к созданию хранимых процедур

Создание базы данных в проекте происходит программно, с использованием API InterBase. После создания таблиц, исключений и объявления нескольких пользовательских функций (UDFs) с помощью TAdoQuery, разработчики создают хранимые процедуры в два этапа.

На первом этапе с помощью SQL-команды CREATE PROCEDURE создаются все процедуры с тривиальными телами. Например:

PROCEDURE "SP_WITH_PARAMETERS"("IN_PARAM" VARCHAR(5))
RETURNS ("OUT_PARAM" VARCHAR(5))
AS
BEGIN
  EXIT;   -- тривиальное тело
END;

На втором этапе с помощью ALTER PROCEDURE каждой процедуре присваивается ее собственное тело. Например:

PROCEDURE "SP_WITH_PARAMETERS"("IN_PARAM" VARCHAR(5))
RETURNS ("OUT_PARAM" VARCHAR(5))
AS
BEGIN
  SELECT MAX(C_CODE)
  FROM CODES
  WHERE C_CODE < :IN_PARAM
  INTO :OUT_PARAM;
END;

Данный подход позволяет преодолеть проблему взаимозависимости процедур.

Условности Delphi 5

В Delphi 5 для создания процедур использовалась некая "неприятная" конвенция: в свойстве TAdoQuery.SQL использовались двойные двоеточия для обозначения параметров процедур, которые упоминаются в SQL-командах внутри тела процедуры. В Delphi 5 этот подход работал, несмотря на его неудобства.

Проблема в Delphi XE6

Переход на Delphi XE6 выявил проблему: InterBase не принимает двойные двоеточия, которые, вероятно, обрабатывались предварительно в Delphi 5. Использование простых двоеточий в TAdoQuery.SQL также не приводит к желаемому результату. В результате возникает исключение:

EOleException
ErrorCode=-2146824580 ($800A0E7C)
Msg=<"Parameter object is improperly defined. Inconsistent or incomplete information was provided">

Решение проблемы

Для обновления процедур с использованием TAdoQuery и SQL-команды ALTER PROCEDURE необходимо убедиться, что свойство ParamCheck компонента TAdoQuery установлено в False до присваивания SQL-команды. Это предотвратит автоматическое создание списка параметров, что позволит корректно обновить тело процедуры.

Пример кода на Object Pascal (Delphi)

procedure UpdateStoredProcedure;
var
  Query: TAdoQuery;
begin
  Query := TAdoQuery.Create(nil);
  try
    Query.Connection := YourAdoConnection; // Подключение к базе данных
    Query.ParamCheck := False; // Установка ParamCheck в False перед присвоением SQL
    Query.SQL.Add('ALTER PROCEDURE "SP_WITH_PARAMETERS"(''IN_PARAM'' VARCHAR(5))'');
    Query.SQL.Add('RETURNS ("OUT_PARAM" VARCHAR(5))'');
    Query.SQL.Add('AS'');
    Query.SQL.Add('BEGIN'');
    Query.SQL.Add('  SELECT MAX(C_CODE) FROM CODES WHERE C_CODE < :IN_PARAM INTO :OUT_PARAM;');
    Query.SQL.Add('END;');

    Query.ExecSQL; // Выполнение команды обновления процедуры
  finally
    Query.Free;
  end;
end;

Заключение

Переход на новую версию среды разработки может потребовать доработки существующего кода. Важно внимательно следить за изменениями в поведении компонентов и провайдеров данных. В данном случае, установка свойства ParamCheck в False до присваивания SQL-команды позволяет обновить хранимые процедуры в Delphi XE6, используя TAdoQuery и SQL-команду ALTER PROCEDURE.

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

Обновление хранимых процедур в проекте, мигрированном с Delphi 5 на Delphi XE6, требует особого подхода и решения проблемы с двоеточиями в параметрах, что достигается отключением автоматической проверки параметров в компоненте TAdoQuery.

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

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

:: Главная :: ADO ::