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

@Владислав-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, 23:05

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

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

Собственно, поле number, значит - числовое. A значение параметра по этому полю, как текст присваивается:

Delphi
1
DataModule1.QOther.Parameters.ParamByName('q11').Value := edit1.text;

Надо в виде числа записывать.
Если целое:

Delphi
1
DataModule1.QOther.Parameters.ParamByName('q11').Value := StrToInt(edit1.text);

Если вещественное:

Delphi
1
DataModule1.QOther.Parameters.ParamByName('q11').Value := StrToFloat(edit1.text);

Добавлено через 4 минуты
В таблице dogovors есть ещё поле ID. Если оно объявлено, как полноценный идентификатор, то надо ещё решить вопрос с созданием по нему уникального значения при вставке записи.

Добавлено через 47 секунд
Надо или настроить его в БД на генерацию уникального значения или генерировать такое значение в программе.

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

а есть какая то принципиальная разница между sql.add('') и sql.text:=''

И поле number у меня строковое, так как номер договора бывает с буквами и точками

Добавлено через 1 минуту
в акцессе автосчетчик стоит и есть связи между ключами внешними и уникальными( id и id_acc) например

@Пытливый · 10.08.2016, 23:06

Самое смешное, что ему действительно не нравится поле с именем number. Возьмите его в скобки [number]

@Mawrat · 10.08.2016, 23:14

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

а есть какая то принципиальная разница между sql.add('') и sql.text:=''

SQL.Text - надёжнее. Были сообщения, что при использовании SQL.Add() возникали баги - из-за неявных вызовов Prepare после каждого SQL.ADD().

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

И поле number у меня строковое

Ясно, тогда надо оставить присваивание в виде строкового значения.

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

Сообщение от Скандербег

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

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

Возьмите его в скобки [number]

Да, вы правы - в скобки надо заключить. Ведь Number - это зарезервированное слово в БД - идентификатор типа данных. А в таблице оно в качестве имени поля используется.

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

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

SQL.Text - надёжнее.

Дело не только в надежности, но и в том, что метод Add добавляет в список новую строку, а присвоение строки свойству Text заменяет всё что есть в списке на новое значение, т.е. очищать ничего не надо как это делается при использовании Add.
Разница между ними все же есть, но учитывается в определенных ситуациях.
Во многих случаях Text удобнее, но и Add тоже используется.
Например, при сложных многострочных запросах, когда по ходу дела нужно менять только одну-две строки.

@northener · 11.08.2016, 01:38

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

SQL.Text - надёжнее. Были сообщения, что при использовании SQL.Add() возникали баги

Не верю.
Единственно чему верю, так это сообщение от Пытливый #23.

@Владислав-2012 · 11.08.2016, 08:03 **[ТС]**

Самое забавное, что теперь в акцессе с текстом проходит запрос, а в делфи с параметрами нет. Сменил имя пол я на namber. В делфи ошибка таже саамя

@Mawrat · 11.08.2016, 08:08

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

Не верю.

Я пересказал, что слышал (читал в сообщениях).

Вернее, писалось так - что баги возникали, когда использовался ADO и запрос формировался из нескольких вызовов SQL.Add(). Т. е., по этому вопросу я не проводил самостоятельных исследований и представление сформировал на основе мнений других людей.
Выше Скандербег написал разъяснения на этот счёт. У него большой опыт разработки БД. В общем, как я понял, SQL.Add() "бояться" не надо.

Скандербег · 11.08.2016, 08:42

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

Сменил имя пол я на namber. В делфи ошибка таже саамя

Вчера было так:
Проект взял. Ошибка. Та самая. Наименование поля number изменил на numdog.
Ошибки в Аксессе не было, но в Дельфи "Ошибка синтаксиса в инструкции INSERT INTO".
После того как все наименования (и полей и таблицы) были заключены в квадратные скобки - ошибка исчезла и вставка строки в таблицу БД происходила нормально. В посте #20 показан текст, который не давал ошибок.
Для эксперимента наименование number было возвращено (при наличии скобок вокруг всех наименований) - ошибка не вернулась.

Добавлено через 6 минут
Владислав-2012, надо попробовать этот вот текст, который не дает ошибок:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm9.Button1Click(Sender: TObject);
begin
  DataModule1.QOther.SQL.Text :=
       '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:=DateOf(DateTimePicker1.Date);
  DataModule1.QOther.Parameters.ParamByName('q31').Value:=DateOf(DateTimePicker2.Date);
  DataModule1.QOther.Parameters.ParamByName('q41').Value:=edit3.text;
  DataModule1.QOther.Parameters.ParamByName('q51').Value:=edit2.text;
  DataModule1.QOther.ExecSQL;
 
  DataModule1.QOther.Close;
  DataModule1.QOther.SQL.Clear;
  DataModule1.QOther.SQL.Add('select * from dogovors where number = :num');
  DataModule1.QOther.Parameters.ParamByName('num').Value:=edit1.text;
  DataModule1.QOther.open;
  numb:=  DataModule1.QOther.FieldByName('id').aSInteger;
  Form8.Edit1.text:=inttostr(numb);
  Form9.Close;
  Form8.show;
