Параметры в запросах АДО

@Владислав-2012 · Регистрация: 31.01.2012

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

На счет параметров в АДО. Чтобы использовать параметры надо из прописать в запросе insert() values(a,ss,d,fg,g,g). Правильно? но выскакивает ошибка что параметр не найден. Хотя эти имена параметров не юзал раньше. а прописывая в свойствах запроса, он так же выдает ошибку о неверном параметре. Как выкрутится?

Delphi
1
2
3
4
5
6
7
8
9
DataModule1.QOther.Close;
  DataModule1.QOther.SQL.Clear;
  DataModule1.QOther.SQL.Add('insert into dogovors (number,date_start,date_end,opisanie,names) values(q11,q21,q31,q41,q51)');
  DataModule1.QOther.Parameters.ParamByName('q11').Value:=edit1.text;
  DataModule1.QOther.Parameters.ParamByName('q21').Value:=DateTimePicker1.Date;
  DataModule1.QOther.Parameters.ParamByName('q31').Value:=DateTimePicker2.Date;
  DataModule1.QOther.Parameters.ParamByName('q41').Value:=edit3.text;
  DataModule1.QOther.Parameters.ParamByName('q51').Value:=edit2.text;
  DataModule1.QOther.ExecSQL;

@Mawrat · 10.08.2016, 10:07

Сообщение от Владислав-2012

но выскакивает ошибка что параметр не найден.

Потому, что в тексте запроса параметр должен быть помечен ведущим двоеточием. Нужно подправить таким образом:

Delphi
1
DataModule1.QOther.SQL.Add('insert into dogovors (number,date_start,date_end,opisanie,names) values(:q11,:q21,:q31,:q41,:q51)');

@krapotkin · 10.08.2016, 10:11

ну и по идее, если мы каждый раз заново переписываем SQL, то нет смысла вообще использовать параметры
они нужны чтобы сэкономить серверу время на повторный разбор SQL
а так - проще формировать готовую строку, чем делать доп. передачу параметров

@northener · 10.08.2016, 10:25

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

проще формировать готовую строку, чем делать доп. передачу параметров

Только не в случае с параметрами типа дата/время.

@Lord_Voodoo · 10.08.2016, 10:31

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

Только не в случае с параметрами типа дата/время.

это да, тут начинается тихий ужас и мрак... а слово "конкатенация" для многих вообще ругательство... а вы еще забыли на счет экранирования спецсимволов, тоже весело бывает почитать исходники...

так что пусть юзают параметризированный запрос - всем так будет легче...

@Владислав-2012 · 10.08.2016, 12:41 **[ТС]**

Я делал с : , ничего не менялось

Добавлено через 1 час 43 минуты

Delphi
1
DataModule1.QOther.SQL.Add('insert into dogovors(number,date_start,date_end,opisanie,names) values(:q11,:q21,:q31,:q41,:q51)');

и в таком варианте пишет ошибку в инсерт запросе

@Mawrat · 10.08.2016, 14:17

Сообщение от Владислав-2012

Я делал с : , ничего не менялось

Т. е., по прежнему параметры не обнаруживались?

Сообщение от Владислав-2012

и в таком варианте пишет ошибку в инсерт запросе

Имеется в виду уже другая ошибка?

Нужны более ясные сведения - что происходит, как было и как стало, какая ошибка возникает и на каком этапе?

@Владислав-2012 · 10.08.2016, 14:37 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
DataModule1.QOther.Close;
  DataModule1.QOther.SQL.Clear;
  DataModule1.QOther.SQL.Add('insert into dogovors (number,date_start,date_end,opisanie,names) values(q11,q21,q31,q41,q51)');
  DataModule1.QOther.Parameters.ParamByName('q11').Value:=edit1.text;
  DataModule1.QOther.Parameters.ParamByName('q21').Value:=DateTimePicker1.Date;
  DataModule1.QOther.Parameters.ParamByName('q31').Value:=DateTimePicker2.Date;
  DataModule1.QOther.Parameters.ParamByName('q41').Value:=edit3.text;
  DataModule1.QOther.Parameters.ParamByName('q51').Value:=edit2.text;
  DataModule1.QOther.ExecSQL;

Было так. Писало что не найдено параметров. Хотя в других местах параметры работали и без :. Сейчас у меня такой запрос :

Delphi
1
2
3
4
5
6
7
8
9
  DataModule1.QOther.Close;
  DataModule1.QOther.SQL.Clear;
  DataModule1.QOther.SQL.Add('insert into dogovors(number,date_start,date_end,opisanie,names) values(:q11,:q21,:q31,:q41,:q51)');
  DataModule1.QOther.Parameters.ParamByName('q11').Value:=edit1.text;
  DataModule1.QOther.Parameters.ParamByName('q21').Value:=DateTimePicker1.Date;
  DataModule1.QOther.Parameters.ParamByName('q31').Value:=DateTimePicker2.Date;
  DataModule1.QOther.Parameters.ParamByName('q41').Value:=edit3.text;
  DataModule1.QOther.Parameters.ParamByName('q51').Value:=edit2.text;
  DataModule1.QOther.ExecSQL;

и пишет ошибка синтаксиса insert

@northener · 10.08.2016, 14:56

Я бы попробовал задавать каждому параметру DataType перед присвоением значения.

