用VB的ADO调用存储过程的问题。（急，在线等待！）

Question

SQL="{call myfirst(?,?)}"
.paramers(0)=""
.paramers(1)=""
 

Answer 1

Dim objComm             As ADODB.Command
    
    Set objComm = New ADODB.Command
    
    Set objComm.ActiveConnection = conn 
    objComm.CommandText = "myfirst"
    objComm.CommandType = adCmdStoredProc
    
    
    Call AddOnePara(objComm, adInteger, adParamInput, g_lngKaiinCode1)
    
    Call AddOnePara(objComm, adInteger, adParamoutput, g_intTyousaNendo)
    
    
    rs.CursorLocation = adUseClient
    rs.Open objComm, , adOpenStatic, adLockOptimistic, adCmdStoredProc
'Function AddOneParaPublic Function AddOnePara(objCmd As ADODB.Command, intParaType As Integer, intParaDirection As Integer, varValue As Variant, Optional lnglen As Long = 0) As Integer    Dim objParm             As ADODB.Parameter
    Dim lngRet              As Long
    Dim strValue            As StringOn Error GoTo Err_AddOnePara   
    AddOnePara = -1
    
    Set objParm = New ADODB.Parameter
    
    objParm.Type = intParaType
    objParm.Direction = intParaDirection
    objParm.Value = varValue
    If lnglen <> 0 Then
        objParm.Size = lnglen
    End If
    
    objCmd.Parameters.Append objParm
    Set objParm = Nothing
    
    AddOnePara = 0
    
   
    Exit FunctionErr_AddOnePara:
    
    strValue = Err.Description
    lngRet = Err.NumberEnd Function

Answer 2

set rs=conn.exec "EXEC myfirst 5 " 即可。

Answer 3

Dim c As ADODB.Command
c.CommandText = "{call myfirst(?)}"
c.Parameters(0) = @id好像是这样，rdo是这样用的
                    .sql = "{?=call MemberConsume(?)}"
                    .Rq.rdoParameters.Item(1).Value = DepartNO
                    .Retrieve
                    
                    If .Executed Then
                        Select Case .Rq.rdoParameters.Item(0)