找了以前的贴子。没有找到！关于存储过程返回得到return 返回的值

Question

自定义的输出参数。这个知道。想得到return 返回的！！
TKS

Answer 1

'要处理输入参数，输出参数以及一个直接返回值
'利用存储过程显示数据
 Private Sub Command3_Click()
    Set rs4 = New ADODB.Recordset
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = mConn
    cmd.CommandText = "select_users"
    cmd.CommandType = adCmdStoredProc
    '返回值
    Set param = cmd.CreateParameter("RetVal", adInteger, adParamReturnValue, 4)
    cmd.Parameters.Append param
    '输入参数
    Set param = cmd.CreateParameter("regname", adChar, adParamInput, 20, Trim(txtregname.Text))
    cmd.Parameters.Append param
    '输出参数
    Set param = cmd.CreateParameter("numrows", adInteger, adParamOutput)
    cmd.Parameters.Append param 
       
    Set rs4 = cmd.Execute()
    If cmd.Parameters("RetVal").Value = 1 Then
        MsgBox cmd.Parameters("numrows").Value
    Else
        MsgBox "没有记录"
    End If    MsgBox rs4.RecordCount
    Set DataGrid1.DataSource = rs4
    DataGrid1.Refresh
End Sub

Answer 2

http://blog.csdn.net/online/archive/2004/08/05/66376.aspx

Answer 3

哈   .Parameters(0)   自己试出来了·