Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с фильтрацией!!!


Kile ©   (2003-05-07 17:18:00) 

Добрый день мастера!

Чес слово, уже задалбался искать информацию...
Я новичок в этом. Никак не могу сделать фильтрацию в БД по нестрогому соответствию ((
пытался так:

procedure TForm1.Button2Click(Sender: TObject);
begin
table2.Active:= false;
table2.Filtered:=true;
table2.Filter := ""+items.text+" = """+names.text+"""";
table2.Active:=true;
DBGrid2.Visible:=true;

end;
+items.text+ - значение поля, берется из combobox
+items.text+ - пишется значение в edit

все работает нормально, когда вводишь точное значение в edit
Но все дело в том, что у меня значения состоят из нескольких слов да еще и с прбелами.
Читал про варианты
table2.Filter := ""+items.text+" = ""%"+names.text+"%""";
Толку никакого... ((
Где-то увидел мысль что можно это сделать через OnFilterRecord но так и не смог разобратся с ним (
Помогите если кому не лень ) буду благодарен )


Kile   (2003-05-08 10:22:00) [1]

Спасибо огромное! Сработал последний вариант! Была бы возможность - поставил бы пивка )
Удачи всем!


VAleksey   (2003-05-07 18:09:00) [2]

В OnFilterRecord

Accept := pos(names.text,DataSet.FieldByName("lalala").AsString)<>0;


Kile   (2003-05-07 18:01:00) [3]

Спасибо за ответы, рабочий день уже закончился, завтра попробую эти варианты )


NickBat   (2003-05-07 17:27:00) [4]

... where myfeild like "%mytext%"
or
Table.Filter:="myfeild like "+#39+"%"+EditMy.Text+"%"+#39;


WarLord   (2003-05-07 17:26:00) [5]

Используй TQuery: SQL.Add("Select * From <table2> where "+items.text+"="""+names.text+""""


Наверх

Титульная страница Поиск, карта сайта Написать письмо