Долго исполняется запрос

@nafisakoff · Регистрация: 03.08.2012

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

Задача процедуры massClick, раз в минуту(по таймеру) заносить данные (около 600 строк) в таблицу БД MSSQL из ListBox.
Структура таблицы БД: dt (smalldatetime), ObjID (Int), Val (float).
Но происходит следующее:
Данные заносятся раз в 3-4 минуты, а иногда и вовсе приложение "не отвечает", зависает чтоли...
Подскажите в чём дело.., код не оптимален? или ещё что?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.massClick(Sender: TObject);
var
i,j:integer;
begin
 ADOConnection1.ConnectionString:='FILE NAME='+Form1.Caption+'.udl';
 ADOConnection1.Connected:=true;
 ADOQuery1.SQL.Clear;
  j:=0;
   for i:=0 to StrToInt(TITcnt.Caption)-1 do
   begin
 Inc(j);
  ADOQuery1.SQL.Text:='set dateformat dmy IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''[dbo].['+Form1.Caption+''+'min'+']'')) insert into [dbo].['+Form1.Caption+''+'min'+'] values ('+#39+datetimetostr(now)+#39+','+IntToStr(j)+','+StringReplace(FloatToStr(StrToFloat(TITvalue.Items[i])),',','.',[rfReplaceAll])+')';
  ADOQuery1.ExecSQL;
   end;
ADOQuery1.Connection.Close;
ADOConnection1.Connected:=false;
end;

@FIL · 19.01.2014, 12:16

Сообщение от kwinto

накидал небольшой тест

Именно поэтому я про справку тебе и написал. Prepared:=true имеет смысл лишь в случае многократного использования одного и того же запроса с использованием параметров.
Какое отношение это имеет к данной теме?

@kwinto · 19.01.2014, 12:35

Самое прямое отношение. Тема здесь называется "Долго исполняется запрос".
В первом же сообщении я написал, что нужно запрос фомировать вне цикла, а это подразумевает собой использование параметров, и обязательно давать prepare, что существенно снизит время вставки. Только на этом простом действии можно очень много выиграть, не вдаваясь в подробности самого запроса и структуры БД.

@nafisakoff · 19.01.2014, 15:35 **[ТС]**

Возможно я ошибаюсь, но мне кажется, что kwinto просто не прочёл весь мой диалог с FIL от начало до конца, где руководствуясь советами FIL появился код, в котором, как пишет kwinto

ADOQuery1.SQL.Text вынесен перед циклом

поэтому приведу пример кода снова:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFMain.massClick(Sender: TObject);
var
i:integer;
begin
ADOQuery1.Connection.Close;
 ADOConnection1.ConnectionString:='FILE NAME='+FMain.Caption+'.udl';
 ADOConnection1.Connected:=true;
 ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='set dateformat dmy IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''[dbo].['+FMain.Caption+''+'min'+']'')) insert into [dbo].['+FMain.Caption+''+'min'+'] select '+#39+datetimetostr(now)+#39+' as dt,1 as RecordID,'+LBResult.Items[0]+' as Val';
   for i:=1 to StrToInt(EVarNum.Text)-1 do
   ADOQuery1.SQL.Add('union all select'+#39+datetimetostr(now)+#39+','+IntToStr(i+1)+','+LBResult.Items[i]);
 ADOQuery1.ExecSQL;
ADOConnection1.Connected:=false;
ibd.Font.Color:=clRed;
ADOQuery1.Connection.Close;
end;

Вопрос kwinto: Как ещё оптимизировать работу процедуры massClick?
Вопрос FIL:
1)Верно ли утверждение, что решить проблему заменой smalldatetime на datetime равнозначно снятию ключа с
dt (если честно, этот вариант не очень по душе)?
2)Насколько координально увеличить таймер (сделать больше минуты)? И можно ли будет после этого утверждать, что в течении часа в таблицу БД SQL войдёт 60 значений? Или их будет 58? иль 59? сколько?

@FIL · 19.01.2014, 16:16

1. Нет. Смена типа увеличит точность времени до долей сек., что сведет к 0 вероятность повтора ключей. При этом, поле останется ключевым.
2. Определяется экспериментально, но, если ошибка возникает пару раз за сутки, то, думаю, что увеличение нужно на доли сек. Но 60 значений в час уже не будет.
Другой вариант: брать значение времени перед составлением запроса, округлять до минут (как делает SQL) и сравнивать со значением, полученным в предидущий раз - если совпадут, то увеличить на мин. И в запрос подставлять уже готовое значение, а не вычислять 600 раз datetimetostr(now) - это тоже время сэкономит.

