ADO获取带返回参数存储过程的奇怪有关问题

ADO获取带返回参数存储过程的奇怪问题
ADO获取带返回参数存储过程的奇怪问题，十分不解，不解之处见注释

例子中的存储过程可以自己构造，比较简单，连接语句也不给出了

VB code

Private Sub Command2_Click()    Dim cmd         As ADODB.Command    Dim p1          As ADODB.Parameter    Dim p2          As ADODB.Parameter    Dim rstRet      As ADODB.Recordset        Set cmd = New ADODB.Command    'p_getMaxID为存储过程名字，有2个参数，第二个参数为Output    With cmd        .CommandText = "p_getMaxID"        .CommandType = adCmdStoredProc        Set .ActiveConnection = 你的有效连接对象                Set p1 = .CreateParameter("OrderName", adVarChar, adParamInput, 30, "asdf")        Set p2 = .CreateParameter("MaxID", adInteger, adParamOutput)                '如果这里加了注释的这个语句，会出错        'MsgBox .Parameters.Count        .Parameters.Append p1        .Parameters.Append p2                '如果这里加了注释的这个语句，得不到Ouput返回值'        Set rstRet = .Execute        .Execute                MsgBox p2.Value            End With        End Sub

[解决办法]
我以前有同样的问题，后改了下
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = m_Cn
cmd.CommandText = strSQL
'cmd.CommandType = adCmdFile
idx = m_colParameters.Count
Dim varParams() As Variant
ReDim varParams(idx)
For idx = 1 To m_colParameters.Count
' Set objParam = cmd.CreateParameter(CStr(idx), adVariant, adParamInput)
' objParam.Value = CVar(m_colParameters.Item(idx))
' cmd.Parameters.Append objParam
varParams(idx) = CVar(m_colParameters.item(idx))
Next
'*** set the parameter collection to nothing so it is not
'*** used again
Set m_colParameters = Nothing
Set rs = cmd.Execute(, varParams)

[解决办法]

探讨

设置了set nocount on 也没用的，我的存储过程里有这个语句，不过貌似这个问题与它无关
设置set nocount on 只是和取记录集中数据有关系吧？

查看更多 下一篇