Фильтрация записей в таблице

[Dark_Spirit]

А если воспользоваться компонентой ADOQuery например так:

sql_:='select * from <имя_вашей_таблицы>'+
         'where <имя_поля> <'+chr(39)+<значение_даты1>+chr(39)+
         'and <имя_поля> >'+chr(39)+<значение_даты2>+chr(39);
 ADOQuery.SQL.clear;
 ADOQuery.SQL.ADD(sql_);
 ADOQUery.open;

[vovk]

ADOTable1.Filter:='Дата<'+QuotedStr('15.02.2009')+' or Дата>='+QuotedStr('12.03.2009');
ADOTable1.Filtered:=true;

А так не подходит?

[Stilet]

Вообще-то, автор, есть модуль работы с датами DateUtils
С помошью него по моему примеру (если остальные описаные тут не катят) получай месяц и проверяй.
Ченить типа:

accept:=(MonthOf(ADOTable1.FieldByName('Дата').AsDateTime) in [4..5])

[TaTT DoGG]

вчера сделал через SQL

with ADOQuery1 do begin
    with SQL do begin
      Close();
      Clear();
      Add('SELECT Дата, Наименование, Цена, [Кол-во/Вес], Стоимость');
      Add('FROM Продукты');
      Add('WHERE (Дата>=#1/12/2009# And Дата<#2/12/2009#)');
    end;
    ExecSQL;
  end;

запрос проходит без ошибок на таблица (TDBGrid) не обновляется

[Dark_Spirit]

после ExecSQL; прописать: DBgrid.Refresh;

[TaTT DoGG]

пробовал
и dbgrid1.refresh и adotable1.refresh

[Dark_Spirit]

может так:
[code]with adoquery1 do
begin
<...............>;
<...............>;
end;
execSQL;
end;
ADOQuery1.refresh;
dbgrid1.refresh;
понимаю что "масло-масленное", но а всё же.....

[alex_fcsm]

Так ведь если запрос возвращает данные то нужно Open вместо ExecSql вроде как...

[TaTT DoGG]

всё, пробовал... и обновлять таблицу, и по разному запрос запускать
может сделает кто-нибудь какую нибудь простую базу и прогу под него с таким запросом, чтобы работало?

[vovk]

with ADOQuery1 do begin
with SQL do begin
Close();
Clear();
Add('SELECT Дата, Наименование, Цена, [Кол-во/Вес], Стоимость');
Add('FROM Продукты');
Add('WHERE (Дата>=#1/12/2009# And Дата<#2/12/2009#)');
end;
Open;
end;