Поиск

[BastAngel]

Нужно осуществлять поиск по БД, есть такой код,

with ADOQuery1 do
begin
if active then close;
ParamByName('Íàçâàíèå').AsString:=edit1.Text;
end;
ADOQuery1.Open;
MenuTable.Refresh;
DBGrid1.DataSource:=DataSource1;
if edit1.Text = '' then DBGrid1.DataSource:=MenuSource;
end;

и есть такая ошибка,

[Error] Unit1.pas(63): Undeclared identifier: 'ParamByName'

Где я допустил ошибку?

[i_Alishka]

while ADOQuery1.Eof<>true do
begin
//здесь ваш код
...................................
....................................
 ADOQuery1.Next;
end;

[BastAngel]

Неа( ошибка все равно

[Error] Unit1.pas(66): Undeclared identifier: 'ParamByName'

[i_Alishka]

while ADOQuery1.Eof<>true do
begin
 if поле в котором надо искать.Asstring=edit1.text  then
    begin
    дальнейшие действия
    end
 ADOQuery1.Next;
end;

зачем писать ParamByName
может я не понял напиши подробнее что где надо искать и что с ним делать

[BastAngel]

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

while ADOQuery1.Eof<>true do
begin
 if поле в котором надо искать.Asstring=edit1.text  then
    begin
    дальнейшие действия
    end
 ADOQuery1.Next;
end;

зачем писать ParamByName
может я не понял напиши подробнее что где надо искать и что с ним делать

Мне надо произвести поиск по столбцу "Название"

[i_Alishka]

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

этот код надо написать в onChange для edit1

[BastAngel]

А где тут обозначается поле по которому идет поиск?

[i_Alishka]

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>0 then
ADOQuery1.Filtered:=true
else
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Название>'+ QuotedStr(edit1.Text);
end;

вот так

[Bit_Man]

ADOQuery1.Parameters.ParamValues[''] := Edit1.Text;

или

ADOQuery1.Parameters.ParamByName('').AsString := Edit1.Text

Фильтр тоже прикольно использовать.