adParamInput)

    ADOCmd.Parameters.Append ADOPrm

    ADOCmd.Parameters(sParmName).Value = 2

    ''''Parameter 6

    sParmName = "P2Num"     ''''Number of PRINT statements in Resultset 2.

    Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _

      adParamInput)

    ADOCmd.Parameters.Append ADOPrm

    ADOCmd.Parameters(sParmName).Value = 0

    ''''Parameter 7

    sParmName = "E2Num"     ''''Number of RAISERROR statements in Resultset

                            '''' 2.

    Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _

     adParamInput)

    ADOCmd.Parameters.Append ADOPrm

    ADOCmd.Parameters(sParmName).Value = 0

    Set ADORs = ADOCmd.Execute

    Do While (Not ADORs Is Nothing)

        If ADORs.State = adStateClosed Then Exit Do

        While Not ADORs.EOF

            For i = 0 To ADORs.Fields.Count - 1

                rStr = rStr & " : " & ADORs(i)

            Next i

            Debug.Print Mid(rStr, 3, Len(rStr))

            ADORs.MoveNext

            rStr = ""

        Wend

        Debug.Print "----------------------"

        Set ADORs = ADORs.NextRecordset

    Loop

    Debug.Print "Return: " & ADOCmd.Parameters("Return").Value

    Debug.Print "Output: " & ADOCmd.Parameters("Output").Value

    GoTo Shutdown

ErrHandler:

    Call ErrHandler(ADOCon)

    Resume Next

Shutdown:

    Set ADOCmd = Nothing

    Set ADOPrm = Nothing

    Set ADORs = Nothing

    Set ADOCon = Nothing

End Sub

Private Sub Command1_Click()

    Call CreateParms

End Sub

Sub ErrHandler(objCon As Object)

    Dim ADOErr As ADODB.Error

    Dim strError As String

    For Each ADOErr In objCon.Errors

        strError = "Error #" & ADOErr.Number & vbCrLf & ADOErr.Description _

            & vbCr & _

            "   (Source: " & ADOErr.Source & ")" & vbCr & _

            "   (SQL State: " & ADOErr.SQLState & ")" & vbCr & _

            "   (NativeError: " & ADOErr.NativeError & ")" & vbCr

        If ADOErr.HelpFile = "" Then

            strError = strError & "   No Help file available" & vbCr & vbCr

        Else

            strError = strError & "   (HelpFile: " & ADOErr.HelpFile & ")" _

上一页  [1] [2] [3]  下一页