Как параметру сопоставить массив данных?

@jeckp · Регистрация: 28.02.2009

Студворк — интернет-сервис помощи студентам

Добрый день
Вопрос про параметры и большое количество значений.
И суть его вот в чем есть массив данных который нужно вогнать в базу. Код который это реализует и работает примерно следующий.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 eventr = record
  e_dt: tdatetime;
  etype: integer;
  edescr: string;
end;
...
 evarr: array of eventr;
...
 MainFDQuery.Close;
 MainFDQuery.SQL.Text := 'INSERT INTO `event_history`(`ehistory_dt`, `eventtype`, `eventdescribe`) VALUES (:dt ,:tp, :ds);';
 
 MainFDQuery.Params.Add.Name := 'dt';
 MainFDQuery.Params.Add.Name := 'tp';
 MainFDQuery.Params.Add.Name := 'ds';
 
  for i := 0 to length (evarr)-1 do begin
// MainFDQuery.Close;
  MainFDQuery.ParamByName('dt').AsDateTime := evarr[i].e_dt;
  MainFDQuery.ParamByName('tp').AsInteger := evarr[i].etype;
  MainFDQuery.ParamByName('ds').AsString := evarr[i].edescr;
  MainFDQuery.ExecSQL;
 end;

По сути я многократно выполняю запрос типа

SQL
1
INSERT INTO `event_history`(...) VALUES (1...);

А можно ли применяя механизмы t...query построит запрос типа

SQL
1
INSERT INTO `event_history`(...) VALUES (1...)(2...)(3...)(4...)....(n...);

и выполнить его один раз? И тут-же, а можно средствами t...query ограничить максимальную длину таких запросов, например в случае размера массива > 100 делить его на куски по <=100 наборов в одном запросе, но таких запросов выполнит 2 или более. К сожалению, ничего по этому поводу пока не нагуглил. А по идее это должно дать ощутимый прирост к быстродействию, или может я зря ломаю голову и принципиально быстродействие не изменится?

И еще пару попутных вопросов
1. Внутри цикла я не закрываю соединение, и никаких багов пока не увидел. Нужно ли это делать в данном случае или нет и почему?

2. Очень часто вижу что команду типа

Delphi
1
2
MainFDQuery.Params.Add.Name := 'dt';
MainFDQuery.ParamByName('dt').AsDateTime := evarr[i].e_dt;

предлагают упростить до варианта

Delphi
1
MainFDQuery.ParamByName('dt').value := evarr[i].e_dt;

Но у меня так не работает, выдает ошибку. Я как-бы не очень переживаю по этому поводу, но все же интересно почему так?

Спасибо.

@Пытливый · 15.01.2020, 19:37

В FD есть массивы, но я их не пробовал, да и необходимости такой пока не было. А вот вашу задачу можно ускорить, если открыть транзакцию перед циклом, а закрыть после. Параметры кстати создавать ручками нет необходимости, они уже должны быть созданы автоматом сразу после выполнения MainFDQuery.SQL.Text.

@jeckp · 15.01.2020, 19:48 **[ТС]**

Сообщение от Пытливый

задачу можно ускорить, если открыть транзакцию перед циклом, а закрыть после

Не совсем понял как, можно пример?

@Пытливый · 15.01.2020, 20:16

Добавьте на форму компонент FDTransaction и через свойство MainFDQuery.Transaction свяжите запрос и транзакцию. После этого в коде вы можете написать так:

Delphi
1
2
3
4
5
6
7
8
9
10
 
 MainFDQuery.SQL.Text := 'INSERT INTO `event_history`(`ehistory_dt`, `eventtype`, `eventdescribe`) VALUES (:dt ,:tp, :ds);';
 MainFDQuery.Transaction.StartTransaction;
 for i := 0 to length (evarr)-1 do begin
  MainFDQuery.ParamByName('dt').AsDateTime := evarr[i].e_dt;
  MainFDQuery.ParamByName('tp').AsInteger := evarr[i].etype;
  MainFDQuery.ParamByName('ds').AsString := evarr[i].edescr;
  MainFDQuery.ExecSQL;
 end;
 MainFDQuery.Transaction.Commit;

Т.к. MainFDQuery у вас запрос не на выборку, а на исполнение, то открывать и закрывать такой запрос необходимости нет, т.е. писать MainFDQuery.Close не надо.

Добавлено через 9 минут
Если я правильно понял справку по FD, то используя массив будет так:

Delphi
1
2
3
4
5
6
7
8
 MainFDQuery.Params.ArraySize := Length(evarr);
 for i := 0 to FDQuery1.Params.ArraySize - 1
 do begin
    MainFDQuery.ParamByName('dt').AsDateTimes[i] := evarr[i].e_dt;
    MainFDQuery.ParamByName('tp').AsIntegers[i] := evarr[i].etype;
    MainFDQuery.ParamByName('ds').AsStrings[i] := evarr[i].edescr;
    end;
 MainFDQuery.Execute(MainFDQuery.Params.ArraySize);

@jeckp · 15.01.2020, 21:13 **[ТС]**

Спасибо большое. Уже попробовал. А статистика такова (усредненное после трех измерений, размер массива 600 записей, на локальной базе данных. И после каждого теста таблицу очищал):

Исходный вариант кода исполняется за 23900 млс.
Вариант с MainFDQuery.Transaction.StartTransaction ; - 1260 млс.
А вариант с MainFDQuery.Params.ArraySize - 220 млс.

Просто замечательно. Прирост производительности на 2 порядка.

Спасибо.

@qwertehok · 15.01.2020, 22:35

а я где то видел тесты и там писали что прямой запрос быстрее чем передача через массив (правда там вставляли миллион строк)
в итоге сошлись что выгоднее передавать частями по ххх строк

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	15.01.2020, 19:37
	В FD есть массивы, но я их не пробовал, да и необходимости такой пока не было. А вот вашу задачу можно ускорить, если открыть транзакцию перед циклом, а закрыть после. Параметры кстати создавать ручками нет необходимости, они уже должны быть созданы автоматом сразу после выполнения MainFDQuery.SQL.Text. 0

@jeckp 0 / 0 / 0 Регистрация: 28.02.2009 Сообщений: 49
	15.01.2020, 21:13 [ТС]
	Спасибо большое. Уже попробовал. А статистика такова (усредненное после трех измерений, размер массива 600 записей, на локальной базе данных. И после каждого теста таблицу очищал): Исходный вариант кода исполняется за 23900 млс. Вариант с MainFDQuery.Transaction.StartTransaction ; - 1260 млс. А вариант с MainFDQuery.Params.ArraySize - 220 млс. Просто замечательно. Прирост производительности на 2 порядка. Спасибо. 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	15.01.2020, 22:35
	а я где то видел тесты и там писали что прямой запрос быстрее чем передача через массив (правда там вставляли миллион строк) в итоге сошлись что выгоднее передавать частями по ххх строк 0

Как параметру сопоставить массив данных?

Решение