Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2015, 22:11   #1
Shhakote
Пользователь
 
Регистрация: 25.03.2015
Сообщений: 13
По умолчанию Диапазон дат.

Доброго времени дня.
Помогите, пожалуйста, разобраться.
Есть одна БД. Необходимо сделать сортировку в диапазоне дат.
Тип данных [Дата] в аксессе - дата и время, формат - краткий формат даты.
Вот собственно то, что у меня не получилось.

Код:
procedure TForm1.Button3Click(Sender: TObject);
begin
    ADOTable1.Filtered:=false;
    ADOTable1.Filter:='[Дата]>='+DateToStr(DateTimePicker1.date)+' AND [Дата]<= '+DateToStr(DateTimePicker2.date);
    ADOTable1.Filtered:=true;
end;
Shhakote вне форума Ответить с цитированием
Старый 18.12.2015, 22:19   #2
come-on
Участник клуба
 
Регистрация: 21.10.2015
Сообщений: 1,361
По умолчанию

получите примерно типа
[Дата]>=1/1/2001 AND [Дата]<= 1/1/2001

как думаете поймет кто нибудь что тут?
come-on вне форума Ответить с цитированием
Старый 18.12.2015, 22:24   #3
Shhakote
Пользователь
 
Регистрация: 25.03.2015
Сообщений: 13
По умолчанию

Т.е. значение из DateTimePicker не считываются?
Shhakote вне форума Ответить с цитированием
Старый 18.12.2015, 22:27   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Дата должна быть закавычена. А лучше всего фильтры с датой в OnFilterRecord засунуть. И не забудь - в DateTimePicker1.date еще время есть. На тот случай если в OnFilterRecord будешь сравнивать
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 18.12.2015 в 22:31.
Аватар вне форума Ответить с цитированием
Старый 18.12.2015, 22:28   #5
come-on
Участник клуба
 
Регистрация: 21.10.2015
Сообщений: 1,361
По умолчанию

Цитата:
Т.е. значение из DateTimePicker не считываются?
у меня считалось неужели не видно?
come-on вне форума Ответить с цитированием
Старый 18.12.2015, 22:39   #6
Shhakote
Пользователь
 
Регистрация: 25.03.2015
Сообщений: 13
По умолчанию

Спасибо, сейчас попробую.
Shhakote вне форума Ответить с цитированием
Старый 18.12.2015, 23:04   #7
Shhakote
Пользователь
 
Регистрация: 25.03.2015
Сообщений: 13
Печаль

Пробую хотя бы с определенной записи отфильтровать, но опять что-то делаю не так

Код:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:= (DataSet['Äàòà'] >= (DateTimePicker1.date));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Adotable1.Filtered:=false;
  Adotable1.Filtered:=true;
  end;
Shhakote вне форума Ответить с цитированием
Старый 18.12.2015, 23:17   #8
come-on
Участник клуба
 
Регистрация: 21.10.2015
Сообщений: 1,361
По умолчанию

что с чем вы сравниваете?
come-on вне форума Ответить с цитированием
Старый 18.12.2015, 23:20   #9
Shhakote
Пользователь
 
Регистрация: 25.03.2015
Сообщений: 13
По умолчанию

DataSet['Дата'] и значение DateTimePicker1
Shhakote вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверить входит ли текущая дата в диапазон дат? artemavd Общие вопросы Delphi 6 16.11.2012 21:32
диапазон дат для формирования запроса T11 Microsoft Office Access 6 28.07.2011 13:36
Разница дат Ver0nica Общие вопросы Delphi 1 30.05.2009 18:38
Формат дат lalilulelo Помощь студентам 10 27.04.2009 14:55
Как написать в коде чтобы диапазон А копировался как значение в диапазон В. Dorvir Microsoft Office Excel 12 23.05.2008 22:11