Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

Фильтрация в TQuery   Найти похожие ветки 

 
Andrey Filatow   (2003-05-08 16:30) [0]

Есть Query уже активированный. Как дельфовами методами (к примеру свойством filter или что нить еще ) получить результат на подобии запроса sql:
select * from table1 where id like "%hi%" ?


 
Mike Kouzmine ©   (2003-05-08 17:18) [1]

accept := (pos("hi",qt1.asString) >0);


 
Erik Ivanov   (2003-05-09 14:59) [2]

Делаеш Filter := "id like "%hi%""; - тут возможны варианты
Filtred := True;


 
Tolik1   (2003-05-09 16:11) [3]

у меня работает такой пример (правда, если строка для Like не содержит пробелов)
Здесь фильтрование происходит по нескольким параметрам.

procedure TForm1.MakeDBGrid1Filter;
begin
ADOQuery1.Filtered := False;
case RadioGroup2.ItemIndex of // признак того, что документ возвращен
0: AdoQuery1.Filter := "";
1: AdoQuery1.Filter := "Возвращен = 1";
2: AdoQuery1.Filter := "Возвращен = 0";
end;
CurrentFilter := trim(AdoQuery1.Filter);

if (Edit1.Text = "") OR (Edit1.Text = null) then
AdoQuery1.Filter := CurrentFilter
else
begin
if (CurrentFilter = "") OR (CurrentFilter = null) Then
AdoQuery1.Filter := "[ФИО агента] LIKE %"+Edit1.text+"%"
else
AdoQuery1.Filter := CurrentFilter + " AND " + "[ФИО агента] LIKE %"+Edit1.text+"%";
end;
CurrentFilter := trim(AdoQuery1.Filter);

if (Edit2.Text = "") OR (Edit2.Text = null) then
AdoQuery1.Filter := CurrentFilter
else
begin
if (CurrentFilter = "") OR (CurrentFilter = null) Then
AdoQuery1.Filter := "[Наименование организации] LIKE %"+Edit2.text+"%"
else
AdoQuery1.Filter := CurrentFilter + " AND " + "[Наименование организации] LIKE %"+Edit2.text+"%";
end;

ADOQuery1.Filtered := True;

end;



Страницы: 1 вся ветка

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-95091
Moris The Cat
2003-05-11 20:14
2003.05.29
Win98


1-94905
sevylor
2003-05-17 05:27
2003.05.29
OS


1-94787
titnn
2003-05-18 19:07
2003.05.29
timeShifted ? т.е. проигрывание файла во время его записи...


1-94852
NAlexey
2003-05-19 16:11
2003.05.29
Непрозрачный bitmap в TDragImageList?


3-94729
AlexA
2003-05-06 14:52
2003.05.29
Как программно раскрыть Lookup поле у DBGrid a?