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

[TaTT DoGG]

посмотри плз исходник...
дело в том, что другие запросы, например UPDATE работают... после запроса refresh использую и записи обновляются... а вот с Select такая вот фигня

[maladoy]

Сообщение от TaTT DoGG

посмотри плз исходник...
дело в том, что другие запросы, например UPDATE работают... после запроса refresh использую и записи обновляются... а вот с Select такая вот фигня

вопрос где его взять? a update и insert работают потому что сама таблица изменяется а select это просто выборка!!!

[TaTT DoGG]

исходник тремя сообщениями выше ))

[maladoy]

чего то невижу номер поста скажи !!!

[TaTT DoGG]

http://rapidshare.com/files/200421285/sql.rar.html

[maladoy]

 procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADOQuery1 do begin
    Close;
    with SQL do begin
      Clear();
      Add('SELECT Дата, Наименование, Цена, [Кол-во/Вес], Стоимость');
      Add('FROM Продукты');
      Add('WHERE (Дата>=#1/12/2009# AND Дата<#2/12/2009#)');
    end;
	active:=true; // а query кто активировать будет!!!
    ExecSql;
  end;
datasource1.DataSet:=ADOQuery1; // и у компонента query свойство datasource сделай пустым
end;

я тебе в 40 посте про это писал!

[TaTT DoGG]

datasource1.DataSet:=ADOQuery1; // и у компонента query свойство datasource сделай пустым

вот этого мне и не хватало
спасибо

[RaMoNeZz]

Сообщение от TaTT DoGG

столбец типа дата!
мой запрос выполняется в access'e а тут он выполняется но не обновляется таблица

у меня тоже в аксессе! заходишь в конструктор столбец дата формать fkData а не Текст или что то другое.. и соответсвенно если там они отображаються как 1/12/2009 то и поиск такой же если там 1.12.2009 то и в поиске 1.12.2009...
попробуй так
Add('WHERE Дата between DATEVALUE("1/12/2009")And DATEVALUE("2/12/2009")');


смотрю я опоздал но лишним не будет

[TaTT DoGG]

да, я использовал between )
спасибо и тебе

[Vova20years]

ребята у меня та же проблема что и в начале этого поста, ваши коды не работают!! т.е. мне по числовому коду надо чтобы отображались все записи, например:
запись1 1288
запись2 1233
запись3 132

я ввожу 1--выходят все 3 записи, добавляю 2 (12)--уже 2 записи остаются!!

взял самый простенький пример, мне регистр как вы понимаете не важен! :-)

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
   accept:=(pos(Edit1.Text,DataSet.Fields[0].AsString)<>0) or (Edit1.Text='');

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
ADOTable1.Filtered:=false;
ADOTable1.Filtered:=true;
end;