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

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

Почему не работает поиск по базе данных?

Vita-mebel ©   (2005-05-26 10:41:00) 

Почему не работает поиск по базе данных. Этот пример взят из книги Фленова Михаила "Библия Delphi". При вводе в Edit1 текста ничего не происходит, ничего не ищет, DBGrid не меняется.
Помогите пожалуйста!, в интернете примеров нет, все работают с SQL-запросами, а мне нужен поиск который начинает искать уже при вводе первого символа, и желательно без SQL-запросов.

Вот пример из книги, всё сделал как написано, но не работает. Помогите! Очень-Очень нужно.

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
 ADOTable1.Filtered:=true
 else
 ADOTable1.Filtered:=false;
ADOTable1.Filter:='ТЕЛЕФОН>"'+EDIT1.Text+'"';
end;

---

-=XP=-   (2005-05-26 11:29:00) [1]

Попробуйте еще так:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 ADOTable1.Filtered := Edit1.Text <> '';
 ADOTable1.Filter := '[Телефон] LIKE ''' +Edit1.Text + '%'''
end;

---

-=XP=-   (2005-05-26 10:46:00) [2]

procedure TForm1.Edit1Change(Sender: TObject);
begin
 ADOTable1.Filtered := Length(Edit1.Text) > 0;
 ADOTable1.Filter := ' [ТЕЛЕФОН ]>"' + Edit1.Text + '"'
end;

Это из книги? Кхм...

---

Desdechado   (2005-05-26 10:45:00) [3]

после указания фильтра его нужно включить filtered:=true;

---

Наверх