怎么样调用存储过程的返回值？

Question

如题！

Answer 1

dim rs as new adodb.recordset
set rs=cn.execute "execute 存储过程名"
for i=0 to rs.fields.count-1
   msgbox rs.fields(i).values
next

Answer 2

With ado_comm
      .ActiveConnection = ADO_Cnn
      .CommandText = "ACCselectAcNum"
      .CommandType = adCmdStoredProc
      .Parameters("@AcGroup").Value = Trim(cmbAcGroup.Text)
       Set rsM = .Execute
End With
txtAcNum.Text = rsM.Fields("new_code")
txtAcNum.Enabled = False

Answer 3

用 adodb.command对象调用存储过程可以解决 Dim cmdpmt As ADODB.Parameter
 dim cmd as adodb.command
With cmd
    .CommandText = "insert_ebet"   '要调用的存储过程
    .CommandType = adCmdStoredProc  
Set cmdpmt = .CreateParameter("@eb_time", adVarChar, adParamInput, 20, (arr(8)))
    .Parameters.Append cmdpmt      '添加输入参数
 Set cmdpmt = .CreateParameter("@bln", adInteger, adParamOutput)
    .Parameters.Append cmdpmt      '添加返回值
end with
Call cmd.Execute
Dim bln As Integer
bln = cmd.Parameters.Item("@bln")  '取得返回值