Поиск в Delphi

[Katrina_89]

В общем дело такое. нужно осуществить поиск данных в таблице(). я попыталась описать кнопку поиска, но почему то все безрезультатно, ошибок программа не выдает, но и поиска не производит.БД в Access, она уже связана с делфи, остается только поиск.
вот код нажатия кнопки поиск:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
 Edit1.Text:= find ;
  if find <> '' then begin
    form1.ADOQuery1.Close;       
    form1.ADOQuery1.SQL.Clear;  
    form1.ADOQuery1.SQL.Add('SELECT * FROM knigi WHERE Avtor = "'+find+'"'); 
   form1.ADOQuery1.Open;         
 end;
    if form1.ADOQuery1.RecordCount <> 0 then /
   form1.DataSource1.DataSet:=form1.ADOQuery1 
	else begin 
	ShowMessage('Запись не найдена.'); 
	form1.ADOQuery1.Close; 
	form1.ADOQuery1.SQL.Text := 'SELECT * FROM [knigi]'; 
	form1.ADOQuery1.Open; //выполняем то, что выше SELECT * FROM [books]
end; 
end; 

end.

[artemavd]

А если использовать FindFirst, FindNearest, FindNext?

[Stilet]

form1.ADOQuery1.SQL.Add('SELECT * FROM knigi WHERE Avtor = "'+find+'"');

А сам то запрос если в Акцессе выполнить он что-нибудь выдает?

form1.ADOQuery1.SQL.Text := 'SELECT * FROM [knigi]';
form1.ADOQuery1.Open; //выполняем то, что выше SELECT * FROM [books]

А это что? Смысл такого запроса?

[Dark_Spirit]

может для начала попытаемся избавиться от form1, возле

form1.ADOQuery1......

судя из наведённой выше процедуры, и кнопка, и едит, и квери все на одной форме.
Тогда можно переделать процедуру таким образом:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked 
   then
    begin
     if trim(edit1.text) <> '' 
      then 
       begin
         // предлагаю заменить ADOQuery1 на ADODataset1
        if adodataset1.active
         then adodataset1.active:=false;
        adodataset1.commandtype:=cmdText;// теперь  adodataset1 можно будет использовать как ADOQuery1    
        adodatset1.commandtext:='SELECT * FROM knigi WHERE Avtor ='+quotedstr(edit1.text);// текст запроса (равносильно ADOQuery1.SQL.Add('SELECT * ..........') )
        adodataset1.active:=true; 
        if not(adodataset1.isempty) // проверяем пустой или нет набор
         then
           begin
             DataSource1.DataSet:=ADODataset1
           end
         else
           begin
             showmessage('Запись не найдена');
             if adodataset1.active
              then adodataset1.active:=false; 
             adodataset1.commandtype:=cmdText;
             adodataset1.commandtext:='SELECT * FROM knigi';
             adodataset1.active:=true;
           end; 
       end;
     end;
end.

[soleil@mmc]

во-первых, смутило вот это

Edit1.Text:= find ;

при том что сама переменная в этом блоке никак не описана и непонятно откуда там берется значение
во-вторых, вот это

if form1.ADOQuery1.RecordCount <> 0 then

на больших объемах само по себе может долго работать

и Dark_Spirit уже показал как можно улучшить ваши потуги

[grom333]

Могу подсказать хороший поиск только не по кнопке а по поисковым полям.