VB+ADO+sqlserver2000如何使用带返回参数的存储过程

Question

用下面的试试：
 Dim MyCmd As New ADODB.Command
 MyCmd.CommandText = "mainrc"
 MyCmd.CommandType = adCmdStoredProc
 
 MyCmd.Parameters.Append _
       MyCmd.CreateParameter("主运单号", adVarChar, adParamInput, 30, 主运单号)
 MyCmd.Parameters.Append _
       MyCmd.CreateParameter("RC", aInt, adParamOutput)
 Set MyCmd.ActiveConnection = ADO_CONN_60
 MyCmd.Execute
 结果 = MyCmd("RC")
 Set MyCmd = Nothing

Answer 1

用下面的试试：
 Dim MyCmd As New ADODB.Command
 MyCmd.CommandText = "mainrc"
 MyCmd.CommandType = adCmdStoredProc
 
 MyCmd.Parameters.Append _
       MyCmd.CreateParameter("主运单号", adVarChar, adParamInput, 30, 主运单号)
 MyCmd.Parameters.Append _
       MyCmd.CreateParameter("RC", aInt, adParamOutput)
 Set MyCmd.ActiveConnection = ADO_CONN_60
 MyCmd.Execute
 结果 = MyCmd("RC")
 Set MyCmd = Nothing
—————————————————————————————————
┏━★━━◆━━★━┓ 
♂欢|◢ＣＳＤＮ◣|使♂ 　　　　　　　▲自由保存帖子，浏览，关注检测
┃迎|◥论坛助手◤|用┃ 　　　　　　　▲完善的ＣＳＤＮ客户端工具
┗━☆━━◇━━━☆┛　　　　　　　▲自动添加签名......让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip

Answer 2

用下面的试试：
 Dim MyCmd As New ADODB.Command
 MyCmd.CommandText = "mainrc"
 MyCmd.CommandType = adCmdStoredProc
 
 MyCmd.Parameters.Append _
       MyCmd.CreateParameter("主运单号", adVarChar, adParamInput, 30, 主运单号)
 MyCmd.Parameters.Append _
       MyCmd.CreateParameter("RC", aInt, adParamOutput)
 Set MyCmd.ActiveConnection = ADO_CONN_60
 MyCmd.Execute
 结果 = MyCmd("RC")
 Set MyCmd = Nothing

Answer 3

谢了，最后写成如下代码：
Public Function GetMainRecordsCount(CN As ADODB.Connection, MainID As String) As Long
    Dim MyCmd As New ADODB.Command
    MyCmd.CommandText = "mainrc"
    MyCmd.CommandType = adCmdStoredProc
    MyCmd.Parameters.Append MyCmd.CreateParameter("主运单号", adWChar, adParamInput, 11, MainID)
    MyCmd.Parameters.Append MyCmd.CreateParameter("RC", adInteger, adParamOutput)
    Set MyCmd.ActiveConnection = CN
    MyCmd.Execute
    GetMainRecordsCount = MyCmd("RC")
    Set MyCmd = Nothing
End Function