Решение проблем с процедурами в Delphi: использование операторов `GO` и `USE` для многобазового выполнения скриптов

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

Решение проблем с процедурами в Delphi: использование операторов GO и USE для многобазового выполнения скриптов

При работе с базами данных в среде Delphi разработчики часто сталкиваются с необходимостью создания и изменения хранимых процедур. Одной из распространенных задач является выполнение скриптов, содержащих несколько операторов, в том числе CREATE PROCEDURE и GO, а также переключение между базами данных с использованием оператора USE. В данной статье мы рассмотрим, как решить подобные задачи, используя примеры кода на Object Pascal (Delphi).

Проблема с использованием GO и USE

Пользователь столкнулся с проблемой при попытке создания процедуры в SQL Server из приложения на Delphi. Проблема заключалась в том, что скрипт, содержащий оператор GO, возвращал ошибку "Incorrect syntax near 'GO'". Также было замечено, что без использования оператора USE возникала ошибка "CREATE/ALTER PROCEDURE must be the first statement in a query batch". Это было вызвано необходимостью выполнения одного и того же скрипта в нескольких базах данных на одном сервере.

Пример кода для чтения скрипта из файла

Вот пример кода, который пытается выполнить скрипт из файла, считывая его построчно:

procedure TfrmMainApp.actRulezaScriptExecute(Sender: TObject);
var
  j: Int32;
  sql: string;
  commandFile: TextFile;
  Linie: string;
  affRows: Int32;
  err: string;
begin
  // ...
  for j := 0 to filesToExecute.Count - 1 do
  begin
    sql := 'USE ' + DBName + #10#13;
    sql := sql + '  GO ' + #10#13;
    AssignFile(commandFile, filesToExecute[j]);
    Reset(commandFile);
    while not EOF(commandFile) do
    begin
      Readln(commandFile, Linie);
      sql := sql + #10#13 + Linie;
    end;
    // ...
  end;
  // ...
end;

function TdmMainScriptRun.ExecuteCommand(sqlCommand: string; var err: string; var affRows: Int32): Boolean;
begin
  // ...
end;

Альтернативный подход с использованием sqlcmd

Пользователь рассматривал возможность использования утилиты sqlcmd для выполнения скриптов из Delphi, но решил, что это не является оптимальным решением.

Подтвержденное решение

В подтвержденном ответе предлагается использовать компоненты ADOConnection и ADOQuery для выполнения операций с базой данных. Важно использовать свойство KeepConnection для поддержания контекста соединения, что позволит выполнить несколько SQL-команд в рамках одного соединения.

procedure TForm1.Button1Click(Sender: TObject);
begin
  AdoConnection1.DefaultDatabase := 'Master';
  AdoConnection1.KeepConnection := False;  // или True для сохранения соединения
  AdoQuery1.SQL.Text := 'USE m4common';
  AdoQuery1.ExecSQL;
  AdoQuery1.SQL.Text := 'create view vwtest as select * from btnames';
  AdoQuery1.ExecSQL;
end;

Также предложен более удобный способ чтения скрипта из файла с использованием TStringList.

Заключение

При работе с многобазовыми скриптами важно правильно управлять соединениями и контекстом выполнения SQL-команд. Использование ADOConnection и ADOQuery в сочетании с корректной настройкой свойства KeepConnection позволяет решить многие задачи, связанные с многобазовым выполнением скриптов в Delphi.

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

Проблема заключается в необходимости выполнения многобазовых операций в среде Delphi с использованием операторов `GO` и `USE`, что требует особого подхода при работе с базой данных SQL Server.

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

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

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