Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.11;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.058 c
14-1118651662
syte_ser78
2005-06-13 12:34
2005.07.11
Вопрос по HTML


8-1109859840
Evgensp
2005-03-03 17:24
2005.07.11
Помогите с визуализацией картинки


14-1118310091
WondeRu
2005-06-09 13:41
2005.07.11
Посоветуйте ПО для определения утечек памяти


14-1118254778
digger
2005-06-08 22:19
2005.07.11
Обрезали UTP кабель :-(


6-1112683496
Axer
2005-04-05 10:44
2005.07.11
Из Ethernet в Com-порт