سلام دوست عزیز
می تونی از کد زیر هم استفاده کنی جستجو خیلی بهتر میشه.
البته سرعتش پایین میاید ولی برای جبران کمبود سرعت می تونی کد رو در یک storeproceduree بنویسی
و پارامتر هاشو بفرستی :
procedure TForm1.E1Change(Sender: TObject);
begin
if e1.Text<>'' then
begin
adq.SQL.Clear;
adq.SQL.Add('select * from dbname where name like '+#39+e1.Text+'%'+#39+';');
adq.Open;
end
else
begin
adq.SQL.Clear;
adq.SQL.Add('select * from dbname ;');
adq.Open;
end;
end;
پاسخ با نقل قول