Скачать: CL | DM;

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

← →
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;

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

---

← →
-=XP=- ©   (2005-05-26 11:29) [3]

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c