一个关于ＳＱＬ＿Ｓｅｒｖｅｒ数据库异常捕获的问题！非高手勿访！

procedure TForm1.Button1Click(Sender: TObject);
var
E:EDBEngineError;
i:integer;
begin
  try
  storedproc1.close;  //此句不可少
  storedproc1.StoredProcName := 'pro_Pepole';
  ......
  storedproc1.ExecProc;
  except
On E: EDBEngineError do
   ......
end;
end;因为你第二次再执行的时候，由于没有close掉storedproc1，所以他会再次CreateParam,因此，必须在开始的时候close掉storedproc1。