Фильтр несколько дней с интервалом

[Scorpuha]

вот такая задачка: нужно фильтровать данные в таблице, но непросто (по крайней мере для меня).
К примеру сегодня 17.02.14. Нужны выбрать данные за сегодня + данные за 19.02.14 + данные за 21.02.14. Вот. Данные за сегодня нахожу а вот как сделать остальное пока понять не могу
это код фильтрации за сегодня.

datamodule2.Attestat.Filtered:=false;
datamodule2.Attestat.Filter :='Data_pereatestat='''+DateToSTr(Now)+'''and Tabel='+Form7.Edit1.Text;
datamodule2.Attestat.Filtered:=true;

[Stilet]

Какая СУБД?

[Scorpuha]

эээ извиняюсь. Acces

[Stilet]

Хм... Раз это фильтр в Делфи и у тебя канает твой пример то попробуй так:

datamodule2.Attestat.Filter :='Data_pereatestat='+QuotedStr(DateToSTr(Now))
 +' and Data_pereatestat='+QuotedStr('19.02.14')
 +' and Data_pereatestat='+QuotedStr('21.02.14')
 +' and Tabel='+Form7.Edit1.Text
;

[Аватар]

Ну с AND не очень то за разные дни. OR думаю.
Да и лучше сложные фильтры, особенно с датами, перенести в событие датасета OnFilterRecord

[Stilet]

Ну с AND не очень то за разные дни.

Упс!!! Суримасен.
Действительно затупил

[Scorpuha]

эээ, немножко неправильно задачу огласил. пример с конкретными датами некорректен. нужен просто фильтр за текущий день и плюс фильтр данных за послезавтра и плюс фильтр данных за послепослезавтра. как то так. т.е. Now, NOW+2 дня, NOW+4 дня.

[Stilet]

Ага! Соодеска...
Значит этот пример не пашет )
Видимо все действительно лучше вынести в OnFilteredRecord, и просто включать фильтрацию без строки фильтра, и пусть это событие проверяет поле с датой.

procedure TForm1.SQLQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var dt:TDate;
begin
  dt:=DataSet.FieldByName('Дата').AsDateTime;
  Accept:= (dt=now) or (dt=StrToDate('17.02.2014'));
end;

[Scorpuha]

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

Хм... Раз это фильтр в Делфи и у тебя канает твой пример то попробуй так:

datamodule2.Attestat.Filter :='Data_pereatestat='+QuotedStr(DateToSTr(Now))
 +' and Data_pereatestat='+QuotedStr('19.02.14')
 +' and Data_pereatestat='+QuotedStr('21.02.14')
 +' and Tabel='+Form7.Edit1.Text
;

этот код даже не пробовал, т.к. он фильтрует по фиксированным датам. а нужно NOW, Now+2дня, Now+4дня.

[Scorpuha]

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

Ага! Соодеска...
Значит этот пример не пашет )
Видимо все действительно лучше вынести в OnFilteredRecord, и просто включать фильтрацию без строки фильтра, и пусть это событие проверяет поле с датой.

procedure TForm1.SQLQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var dt:TDate;
begin
  dt:=DataSet.FieldByName('Дата').AsDateTime;
  Accept:= (dt=now) or (dt=StrToDate('17.02.2014'));
end;

а этот код походу делает фильтр за текущую дату или за 17.02.2014.