![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Доброго дня всем! вывожу в DbGrid данные за дату выбранную в DateTimePicker1. Добавил второй DateTimePicker2, нужно сделать чтобы выводились данные за период времени между 1 и 2 DateTimePicker. Подскажите пожалуйста синтаксис. Вывожу из дб sql. таким образом:
Код:
procedure TForm1.reset(date: tdatetime);
var
s1,s2:string;
y,m,d:word;
begin
order_();
decodedate(form1.DateTimePicker1.Date,y,m,d);
date:=encodedate(y,m,d);
dm.ADODSmed.Active:=false;
s1:='select * from med_j, persons,podr where med_j.cperson = persons.nrec and persons.podr_L = podr.nrec ';
s2:=' and date = cast ('+quotedstr (datetostr (date))+' as datetime ) order by '+order;
dm.ADODSmed.CommandText:=s1+s2;
dm.ADODSmed.Active:=true;
end; |
|
#2
|
||||
|
||||
|
http://platonov-andrei.narod.ru/Delphi/DateTimeUtil.htm
Код:
...where поле_дата >= DateTimePicker1 AND поле_дата <= DateTimePicker2 Последний раз редактировалось Mrak, 31.05.2013 в 10:32. |
|
#3
|
|||
|
|||
|
не нашел там ничего подходящего.
|
|
#4
|
||||
|
||||
|
отредактировал)
|
|
#5
|
|||
|
|||
|
пишет недопустимое имя столбца DateTimePicker1
s2:=' and date > = DateTimePicker1 and date < = DateTimePicker2 order by '+order; Последний раз редактировалось Kis, 31.05.2013 в 11:03. |
|
#6
|
|||
|
|||
|
Спасибо за ответа, нашел выход
|