存储过程有8个参数,如下 
 @branch_id   varchar(20),
 @subbranch_id varchar(20),
 @operator_name varchar(50),
 @carry_time datetime, 
 @bol_flag varchar(10) OUTPUT, 
 @rent_carry_tot float output, 
 @rent_times_tot int output,
 @error int output
在调用的时候
strProc = "carry_rent( '001','0123','test','2005-11-18','','','','')"
Set rs = Conn.Execute(strProc, RecordsAffected, Options)
结果存储过程执行了,但是rs记录集报错该对象已经关闭
无法得到返回的参数,求正确的写法。谢谢了

解决方案 »

  1.   

    2) 追加参数法调用存储过程  追加参数通过CreateParameter方法,用来指定属性创建新的Parameter对象。具体语法如下:
    Set parameter = command.CreateParameter (Name, Type, Direction, Size, Value)  ·Name 可选,字符串,代表 Parameter 对象名称。
      ·Type 可选,长整型值,指定 Parameter 对象数据类型。
      ·Direction 可选,长整型值,指定 Parameter 对象类型。
      ·Size 可选,长整型值,指定参数值最大长度(以字符或字节数为单位)。
      ·Value 可选,变体型,指定 Parameter 对象值。  这种方法与上面一种方法的分别主要在于,追加参数的方法在向存储过程传递参数时,这种方法首先通过CreateParameter方法为存储过程创建参数,然后通过Append方法将创建的参数追加到Parameters集合中去。  仍然以存储过程doc_ProcName的调用为例,关键代码如下:Dim mRst As ADODB.Recordset 'Recordset 对象表示的是来自基本表或命令执行结果的记录全集。
    Dim prm As ADODB.Parameter 'Parameter 对象代表参数或与基于参数化查询或存储过程的Command 对象相关联的参数。
    adoconn.ConnectionString = Adodc1.ConnectionString 
    adoconn.Open
    Set adocomm.ActiveConnection = adoconn 
    adocomm.CommandText = "doc_ProcName" 
    adocomm.CommandType = adCmdStoredProc 
    Set prm = adocomm.CreateParameter("parameter1", adTinyInt, adParamInput, , "1")
    adocomm.Parameters.Append prm
    Set prm = adocomm.CreateParameter("parameter2", adInteger, adParamOutput)
    adocomm.Parameters.Append prm
    Set mRst = adocomm.Execute
    ReturnValue = adocomm.Parameters(0)**************************************************
    1) 直接传递参数调用存储过程  直接传递参数方法主要通过以下几个步骤来实现:  (1) 通过ADODB的Connection对象打开与数据源的连接;  (2) 通过ActiveConnection指定Command对象当前所属的Connection对象;  (3) 通过CommandText属性设置Command对象的源,即要调用的存储过程;  (4) 通过CommandType属性确定Command对象的源类型,如果源类型为存储过程CommandType即为adCmdStoredProc;  (5) 通过Command对象的Parameters集合向所调用的存储过程传递参数,其中对象Parameters(0)为执行存储过程的返回值,返回值为0则执行存储过程成功;  (6) 通过Eexecute方法执行在 CommandText 属性中指定的存储过程。  以存储过程doc_ProcName为例,关键代码如下:
    Dim strS As String '定义一变量
    Dim adoconn As New ADODB.Connection 'Connection 对象代表了打开与数据源的连接。
    Dim adocomm As New ADODB.Command 'Command 对象定义了将对数据源执行的指定命令。
    Dim ReturnValue As Integer '调用存储过程的返回值
    adoconn.ConnectionString = Adodc1.ConnectionString 'Adodc1为窗体中的ADO控件,并已成功连接数据库
    adoconn.Open
    Set adocomm.ActiveConnection = adoconn '指示指定的 Command对象当前所属的 Connection对象。
    adocomm.CommandText = "doc_ProcName" '设置Command对象源。
    adocomm.CommandType = adCmdStoredProc '通知提供者CommandText属性有什么,它可能包括Command对象的源类型。设置这个属性优化了该命令的执行。 
    adocomm.Parameters(1) = "1"
    adocomm.Parameters(2) = "OutputParameters" 'OutputParameters可以为任意的字符串或数字
    adocomm.Execute
    ReturnValue = adocomm.Parameters(0) '存储过程的返回值,返回0则成功执行。
    strS = adocomm.Parameters(2) '把存储过程的输出参数的值赋给变量strS