Фильтрация и ADO

[Derius]

Помогите, пожалуйста.
У меня существует база в Access (содержит только 2 поля *Фамилия*, *Имя*)
Я подключаю ее в Delphi - не вопрос..
Вопрос другой - как сделать фильтр (вводя хотя бы несколько букв в Edit) чтобы пошло отсеивание в таблице, например по *Фамилия*, желательно что бы фильтровало не по нажатию кнопки, а сразу, при вводе каждой новой буквы?!
Много учебников пересмотре, все грамотные, а объяснить толком то и не могут. Я понимаю так что нужно использовать запросы...
Если у кого-то будет желание - поясните пожалуйста ((

[Zibellina]

procedure TForm1.Button5Click(Sender: TObject);
begin
 with ADOQuery2, SQL do begin
    Close;
    Text:='SELECT * FROM <название БД> WHERE <поле> like '+QuotedStr(LabeledEdit2.Text+'%')+';';
    Open;
  end;
end;

это чтоб по нажатию на кнопку...
подругому не умею...
LabeledEdit2 -поле куда записывается

[Derius]

Сообщение от Zibellina

procedure TForm1.Button5Click(Sender: TObject);
begin
 with ADOQuery2, SQL do begin
    Close;
    Text:='SELECT * FROM <название БД> WHERE <поле> like '+QuotedStr(LabeledEdit2.Text+'%')+';';
    Open;
  end;
end;

это чтоб по нажатию на кнопку...
подругому не умею...
LabeledEdit2 -поле куда записывается

Спасибо за пояснение... но, а если допустим у меня будет база с 10 000 фамилиями - я ж щелкать по кнопке устану

[Zibellina]

вобщем у тебя лайбл будет куда ты будешь вводиьт фаилию, вот там и надо будет прописать этот код

with ADOQuery2, SQL do begin
    Close;
    Text:='SELECT * FROM <название БД> WHERE <поле> like '+QuotedStr(LabeledEdit2.Text+'%')+';';
    Open;

[Zibellina]

слушай подскажи если знаешь, как создать дополнительный столбик в дбгрид?

[S@fer]

procedure TF_Main.Edit_searchKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ADOQuery.Active:=False;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('SELECT * FROM [Tablica] WHERE [FIO] LIKE "'+Edit_Search.Text+'%"');
  ADOQuery.Active:=True;
end;

Поиск происходит при вводе текста в едит

[Stilet]

Ко всему вышесказанному следует не забывать возможность отсеивания в обработчие OnFilterRecord, пример которого в хелпе Делфи.

[Derius]

Сообщение от S@fer

procedure TF_Main.Edit_searchKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ADOQuery.Active:=False;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('SELECT * FROM [Tablica] WHERE [FIO] LIKE "'+Edit_Search.Text+'%"');
  ADOQuery.Active:=True;
end;

Поиск происходит при вводе текста в едит

т.е. мне нужно написать эту процедуру автономно? (добавить еще ее в type)

Но извините если я сейчас глупость скажу -
procedure TF_Main.Edit_searchKeyU, где -
TF_Mail - это Form1 у меня
и Edit_serchKeyU - это вот что?!

[Derius]

Сообщение от Derius

т.е. мне нужно написать эту процедуру автономно? (добавить еще ее в type)

Но извините если я сейчас глупость скажу -
procedure TF_Main.Edit_searchKeyU, где -
TF_Mail - это Form1 у меня
и Edit_serchKeyU - это вот что?!

сорри, догнал уже... только вот не происходит отсеивание

[S@fer]

только вот не происходит отсеивание

Показывай код. Надеюсь DBGrid связан с тем Query в котором происходит фильтрация?