Подскажите пожалуйста почему ругается на строчку с параметрами?якобы параметр не найден

@beck · Регистрация: 31.03.2013

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
  Form5: TForm5;
  nd:TdateTime;
  kd:TdateTime;
 
 
 
implementation
 
{$R *.dfm}
 
procedure TForm5.Button1Click(Sender: TObject);
begin
nd := DateTimePicker1.DateTime;
kd := DateTimePicker2.DateTime;
try
 
  ADOQuery1 .Close; // закрываем запрос
  ADOQuery1.SQL.Clear; // очищаем все что было до этого
  ADOQuery1.SQL.Add('INSERT INTO PTTZSVIAZ(id_TERMINAL)' +
    '(SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN :nd AND :kd ');
  ADOQuery1.Parameters.ParamByName('nd').Value := DateTimeToStr(DateTimePicker1.DateTime); // добавляем параметр, в этом случае это имя, строка
  ADOQuery1.Parameters.ParamByName('kd').Value := DateTimeToStr(DateTimePicker2.DateTime);
  ADOQuery1.ExecSQL;
  DBgrid1.Refresh;

@beck · 20.05.2013, 16:13 **[ТС]**

ну вот я правильно же присвоил,может я чего не соображаю

@Waddonator · 20.05.2013, 16:41

beck, в какой СУБД у вас база?

@beck · 20.05.2013, 16:53 **[ТС]**

Firebird

@Waddonator · 20.05.2013, 16:58

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

выполните просто выборку и увидите, что вам запрос возвращает (поставьте вместо переменных какие-либо даты):

SQL
1
SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN :nd AND :kd

Что получили в результате?

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

И еще вопрос: как у вас храниться дата в базе? Как положено DateTime или как текст?

@beck · 20.05.2013, 17:07 **[ТС]**

тип timestamp
до этого таким макаром делал все норм было,с переменными,выбирает записи в диапазоне дат и вставляет их в другую таблицу

@Waddonator · 20.05.2013, 17:43

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

тип timestamp

не сталкивался с таким типом. Попробуйте заменить DateOf(DateTimePicker1.DateTime) на одни из вариантов:

Delphi
1
2
3
4
5
DateTimePicker1.DateTime;
//или
DateTimeToStr(DateTimePicker1.DateTime);
//или
''''+DateTimeToStr(DateTimePicker1.DateTime)+'''';

@beck · 21.05.2013, 10:21 **[ТС]**

а есть вариант избежать использование переменных?ибо я пробую чистый запрос с датами заданными изначально и все получается нормально

@Waddonator · 21.05.2013, 10:30

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

а есть вариант избежать использование переменных?

Можете просто формировать текст sql-запроса типа:

Delphi
1
2
ADOQuery1.SQL.Add('INSERT INTO PTTZSVIAZ(id_TERMINAL)' +
    '(SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN '+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+' AND '+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));

@beck · 21.05.2013, 10:40 **[ТС]**

Глупый вопрос)а кавычки во второй строке для переноса строк?или это такой синтаксис?)

@Waddonator · 21.05.2013, 10:44

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

а кавычки во второй строке для переноса строк?или это такой синтаксис?

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

Delphi
1
ADOQuery1.SQL.Add('INSERT INTO PTTZSVIAZ(id_TERMINAL) SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN '+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+' AND '+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));

@beck · 21.05.2013, 11:46 **[ТС]**

Delphi
1
2
3
4
ADOQuery1.SQL.Add('INSERT INTO PTTZSVIAZ(id_TERMINAL)' +
    '(SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN)' +
    '('+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime)))' +
    '('+' AND '+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));

ну я вот так делаю,он ругается на трерьей строке

@Waddonator · 21.05.2013, 11:51

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

ну я вот так делаю,он ругается на третьей строке

а вы так не делайте. Делайте правильно, а то скобок наставили куда нужно и куда не нужно. Сравните с предыдущим постом и уберите все лишнее.

@beck · 21.05.2013, 12:23 **[ТС]**

ну теперь пишет что ошибка line 1 column 35,это firebird пишет

@Waddonator · 21.05.2013, 12:29

Delphi
1
2
3
4
ADOQuery1.SQL.Add('INSERT INTO PTTZSVIAZ(id_TERMINAL)' +
    ' SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN ' +
    +QuotedStr(DateTimeToStr(DateTimePicker1.DateTime)) +
    +' AND '+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime)));

так не пишет что "ошибка"?

@beck · 21.05.2013, 12:33 **[ТС]**

[DCC Error] Unit5.pas(49): E2015 Operator not applicable to this operand type
теперь на третьей строчке вот так пишет
и на четвертой также

@Waddonator · 21.05.2013, 12:34

Delphi
1
2
3
4
ADOQuery1.SQL.Add('INSERT INTO PTTZSVIAZ(id_TERMINAL)' +
    ' SELECT ID_TERMINAL FROM TPTSVIAZ WHERE datepri BETWEEN ' +
    QuotedStr(DateTimeToStr(DateTimePicker1.DateTime)) +
    ' AND '+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime)));

@beck · 21.05.2013, 14:44 **[ТС]**

ну не добавляет нивкакую
если чем-то поможет

SQL
1
2
3
4
INSERT INTO PTTZSVIAZ(id_TERMINAL)
SELECT ID_TERMINAL 
  FROM TPTSVIAZ
 WHERE datepri BETWEEN '01.04.2013' AND '29.04.2013';

вот этот код рабочий,а то что пробуем никак
ну это код из IBExpert

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	20.05.2013, 16:13 [ТС]
	ну вот я правильно же присвоил,может я чего не соображаю 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	20.05.2013, 16:41
	beck, в какой СУБД у вас база? 0

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	20.05.2013, 16:53 [ТС]
	Firebird 0

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	20.05.2013, 17:07 [ТС]
	тип timestamp до этого таким макаром делал все норм было,с переменными,выбирает записи в диапазоне дат и вставляет их в другую таблицу 0

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	21.05.2013, 10:21 [ТС]
	а есть вариант избежать использование переменных?ибо я пробую чистый запрос с датами заданными изначально и все получается нормально 0

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	21.05.2013, 10:40 [ТС]
	Глупый вопрос)а кавычки во второй строке для переноса строк?или это такой синтаксис?) 0

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	21.05.2013, 12:23 [ТС]
	ну теперь пишет что ошибка line 1 column 35,это firebird пишет 0

@beck 0 / 0 / 0 Регистрация: 31.03.2013 Сообщений: 102
	21.05.2013, 12:33 [ТС]
	[DCC Error] Unit5.pas(49): E2015 Operator not applicable to this operand type теперь на третьей строчке вот так пишет и на четвертой также 0