Организация поиска в бд

[Rainkhz]

Всем доброго времяни суток!
Прошу вас о помощи!
Требуется организовать простенький поиск в БД,
Вводиш в Edit значение, нажимаш на кнопку, и чтоб он произвел поиск в одном каком нибудь столбце.
(база access подключена через ADO, отображается DBgrid - ом)

[Mollerat]

Организовать поиск можно через фильтры (свойство filter).

ADOTable.filtered:=true; 
ADOTable.filter:='{Имя записи} LIKE = '+ #39 + '%' + Edit.Text + '%' + #39;

Это поиск по тексту


если имеем дела с цифрами то делаем так

ADOTable.filtered:=true;
ADOTable.filter:='{Имя записи} = '+ Edit.Text ;

Отменить фильтр и вернуть все в обычное состояние

ADOTable.filtered:=false;

[Rainkhz]

А что вставлять в {Имя записи}?

[Rainkhz]

Вылазет ошибка "Аргументы, имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

[Mollerat]

Имя записи по другому это имя поля. заголовок столбца по которому идет поиск. Прости опечатался

ADOTable.filtered:=true; 
ADOTable.filter:='{Имя записи} LIKE '+ #39 + '%' + Edit.Text + '%' + #39;

надо без "="

[Rainkhz]

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

[Mollerat]

Не за что

П С Для спасибо нажми средний значек под аватаром "Весы" мелоч а приятно

[loki22208]

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

Вылазет ошибка "Аргументы, имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

Такая же беда.
Причем на одной форме нормально работает, а на другой выдает вышеуказанную ошибку. Код такой:

if Length(Edit1.Text)>0 then
DataModule5.BookTable.Filtered:=tru e else
DataModule5.BookTable.Filtered:=fal se;
DataModule5.BookTable.Filter:='Номе р группы>'''+Edit1.Text+'''';

а в DataModule:

procedure TDataModule5.BookTableFilterRecord( DataSet: TDataSet;
var Accept: Boolean);
begin
Accept:=false;
if copy(BookTableDSDesigner.AsString,1 ,Length(Form3.Edit1.Text))=
Form3.Edit1.Text then
Accept:=true;
end;

[loki22208]

Все с проблемой справился название поля надо было в квадраные скобки брать
if Length(Edit1.Text)>0 then
DataModule5.BookTable.Filtered:=tru e else
DataModule5.BookTable.Filtered:=fal se;
DataModule5.BookTable.Filter:='[Номер группы]>'''+Edit1.Text+'''';