Поиск в бд

[jawa250t]

Есть Edit в который ввожу критерий поиск по фамилии, вот только в dbGrid-е выводится совсем не то что нужно

procedure TForm1.FindEditChange(Sender: TObject);
begin
if length(findEdit.Text)>0 then
Datamodule2.BookName.Filtered:=true
else
datamodule2.BookName.Filtered:=false;
datamodule2.BookName.Filter:='Фамилия>'''
+FindEdit.Text+'''';
end;

что не так?

[RuVarez]

А какую БД используете?

[Аватар]

Примерно так

  if length(findEdit.Text)>0 then begin
    datamodule2.BookName.Filtered:=false;
    datamodule2.BookName.Filter:='Фамилия>'''+FindEdit.Text+'''';
    Datamodule2.BookName.Filtered:=true;
  end
  else datamodule2.BookName.Filtered:=false;

И если по хорошему, то использовать лучше Trim(findEdit.Text), а не в лоб findEdit.Text. Или вас устраивает фильтр по куче пробелов? Да и само условие Фамилия> какоето корявое.

[jawa250t]

бд Access!

[jawa250t]

Исправил код, а толку нету) опять то же самое, ввожу фамилию - выводится другая или совсем ничего не происходит!

[i_Alishka]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(FindEdit.Text)>0 then
DataModule2.Bookname.Filtered:=true
else
DataModule2.Bookname.Filtered:=false;
end;

а если так попробовать

[Аватар]

Ваше условие Фамилия>чего-то само по себе бестолковое