end;

Функция DateOf объявлена в модуле DateUtils.

@Mawrat · 11.08.2016, 10:01

Сообщение от Скандербег

Владислав-2012, надо попробовать этот вот текст, который не дает ошибок:

Я сейчас испытал этот вариант - без ошибок отрабатывает. Причём, если не обрамить скобками имя таблицы - dogovors - то возникает ошибка синтаксиса SQL. Т. е., имя таблицы обязательно надо в скобках задать и поле number - тоже.

@northener · 11.08.2016, 10:07

Не по теме:

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

Причём, если не обрамить скобками имя таблицы - dogovors - то возникает ошибка синтаксиса SQL.

Вот уж это совсем непонятно. Всю жизнь писал без скобок - никогда проблем не было.

@Mawrat · 11.08.2016, 10:19

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

Вот уж это совсем непонятно. Всю жизнь писал без скобок - никогда проблем не было.

Сейчас ещё поэкспериментировал. Оказалось следующее. В скобки обязательно надо заключить имена двух полей: number и names:

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

Тогда отрабатывает без ошибок. Ну, а для надёжности, лучше уж все имена в скобки заключать, тогда.

@northener · 12.08.2016, 00:32

Не по теме:

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

Сейчас ещё поэкспериментировал. Оказалось следующее. В скобки обязательно надо заключить имена двух полей: number и names

Тоже какое-то шаманство, имхо. Ну ладно number. Это действительно зарезервированное слово. Но names?
А ты не пробовал как я предлагал в #9 принудительно задавать тип параметра перед присвоением ему значения, дабы облегчить жизнь этому недоделанному Акцессу?

@Владислав-2012 · 12.08.2016, 09:03 **[ТС]**

На счет зарезервированных слов я понял, просто не все их знаю.

Delphi
1
2
3
4
5
6
7
8
  DataModule1.QOther.close;
  DataModule1.QOther.sql.Add('insert into [clients] ([date_zvon],[date_next],[comment],[id_stadia],[id_dogovor]) values(:z1,:z2,:z3,:z4,:z5)');
  DataModule1.QOther.Parameters.ParamByName('z1').Value:=FormatDateTime('dd.mm.yyyy',DateTimePicker1.Date);
  DataModule1.QOther.Parameters.ParamByName('z2').Value:=FormatDateTime('dd.mm.yyyy',DateTimePicker2.Date);
  DataModule1.QOther.Parameters.ParamByName('z3').Value:=edit4.text;
  DataModule1.QOther.Parameters.ParamByName('z4').Value:=STady;
  DataModule1.QOther.Parameters.ParamByName('z5').Value:=Form9.numb;
  DataModule1.QOther.ExecSQL;

Но вот тут со скобками и синтаксис правилен. В акцессе все проходит. а ошибку вызывает как на скине

@Владислав-2012 · 12.08.2016, 09:04 **[ТС]**

Но тупо поменял с sql.add на sql.text и запрос проходит нормально, ну по крайнейна первый взгляд...

Скандербег · 12.08.2016, 09:23

Проходит потому что в случае Add список строк запроса был не пустой, а Clear не было - при добавлении новой строки остатки, которые в тексте были и гадили.
В случае Text все что было в списке затирается передаваемой строкой.

@Mawrat · 12.08.2016, 09:27

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

Тоже какое-то шаманство, имхо. Ну ладно number. Это действительно зарезервированное слово. Но names?

Сейчас посмотрел. Оказалось, NAMES присутствует в списке зарезервированных слов в спецификации движка Microsoft Jet 4.0:
List of Microsoft Jet 4.0 reserved words.

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

Спасибо, разберемся)

Новые блоги и статьи Все статьи Все блоги /
[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	10.08.2016, 23:06 [ТС]
	а есть какая то принципиальная разница между sql.add('') и sql.text:='' И поле number у меня строковое, так как номер договора бывает с буквами и точками Добавлено через 1 минуту в акцессе автосчетчик стоит и есть связи между ключами внешними и уникальными( id и id_acc) например 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	10.08.2016, 23:06
	Самое смешное, что ему действительно не нравится поле с именем number. Возьмите его в скобки [number] 1

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	11.08.2016, 08:03 [ТС]
	Самое забавное, что теперь в акцессе с текстом проходит запрос, а в делфи с параметрами нет. Сменил имя пол я на namber. В делфи ошибка таже саамя 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	12.08.2016, 09:04 [ТС]
	Но тупо поменял с sql.add на sql.text и запрос проходит нормально, ну по крайнейна первый взгляд... 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	12.08.2016, 09:23
	Проходит потому что в случае Add список строк запроса был не пустой, а Clear не было - при добавлении новой строки остатки, которые в тексте были и гадили. В случае Text все что было в списке затирается передаваемой строкой. 0

@Владислав-2012 2 / 2 / 1 Регистрация: 31.01.2012 Сообщений: 321
	12.08.2016, 14:16 [ТС]
	Спасибо, разберемся) 0