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

← →
Vita-mebel (2005-05-26 10:41) [0]

Почему не работает поиск по базе данных. Этот пример взят из книги Фленова Михаила "Библия 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;

← →
Desdechado © (2005-05-26 10:45) [1]

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

← →
-=XP=- © (2005-05-26 10:46) [2]

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

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

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

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

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