Delphi Поиск в базе

[v.v.veter]

Суть такова. Есть база access. В таблице столбцы
ID,Slova,Povtor,Mesto. По нажатию кнопки происходит поиск по "Slova".

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Table.Locate('Slova',Edit1.Text,[loCaseInsensitive, loPartialKey])then
    ShowMessage('Запись не найдена');

end;

но он находит первую подходящую строку и перемещает на нее курсор.А нужно все которые подходят, и что бы их выводило в memo или типо того.
Дайте пример, или как и через, что можно это реализовать, заранее благодарен.

[Serge_Bliznykov]

примерно так (в мемо) (не забудьте настроить Connection у Adoquery)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Adoquery1.Close;
  Adoquery1.SQL.Text := 'Select * from ВаШаТаблица where Slova like '+QuotedStr('*'+Edit1.Text+'*');
  Adoquery1.Open;
  Memo1.Clear;
  while Not Adoquery1.EOF do begin
    Memo1.Lines.Append(Adoquery1.FieldByName('ID').AsString + Adoquery1.FieldByName('SLOVA').AsString + Adoquery1.FieldByName('POVTOR').AsString +Adoquery1.FieldByName('MESTO').AsString);
    Adoquery1.Next;
  end;
  Adoquery1.Close;
end;

а ещё лучше, свяжите DBGrid через DataSource с этим самым вышеприведённым ADOQuery1 - тогда увидите отобранные записи прямо в гриде..

[Serge_Bliznykov]

связал DBGrid через DataSource с этим самым вышеприведённым ADOQuery1, но что писать в ADOQuery в SQL (TStrings) ?
Какой запрос,без него не ставиться active в тру. и в итоге не работает.

А и не надо! Для проверки соединения, конечно, можете туда написать такой текст

Select * from ВаШаТаблица

Это даст возможность сделать Query активным.
Но, это только для отладки. Этот ADOQuery1 надо в DesingTime (на форме на этапе разработки) сделать Active -> FALSE
а на кнопку поместить примерно такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Adoquery1.Close;
  Adoquery1.SQL.Text := 'Select * from ВаШаТаблица where Slova like '+QuotedStr('*'+Edit1.Text+'*');
  Adoquery1.Open;
end;

ну и не забудьте везде вместо ВаШаТаблица подставить имя вашей таблицы!

[v.v.veter]

если этот код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Adoquery1.Close;
  Adoquery1.SQL.Text := 'Select * from poisk where Slova like '+QuotedStr('*'+Edit1.Text+'*');
  Adoquery1.Open;
  Memo1.Clear;
  while Not Adoquery1.EOF do begin
    Memo1.Lines.Append(Adoquery1.FieldByName('ID').AsString + Adoquery1.FieldByName('SLOVA').AsString + Adoquery1.FieldByName('POVTOR').AsString +Adoquery1.FieldByName('MESTO').AsString);
    Adoquery1.Next;
  end;
  Adoquery1.Close;
end;

то ничего не выдает
если сделать так

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
  while Not Adoquery1.EOF do begin
    Memo1.Lines.Append(Adoquery1.FieldByName('ID').AsString + Adoquery1.FieldByName('SLOVA').AsString + Adoquery1.FieldByName('POVTOR').AsString +Adoquery1.FieldByName('MESTO').AsString);
    Adoquery1.Next;
  end;
  Adoquery1.Close;
end;

то выводит все в поле мемо,ну естественно ничего не ищет.

[Serge_Bliznykov]

а так?

procedure TForm1.Button1Click(Sender: TObject);
begin
  Adoquery1.Close;
  Adoquery1.SQL.Text := 'Select * from poisk where Slova like '+QuotedStr('*'+Trim(Edit1.Text)+'*');
  Adoquery1.Open;
  Memo1.Clear;
  while Not Adoquery1.EOF do begin
    Memo1.Lines.Append(Adoquery1.FieldByName('ID').AsString + Adoquery1.FieldByName('SLOVA').AsString + Adoquery1.FieldByName('POVTOR').AsString +Adoquery1.FieldByName('MESTO').AsString);
    Adoquery1.Next;
  end;
  Adoquery1.Close;
end;

p.s. а в Edit1.Text точно указан текст, который есть в таблице Poisk в поле Slova ?! Уверены? И регистр совпадает? и русские/английские буквы не перепутаны?
Попробуйте в Edit1.Text одну букву задать, такую, что точно есть в одном из Slova...

[v.v.veter]

Чет нет,или я что-то не то делаю, вот проект. Если не лень,гляньте.

[Serge_Bliznykov]

я не знаю, кто и на каком этапе подменяет подстановочные шаблоны...
но, похоже, что вместо звездочек (как это требует оператор LIKE в ACCESS) нужно писать стандартные (как в стандарте SQL) знаки %

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

  Adoquery1.SQL.Text := 'Select * from poisk where Slova like '+QuotedStr('%'+Trim(Edit1.Text)+'%');
  Adoquery1.Open;
  ShowMessage('количество записей в выборке: '+IntToStr(ADOQuery1.RecordCount));

p.s. если хотите видеть результаты выборки в гриде - уберите в конце закрытие датасета Adoquery1.Close - убрать...

[v.v.veter]

Спасибо, заработало!