怎样动态为存储过程控建添加参数

Question

ADOStoredProc ：=TADOStoredProc.create(nil);
ADOStoredProc.connication :='fddf'
ADOStoredProc.active :=false;
with ADOStoredProc do
begin
    Parameters[1].Value :=errorid;
    Parameters[2].Value :=Module;
    Parameters[3].value :=location;
    Parameters[4].Value :=bewrite;
    Parameters[5].Value :=getmycomputername;
    Parameters[6].Value :=gEmplID;
    Prepared;
    ExecProc;
end;
船参数时出错end;

Answer 1

错误太多！ADOStoredProc ：=TADOStoredProc.create(nil);
try
//ADOStoredProc.connication :='fddf' //这行有错误
ADOStoredProc.Connection:=MainData.ADOConn;
//ADOStoredProc.active :=false; //多此一举
ADOStoredProc.ProcedureName:='SPNoteLog'; //设置存储过程名称
with ADSNoteLog.Parameters.AddParameter do //逐个添加参数，依此类推
begin
  Name:='@errorid';
  Attributes:=[paNullable];
  DataType:=ftString;
  Size:=12;
end;
//......依此类推动态添加其它参数
with ADOStoredProc do
begin
    Parameters[1].Value :=errorid;
    Parameters[2].Value :=Module;
    Parameters[3].value :=location;
    Parameters[4].Value :=bewrite;
    Parameters[5].Value :=getmycomputername;
    Parameters[6].Value :=gEmplID;
    //Prepared; //多此一举
    ExecProc;
end;
finally //既然是动态产生，就应该立即释放
  ADOStoredProc.Close;
  ADOStoredProc.Free;
end;

Answer 2

ADOTable1.Connection := ADOConnection1;

Answer 3

同意楼上的，然后建立各类型的Param,就可以添加参数了