With ADOStroedProc do
begin
Prepare;
Params[0].asstring:=edit1.text;
params[1].asstring:=edit2.text;
ExecProc;
end;
先传参数,然后执行!
begin
Prepare;
Params[0].asstring:=edit1.text;
params[1].asstring:=edit2.text;
ExecProc;
end;
先传参数,然后执行!
对这个控件,要不要create?
ADOStoredProcCopy.Parameters.CreateParameter('@OperationIndex',ftInteger,pdInput,4,0);
ADOStoredProcCopy.Parameters.CreateParameter('@OperationOrderNO',ftInteger,pdInput,4,0);ADOStoredProcCopy.Prepared := true;ADOStoredProcCopy.ExecProc;
try
adospSave.Connection.BeginTrans;
adospSave.Close;
adospSave.Parameters.ParamByName('@Operator').Value:=mainform.UserName;
adospSave.ExecProc;
//如果有output类型的变量则可以直接象@return_value一样直接取值
if adospSave.Parameters.ParamByName('@RETURN_VALUE').Value<>0 then
raise exception.create('存储过程执行失败。')
adospSave.Connection.CommitTrans;
except
adospSave.Connection.RollbackTrans;
raise;
end;