Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.05.2013, 10:20
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию Работа со временем

Доброго дня всем! вывожу в 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  
Старый 31.05.2013, 10:28
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

http://platonov-andrei.narod.ru/Delphi/DateTimeUtil.htm

Код:
 ...where поле_дата >=  DateTimePicker1 AND поле_дата <=  DateTimePicker2 
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")

Последний раз редактировалось Mrak, 31.05.2013 в 10:32.
Ответить с цитированием
  #3  
Старый 31.05.2013, 10:31
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию

не нашел там ничего подходящего.
Ответить с цитированием
  #4  
Старый 31.05.2013, 10:33
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

отредактировал)
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
  #5  
Старый 31.05.2013, 10:54
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию

пишет недопустимое имя столбца DateTimePicker1

s2:=' and date > = DateTimePicker1 and date < = DateTimePicker2 order by '+order;

Последний раз редактировалось Kis, 31.05.2013 в 11:03.
Ответить с цитированием
  #6  
Старый 31.05.2013, 11:37
Kis Kis вне форума
Новичок
 
Регистрация: 02.09.2011
Сообщения: 76
Репутация: 11
По умолчанию

Спасибо за ответа, нашел выход
Ответить с цитированием
  #7  
Старый 31.05.2013, 11:55
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

в базе надеюсь дата - тип дата

на спасибо кнопка есть!
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:46.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter