Type 属性范例 (Property) (VB)

本范例演示 Type 属性。这是用于列出集合（如 Properties、Fields 等等）的名称和类型的实用程序模型。

不需要打开 Recordset 即可访问其 Properties 集合；在 Recordset 对象实例化时它们即已存在。但是，将 CursorLocation 属性设置为 adUseClient 会向 Recordset 对象的 Properties 集合添加若干个动态属性，这将给范例增添一些趣味。为了达到演示效果，在此使用 Item 属性来访问每个 Property 对象。

Public Sub Main()
    TypeX
End Sub

Public Sub TypeX()
Dim rst As ADODB.Recordset
Dim prop As ADODB.Property
Dim ix As Integer
Dim strMsg As String

Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
For ix = 0 To rst.Properties.Count - 1
Set prop = rst.Properties.Item(ix)
Select Case prop.Type
    Case adBigInt
        strMsg = "adBigInt"
    Case adBinary
        strMsg = "adBinary"
    Case adBoolean
        strMsg = "adBoolean"
    Case adBSTR
        strMsg = "adBSTR"
    Case adChapter
        strMsg = "adChapter"
    Case adChar
        strMsg = "adChar"
    Case adCurrency
        strMsg = "adCurrency"
    Case adDate
        strMsg = "adDate"
    Case adDBDate
        strMsg = "adDBDate"
   Case adDBTime
        strMsg = "adDBTime"
    Case adDBTimeStamp
        strMsg = "adDBTimeStamp"
    Case adDecimal
        strMsg = "adDecimal"
    Case adDouble
        strMsg = "adDouble"
    Case adEmpty
        strMsg = "adEmpty"
    Case adError
        strMsg = "adError"
    Case adFileTime
        strMsg = "adFileTime"
    Case adGUID
        strMsg = "adGUID"
    Case adIDispatch
        strMsg = "adIDispatch"
    Case adInteger
        strMsg = "adInteger"
    Case adIUnknown
        strMsg = "adIUnknown"
    Case adLongVarBinary
        strMsg = "adLongVarBinary"
    Case adLongVarChar
        strMsg = "adLongVarChar"
    Case adLongVarWChar
        strMsg = "adLongVarWChar"
    Case adNumeric
        strMsg = "adNumeric"
    Case adPropVariant
        strMsg = "adPropVariant"
    Case adSingle
        strMsg = "adSingle"
    Case adSmallInt
        strMsg = "adSmallInt"
    Case adTinyInt
        strMsg = "adTinyInt"
    Case adUnsignedBigInt
        strMsg = "adUnsignedBigInt"
    Case adUnsignedInt
        strMsg = "adUnsignedInt"
    Case adUnsignedSmallInt
        strMsg = "adUnsignedSmallInt"
    Case adUnsignedTinyInt
        strMsg = "adUnsignedTinyInt"
    Case adUserDefined
        strMsg = "adUserDefined"
    Case adVarBinary
        strMsg = "adVarBinary"
    Case adVarChar
        strMsg = "adVarChar"
    Case adVariant
        strMsg = "adVariant"
    Case adVarNumeric
        strMsg = "adVarNumeric"
    Case adVarWChar
        strMsg = "adVarWChar"
    Case adWChar
        strMsg = "adWChar"
    Case Else
        strMsg = "*UNKNOWN*"
End Select
Debug.Print "Property " & ix & ": " & prop.Name & _
                ", Type = " & strMsg
Next ix
End Sub