大家看看我写的调用存储过程有什么错误？

Question

代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if self.ADOSPT.Active=true then
    self.ADOSPT.Active:=false;
  self.ADOSPT.ProcedureName:='sp_addlinkedserver';
  self.ADOSPT.Parameters.ParamByName('@server').Value:='test4'; 
  self.ADOSPT.Parameters.ParamByName('@datasrc').Value:='jth';
  self.ADOSPT.Parameters.ParamByName('@srvproduct').Value:='oracle';
  self.ADOSPT.Parameters.ParamByName('@provider').Value:='MSDAORA';
  self.ADOSPT.ExecProc;end;
以上的sp_addlinkedserver是SQL中现存的存储过程。我在SQL中可以执行以下的代码，但在上面却不行，是不是调用上有什么问题?EXEC sp_addlinkedserver
   @server = 'test',
   @srvproduct = 'Oracle',
   @provider = 'MSDAORA',
   @datasrc = 'jth'
GO

Answer 1

老是提示参数@server找不到,我用的是ADO中的ADOStoredProc1组件

Answer 2

你的存储过程组件，连接字符串设置了吗？
你把那个存储过程组件删了，然后重新添加一个 ，在设计期静态绑定存储过程名和连接字符串，看看能不能找到参数。顺便说一声，你的self都可以不要的。

Answer 3

问题解决了，原来我没有用：ADOStoredProc1.Parameters.AddParameter.Name:='@server';