Показать сообщение отдельно
  #3  
Старый 08.11.2024, 10:40
Filen Filen вне форума
Прохожий
 
Регистрация: 23.05.2024
Сообщения: 11
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Guaho
Код:
DataModule2.ADOQueryApteka.SQL.Add('SELECT DataProdagi, idPrepar, NamPreparat FROM [AptekaProdaga]');
DataModule2.ADOQueryApteka.SQL.Add('WHERE [DataProdagi] ((BETWEEN ' + d1 + ' AND ' + d2 + ') AND (idAA = ' + id)));
DataModule2.ADOQueryApteka.SQL.Add('ORDER BY NamPreparat ASC');
где (отдельно прописать в обработчике)
Код:
var
d1, d2, id: String;
....
d1 := DateEdit1.Date;
d2 := DateEdit2.Date;
id := Edit1.Text; // к примеру
Поскольку текст SQL-запроса формируется динамически, то в данном примере параметры не используются, всё прописывается текстом.
Простыми словами, Вам в запросе должна быть строка "где дата продажи лежит в диапазоне..., и id равен такому-то".

т.е. я правильно понимаю в моем случае
Код:
var
d1,d2,id: String;
idAA:Integer;
......

idAA:=9212337; ///искомый id

d1 := DAteToStr(DateEdit1.Date);
d2 := DAteToStr(DateEdit2.Date);
id :=IntToStr(idAA);
??
в таком случае в строке
Код:
DataModule2.ADOQueryApteka.SQL.Add('WHERE [DataProdagi] ((BETWEEN ' + d1 + ' AND ' + d2 + ') AND (idAA = ' + id )));
ошибка 'END' expected but ')' found, так понимаю что то не то с типом данных ?
Ответить с цитированием