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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Пытливый 3763 / 2271 / 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 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,207 Записей в блоге: 3
	15.01.2020, 22:35
	а я где то видел тесты и там писали что прямой запрос быстрее чем передача через массив (правда там вставляли миллион строк) в итоге сошлись что выгоднее передавать частями по ххх строк 0

Опции темы

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

Решение