ADORs.MoveNext

            Loop

        End If

    End If

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 & ")" _

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

                vbCr & vbCr

        End If

''''        Debug.Print strError

        MsgBox strError

    Next

    objCon.Errors.Clear

End Sub

Function GetDataType(ByRef DataType As DataTypeEnum) As String

    Select Case DataType

        Case DataTypeEnum.adArray

            GetDataType = "DataTypeEnum.adArray"

        Case DataTypeEnum.adBigInt

            GetDataType = "DataTypeEnum.adBigInt"

        Case DataTypeEnum.adBinary

            GetDataType = "DataTypeEnum.adBinary"

        Case DataTypeEnum.adBoolean

            GetDataType = "DataTypeEnum.adBoolean"

        Case DataTypeEnum.adBSTR

            GetDataType = "DataTypeEnum.adBSTR"

        Case DataTypeEnum.adChapter

            GetDataType = "DataTypeEnum.adChapter"

        Case DataTypeEnum.adChar

            GetDataType = "DataTypeEnum.adChar"

        Case DataTypeEnum.adCurrency

            GetDataType = "DataTypeEnum.adCurrency"

        Case DataTypeEnum.adDate

            GetDataType = "DataTypeEnum.adDate"

        Case DataTypeEnum.adDBDate

            GetDataType = "DataTypeEnum.adDBDate"

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