P.S.

Сообщение от Владислав-2012

в других местах параметры работали и без :

Не верю!

@Mawrat · 10.08.2016, 15:01

Сообщение от Владислав-2012

и пишет ошибка синтаксиса insert

Видимо, какой-то из параметров оказывается представленным в неподходящем виде. Скорее всего проблемы возникают с параметрами даты/времени. Предлагаю задать типы для таких параметров:

Delphi
1
2
3
4
5
6
7
8
9
r.Parameters.ParamByName('q11').Value:=edit1.text;
 
  DataModule1.QOther.Parameters.ParamByName('q21').DataType := ftDate;
  DataModule1.QOther.Parameters.ParamByName('q21').Value:=DateTimePicker1.Date;
  DataModule1.QOther.Parameters.ParamByName('q31').DataType := ftDate;
  DataModule1.QOther.Parameters.ParamByName('q31').Value:=DateTimePicker2.Date;
 
  DataModule1.QOther.Parameters.ParamByName('q41').Value:=edit3.text;
  DataModule1.QOther.Parameters.ParamByName('q51').Value:=edit2.text;

А база данных какая?

Добавлено через 1 минуту
Параметры q11, q41, q51 - строковые?

@Lord_Voodoo · 10.08.2016, 15:02

Владислав-2012, ну вообще внешне запрос написан правильно, очевидных ошибок синтаксиса не наблюдаю... а можно точный текст ошибки посмотреть?

@Владислав-2012 · 10.08.2016, 15:10 **[ТС]**

В чем проблема проверить? Программа в архиве, логин пароль админ админ. Форма добавление клиента. Доказывать ничего не буду, ибо бессмысленно, если правильнее все таки с двоеточием, то буду делать с ними.
Исправлять уже новые Errors. Текст ошибки на снимке.

@Lord_Voodoo · 10.08.2016, 15:30

это у вас база Аксесс, я так понимаю, сообщения об ошибках всегда просто убивали информативностью... неужели и вправду ошибка где-то в замене параметров значениями... даже интересно стало... но, так и не узнаю, видимо, у меня офис 2003, не смогу вашу базу открыть, если вам несложно пересохраните где-то отдельно БД в формат access 2003, тогда попробую помочь

@Владислав-2012 · 10.08.2016, 15:51 **[ТС]**

Вот база

@northener · 10.08.2016, 15:52

Не по теме:

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

тогда попробую помочь

Еще и EhLib понадобится. А может и еще что-то (

@Lord_Voodoo · 10.08.2016, 15:58

northener, ну вообще было бы интересно выяснить, но я не могу ТС заставлять подменять параметры сначала по типу на некое тестовое значение... а недостающие компоненты я просто выкошу, это сейчас не играет никакой роли... лишь бы запустилось хоть как-то...

@Владислав-2012 · 10.08.2016, 19:58 **[ТС]**

Есть какие либо мысли?

@qwertehok · 10.08.2016, 20:20

напиши запрос в аксессе и проверь его
потом вставь в дельфи и замени даты и текст на переменные

@Владислав-2012 · 10.08.2016, 21:10 **[ТС]**

Жалуется на поле number. выделяет и ошибку пишет в аксессе

Скандербег · 10.08.2016, 22:49

Сообщение от Владислав-2012

Жалуется на поле number. выделяет и ошибку пишет в аксессе

Скобки для наименований полей и таблицы - будет работать:

Delphi
1
2
3
  DataModule1.QOther.SQL.Text :=
       'insert into [dogovors] ([number],[date_start],[date_end],[opisanie],[names]) '+
               'values(:q11,:q21,:q31,:q41,:q51)';

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,657 Записей в блоге: 21
	10.08.2016, 10:11
	ну и по идее, если мы каждый раз заново переписываем SQL, то нет смысла вообще использовать параметры они нужны чтобы сэкономить серверу время на повторный разбор SQL а так - проще формировать готовую строку, чем делать доп. передачу параметров 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.08.2016, 15:02
	Владислав-2012, ну вообще внешне запрос написан правильно, очевидных ошибок синтаксиса не наблюдаю... а можно точный текст ошибки посмотреть? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.08.2016, 15:30
	это у вас база Аксесс, я так понимаю, сообщения об ошибках всегда просто убивали информативностью... неужели и вправду ошибка где-то в замене параметров значениями... даже интересно стало... но, так и не узнаю, видимо, у меня офис 2003, не смогу вашу базу открыть, если вам несложно пересохраните где-то отдельно БД в формат access 2003, тогда попробую помочь 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.08.2016, 15:58
	northener, ну вообще было бы интересно выяснить, но я не могу ТС заставлять подменять параметры сначала по типу на некое тестовое значение... а недостающие компоненты я просто выкошу, это сейчас не играет никакой роли... лишь бы запустилось хоть как-то... 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	10.08.2016, 19:58 [ТС]
	Есть какие либо мысли? 0

@qwertehok 5958 / 4534 / 1094 Регистрация: 29.08.2013 Сообщений: 28,143 Записей в блоге: 3
	10.08.2016, 20:20
	напиши запрос в аксессе и проверь его потом вставь в дельфи и замени даты и текст на переменные 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	10.08.2016, 21:10 [ТС]
	Жалуется на поле number. выделяет и ошибку пишет в аксессе 0