Использование табличных значений в SQL Server с Delphi: альтернативы без создания серверных типов

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

Использование табличных параметров в SQL Server без создания серверных типов

Введение

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

Проблема

Пользователь столкнулся с необходимостью передачи нескольких значений через один параметр, используя табличные параметры в SQL Server. Приведенный в примере код работает корректно, но требует создания типа TVPType на сервере. Разработчик хотел бы избежать этой необходимости, поскольку хочет использовать табличные параметры без создания каких-либо объектов на сервере.

Решение

Для начала, давайте рассмотрим пример кода, который демонстрирует использование табличных параметров в Delphi с созданием типа на сервере:

procedure TForm1.btnQryManualSetupClick(Sender: TObject);
var
  oDS: TFDMemTable;
  i: Integer;
begin
  // ...
  FDQuery2.Params[0].DataTypeName := 'TVPType';
  FDQuery2.Params[0].AsDataSet := oDS;
  // ...
end;

Попытка определить тип параметра как ftDataset приводит к ошибке, поскольку тип READONLY не может быть найден. Однако, альтернативный ответ заключается в поиске способов выполнения операций с несколькими значениями без создания типа на сервере.

Альтернативные подходы

Использование FireDAC Array DML

Если вы работаете с массовым вводом данных, стоит обратить внимание на функционал FireDAC Array DML, который позволяет выполнять операции с массивами данных.

Использование XML и JSON

В качестве альтернативы можно использовать формат XML или JSON для передачи данных в параметр запроса. Это позволит избежать создания серверных типов.

Использование строк, разделенных запятыми

Для простых операций вставки, вы можете передать значения как строку, разделенную запятыми, и затем использовать функцию STRING_SPLIT для их разделения.

Использование временных или постоянных таблиц

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

Пример кода без использования серверных типов

Для демонстрации альтернативного подхода приведем пример кода, который использует временные таблицы для хранения данных перед их вставкой в постоянную таблицу:

procedure TForm1.btnQryManualSetupClick(Sender: TObject);
var
  oTempDS: TFDMemTable;
  i: Integer;
begin
  // Создание временной таблицы для хранения данных
  oTempDS := TFDMemTable.Create(nil);
  oTempDS.FieldDefs.Add('Code', ftInteger);
  oTempDS.FieldDefs.Add('Name', ftString, 100);
  oTempDS.FieldDefs.Add('RegDate', ftTimeStamp);
  oTempDS.FieldDefs.Add('Notes', ftMemo);
  FDQuery2.Params[0].AsDataSet := oTempDS;
  // ...
  // Заполнение временной таблицы данными
  oTempDS.First;
  for i := 1 to C_Recs do
  begin
    oTempDS.Insert;
    with oTempDS do
    begin
      Fields[0].AsInteger := i;
      Fields[1].AsString := 'str' + IntToStr(i * 10);
      Fields[2].AsDateTime := Now() + i;
      Fields[3].AsString := StringOfChar('x', 1000);
      Post;
    end;
  end;
  // Выполнение запроса, который вставляет данные из временной таблицы в постоянную
  FDQuery2.SQL.Text := 'insert into TVPTab (Code, Name, RegDate, Notes) ' +
    'select Code, Name, RegDate, Notes from :t';
  FDQuery2.Execute;
  // ...
end;

Заключение

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

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

Разработчики, работающие с базами данных SQL Server и использующие язык Delphi, рассматривают способы передачи нескольких значений через табличные параметры без необходимости создания серверных типов.

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

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

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