SQL-запрос долго выполняется (INSERT)

@DupLike · Регистрация: 09.12.2012

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

ПРочитал много, так и не нашел вразумительного ответа... Может кто чем поможет. В общем, при добавлении в таблицу очень долго, порядка 3-х секунд выполняется запрос на добавление, вот собственно сам запрос:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With DataM.qryAll do begin
tmpDate:=DateTimeWork.Date;
SQL.Clear;
SQL.Add('INSERT INTO tMadeWork (ID_Order, ID_Uslugi, DateWork, Zakl, Price, ID_Personal) ');
SQL.Add('VALUES (:pID_Order, :pID_Uslugi, :pDateWork, :pZakl, :pPrice, :pID_Personal)');
Parameters.ParamByName('pID_Order').Value:=StrToInt(IDOrderEdit.Text);
Parameters.ParamByName('pID_Uslugi').Value:=StrToInt(IDUslugiEdit.Text);
Parameters.ParamByName('pDateWork').Value:=tmpDate;
Parameters.ParamByName('pZakl').Value:=ZaklEdit.Text;
Parameters.ParamByName('pPrice').Value:=PriceEdit.Value;
Parameters.ParamByName('pID_Personal').Value:=StrToInt(PersonalEdit.Text);
ExecSQL;
DataM.qryMadeWork.Close;
DataM.qryMadeWork.Open;
DataM.qryMadeWork.Last;
ShowMessage('Данные о проведённой работе добавлены!');
MadeWorkAddChangeForm.Hide;
MainForm.Enabled:=True;
MainForm.Show;
end;

Не могу никак это вылечить( Что только не пробовал уже, ничего не помогает(

quwy · 31.05.2014, 20:17

DupLike, Delphi тут не при чем. Скорее всего SQL-сервер долго выполняет запрос (например, там тяжелый триггер на INSERT установлен).

quwy

P.S. Хорошо, что вы используете параметры, но плохо, что вы не указываете тип данных, лучше так:

Delphi
1
2
3
4
5
6
Parameters.ParamByName('pID_Order').AsInteger:= StrToInt(IDOrderEdit.Text);
Parameters.ParamByName('pID_Uslugi').AsInteger:= StrToInt(IDUslugiEdit.Text);
Parameters.ParamByName('pDateWork').AsDateTime:= tmpDate;
Parameters.ParamByName('pZakl').AsString:= ZaklEdit.Text;
Parameters.ParamByName('pPrice').AsFloat:= PriceEdit.Value;
Parameters.ParamByName('pID_Personal').AsInteger:= StrToInt(PersonalEdit.Text);

@Zil · 01.06.2014, 20:35

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

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
USE database_name;
 
DELIMITER $$
 
CREATE DEFINER = 'Username'@'%'
PROCEDURE procedure1 (IN pID_Order VARCHAR(255), IN pID_Uslugi INT, IN pDateWork INT, IN pZakl datetime, IN pPrice text, IN pID_Personal FLOAT)
BEGIN
  INSERT INTO tMadeWork (ID_Order, ID_Uslugi, DateWork, Zakl, Price, ID_Personal)
    VALUES (pID_Order, pID_Uslugi, pDateWork, pZakl, pPrice, pID_Personal);
END
$$
 
DELIMITER ;

Delphi
1
2
3
SQL.Clear;
SQL.Add('CALL procedure1(pID_Order, pID_Uslugi, pDateWork, pZakl, pPrice, pID_Personal) ');
ExecSQL;

Примерно так.

@vaberg · 01.06.2014, 20:49

Если в таблице много индексов - будет тормозить.
Чем больше записей, тем сильнее
Какая у Вас база данных?
(Я не знаю, как Zil догадался что у Вас MySQL)

@DupLike · 01.06.2014, 21:05 **[ТС]**

База обоих типов имеется и на мускуле и на адо. Приоритет сделать на адо конечно. Добавление Типов данных, как подсказал quwy немного ускорил процесс, но не до желаемых результатов. Пересоздал всё компоненты, от Connection до DataSource, пока работат намного шустрее чем было. Всем спасибо за ответы.

@Zil · 01.06.2014, 21:09

(Я не знаю, как Zil догадался что у Вас MySQL)

Читал темы в ветке MySql, и видимо не обратил внимание, что уже в другой. ))) Про индексы кстати хотел написать, но увлекся )

Новые блоги и статьи Все статьи Все блоги /
JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .

@vaberg 52 / 52 / 30 Регистрация: 24.02.2014 Сообщений: 229
	01.06.2014, 20:49
	Если в таблице много индексов - будет тормозить. Чем больше записей, тем сильнее Какая у Вас база данных? (Я не знаю, как Zil догадался что у Вас MySQL) 1

@DupLike 1 / 1 / 2 Регистрация: 09.12.2012 Сообщений: 58
	01.06.2014, 21:05 [ТС]
	База обоих типов имеется и на мускуле и на адо. Приоритет сделать на адо конечно. Добавление Типов данных, как подсказал quwy немного ускорил процесс, но не до желаемых результатов. Пересоздал всё компоненты, от Connection до DataSource, пока работат намного шустрее чем было. Всем спасибо за ответы. 0