- 论坛徽章:
- 0
|
例子:存储过程名称是:P_CancelNew
sql = \" begin\"
sql = sql & \" declare @ret int,@jymc varchar(20),@je money\"
sql = sql & \" declare @ysk_old money,@ysk_new money,@fwqx_new datetime\"
sql = sql & \" begin tran\"
sql = sql & \" exec @ret=P_CancelNew \"
sql = sql & \"\'\" & NodeID & \"\',\'\"
sql = sql & OperatorID & \"\',\'\"
sql = sql & strFpbh & \"\',\"
sql = sql & \"\'\" & strConfirmOpId & \"\',\"
sql = sql & \" @jymc output,@je output,@ysk_old output,@ysk_new output,@fwqx_new output\"
sql = sql & \" select @ret as code ,@jymc as jymc,@je as je,@ysk_old as ysk_old,@ysk_new as ysk_new,@fwqx_new as fwqx_new\"
sql = sql & \" rollback \"
sql = sql & \" end\"
Set rs = mainbase.OpenRecordset(sql, dbOpenDynaset)
ReturnCode = rs.Fields(\"code\" |
|