如何从存储过程中返回值

Question

有存储过程test value1,value2
其中value1为输入参数，value2为输出值
请问如何在VB中得到value2的值

Answer 1

Dim cmm As New ADODB.Command
    cmm.ActiveConnection = cnn
    cmm.CommandText = "..."
    cmm.CommandType = adCmdStoredProc
    
    Dim prt1 As ADODB.Parameter
    Set prt1 = cmm.CreateParameter("val1", adVarChar, adParamInput, 20, "...")
    cmm.Parameters.Append prt1
    
    Dim prtFlg As ADODB.Parameter
    Set prtFlg = cmm.CreateParameter("val2", adTinyInt, adParamReturnValue)
    
    cmm.Execute類型自己選

Answer 2

dim cmd as new adodb.command
dim cnn as new adodb.connection
dim rst as new adodb.recordset
dim j as string
cnn.connectionstring="provider=.........."
cnn.open 
cmd.activeconnection=cnn
cmd.commandtext="exec test '" & value1 & "'"
set rst=cmd.execute
if rst.recordcount=1 then
   j=rst("value2")
end if

Answer 3

syszj() 兄的方法不行， sikeen(阿土) 的行
多谢二位