جستجو در grid به کمک پروسیجر

قصد دارم با استفاده از یک پروسیجر و فرستادن پارامتر آن از طریق یک Editbox روی یک جدول عملیات جستجو را انجام بدهم
کد پروسیجر با شکل زیر است:

کد:
create procedure p1 (@a int)asSelect * from serviceswhere ids = @a
کد دلفی هم یه شکل زیر:

کد:
ADOStoredProc1.Parameters.ParamByName('@a') .Value := edit1.Text;ADOStoredProc1.ExecProc;ADOTable1.activ e := false;ADOTable1.active := true; لطفا راهنمایی کنید که چرا بدون دادن خطا هیچ اتفاقی در جدول رخ نمیدهبا تشکر

میتونی به کمک کد در دلفی به راحتی اون رو بنویسی.

تو خود دلفی Query مربوط به دی بی گریدتو ببند و براش با دستور SQL سرچ بنویس.

کد:

---

procedure TSearch_Frm.Code_EdtChange(Sender: TObject);
var
  S:String;
begin
  Search_Query.Close;
  Search_Query.SQL.Clear;
  if Code_Edt.Text <>'' then
    begin
      S:='select * from '+Nam_Table_Edt.Text+' where code='+Code_Edt.Text;
    end
  else
    S:=('select * from '+Nam_Table_Edt.Text );
  Search_Query.SQL.Add(s);
  Search_Query.Open;
  Search_Query.ExecSQL;

---