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

[killer2005]

用vb连接sql数据库，执行一个储存过程，它有一个output参数，怎么在储存过程执行完接收到这个参数的值呢？

[mustudent]

我也想知道那 看看答案吧

[OracleRoob]

参考如下代码：

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.Execute

Debug.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

[killer2005]

谢谢楼上的大侠