|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как сделать поиск по dbgrid с помощю ado?
помогите плиз новичку как сделать поиск по dbgrid с помощю ado
а то меня точно выпрут из вуза |
#2
|
|||
|
|||
Цитата:
Код:
procedure TPokupateli.Edit1Change(Sender: TObject); begin if (edit1.text<>'') then begin dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')'; dm.org_table.Filtered:=true; end else dm.org_table.Filtered:=false; end; dm - модуль данных, если таблица находится на форме то можно не указывать org_table - Название таблицы Название - поле по которому будет осуществляться фильтрация. |
#3
|
|||
|
|||
Windaws, это фильтрация.
Если поиск, то нужно либо пользовать Locate, либо руками по источнику данных и проверять: Код:
procedure TForm1.Findrecord(AFieldName, AFieldValue : String; AReset : Boolean); begion ADOQuery1.DisableControls; // Не помню, может надо у TDataSource вызывать. Try If AReset Then ADOQuery1.First Else ADOQuery1.Next; While Not ADOQuery1.EOF Do Begin If ADOQuery1.FieldByName(AFieldName).AsString = AFieldValue Then Exit; ADOQuery1.Next; End; ShowMessage('Ничего не найдено...'); Finally ADOQuery1.EnableControls; End; end; Код только на точное сравнение и не разбирает типы данных - это только пример. |
#4
|
|||
|
|||
Цитата:
TPokupateli это что ??? и к чему его привязать '(Название LIKE '''+edit1.Text+'%'')'; название в смысле базы или таблицы в базе у мну их три |
#5
|
|||
|
|||
не могу понять чего он ругается помогите плиз |
#6
|
|||
|
|||
Цитата:
|
#7
|
|||
|
|||
Цитата:
Задам Вам втсречный вопрос, сейчас нет под рукой делфи, а как сделать поиск по всем полям? Указать '' или оставить полне пустным вместо "Название" ? Последний раз редактировалось gebs, 08.08.2010 в 00:53. |
#8
|
|||
|
|||
Цитата:
Задам Вам втсречный вопрос, сейчас нет под рукой делфи, а как сделать поиск по всем полям? Указать '' или оставить полне пустным вместо "Название" ? |