Еще строки 5, 8, 15 из кода можно убрать.

@nafisakoff · 19.01.2014, 19:42 **[ТС]**

Сделал таймер = 61000 и завёл переменную dt.
Буду смореть...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFMain.massClick(Sender: TObject);
var
i:integer;
dt:word;
begin
dt:=datetimetostr(now);
ADOQuery1.Connection.Close;
 ADOConnection1.ConnectionString:='FILE NAME='+FMain.Caption+'.udl';
 ADOConnection1.Connected:=true;
 ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='set dateformat dmy IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''[dbo].['+FMain.Caption+''+'min'+']'')) insert into [dbo].['+FMain.Caption+''+'min'+'] select '+#39+dt+#39+' as dt,1 as RecordID,'+LBResult.Items[0]+' as Val';
   for i:=1 to StrToInt(EVarNum.Text)-1 do
   ADOQuery1.SQL.Add('union all select'+#39+dt+#39+','+IntToStr(i+1)+','+LBResult.Items[i]);
 ADOQuery1.ExecSQL;
ADOConnection1.Connected:=false;
ibd.Font.Color:=clRed;
ADOQuery1.Connection.Close;
end;

Новые блоги и статьи Все статьи Все блоги /
Химера правил, администации порталов, законы и беззаконие. Hrethgir 26.06.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11904&stc=1&d=1782459438 У меня сейчас так везде по форуму - не могу создавать сообщений, но запись по случаю этому. . .	сукцессия 5 anaschu 26.06.2026 ПЛАН РАЗРАБОТКИ математической модели сукцессии микоризных систем Переход AM → EcM (Endo + ErM) · Шумилов А. С. · ИФХиБПП РАН · Пущино · 2026 . . .	сукцессия 4 anaschu 25.06.2026 Более детализированный план разработки План доработки модели динамики микоризных симбиозов (EcM с гистерезисом) Цель: Реализовать логику переключения между эрикоидным (ErM) и эктомикоризным. . .	сукцессия 3 anaschu 25.06.2026 Примерный план работ по модели
сукцессия 2 anaschu 25.06.2026 параметризировочная калибровочная таблица будущей модели	Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал (мат мет мод 29) anaschu 23.06.2026 Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал Материалы для обсуждения с МГСУ · 2026 Рисунки внутри приложенного ворд файла. Что за. . .	28. Конкретное развертывание плана номер 1 из поста номер 27 anaschu 22.06.2026 Можно ли из модели получить конкретные строительные требования? Честно — напрямую из текущей модели такие ответы не получить. Но цепочка логики есть, и она не такая длинная. Где разрыв . . .	27. Планы на разработку функциональных требований к строительству внутри модели пищеблока (или не только его?) anaschu 22.06.2026 Что уже реализовано и даёт конфликты «бесплатно» Самый простой конфликт уже работает — конфликт за ресурс-работника. Заданий больше, чем доступных поваров → очередь в queue1. Это прямое отражение. . .

@kwinto 86 / 86 / 24 Регистрация: 27.02.2010 Сообщений: 397
	19.01.2014, 12:35
	Самое прямое отношение. Тема здесь называется "Долго исполняется запрос". В первом же сообщении я написал, что нужно запрос фомировать вне цикла, а это подразумевает собой использование параметров, и обязательно давать prepare, что существенно снизит время вставки. Только на этом простом действии можно очень много выиграть, не вдаваясь в подробности самого запроса и структуры БД. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	19.01.2014, 16:16
	1. Нет. Смена типа увеличит точность времени до долей сек., что сведет к 0 вероятность повтора ключей. При этом, поле останется ключевым. 2. Определяется экспериментально, но, если ошибка возникает пару раз за сутки, то, думаю, что увеличение нужно на доли сек. Но 60 значений в час уже не будет. Другой вариант: брать значение времени перед составлением запроса, округлять до минут (как делает SQL) и сравнивать со значением, полученным в предидущий раз - если совпадут, то увеличить на мин. И в запрос подставлять уже готовое значение, а не вычислять 600 раз datetimetostr(now) - это тоже время сэкономит. Еще строки 5, 8, 15 из кода можно убрать. 1