怎样动态创建ado存储过程控建并使用传参数
我的程序:
aspTemp :=tadostoredproc.Create(nil);
asptemp.Connection :=DM_SysInit.cntSysInit;
asptemp.ProcedureName :='SysS_Error';
with asptemp do
begin
Active :=false;
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
执行传参数时出错
我的程序:
aspTemp :=tadostoredproc.Create(nil);
asptemp.Connection :=DM_SysInit.cntSysInit;
asptemp.ProcedureName :='SysS_Error';
with asptemp do
begin
Active :=false;
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
执行传参数时出错
asptemp.Connection :=DM_SysInit.cntSysInit;
asptemp.ProcedureName :='SysS_Error';
//刷新一下
asptemp.Params.Refresh;
//
with asptemp 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