vb怎么接收一个储存过程返回的参数的值

Question

我也想知道那  看看答案吧

Answer 1

参考如下代码：dim cmd as ADODB.Command
set cmd=new ADODB.Command
set cmd.ActiveConnection 
cmd.CommandText="spSum"
cmd.CommandType=adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter(,adInteger,adParamInput,,5)    '参数1
cmd.Parameters.Append cmd.CreateParameter(,adInteger,adParamInput,,7)    '参数2
cmd.Parameters.Append cmd.CreateParameter("theSum",adInteger,adParamOutput)'输出参数
cmd.Parameters.Append cmd.CreateParameter("RetVal",adInteger,adParamReturn)'返回值参数
cmd.ExecuteDebug.Print "All Parameters in cmd object,including INPUT , OUTPUT , RETURN :"
for each param in cmd.Parameters
     Debug.Print "    " & param.Name & " : "
     Debug.Print "           " & param.Type & " = " & param.Type
     Debug.Print "           " & param.Value & " = " & param.Value
     Debug.Print "           " & param.Size & " = " & param.Size
     Debug.Print
next param