Type 屬性范例

Type 屬性范例

該范例通過(guò)顯示與雇員表所有 Field 對(duì)象的 Type 屬性值對(duì)應(yīng)的常量名說(shuō)明 Type 屬性。該過(guò)程運(yùn)行時(shí)需要 FieldType 函數(shù)。

Public Sub TypeX()

   Dim rstEmployees As ADODB.Recordset

   Dim fldLoop As ADODB.Field

   Dim strCnn As String

   ' 使用雇員表中的數(shù)據(jù)打開(kāi)記錄集。

   strCnn = "Provider=sqloledb;" & _

      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   Set rstEmployees = New ADODB.Recordset

   rstEmployees.Open "employee", strCnn, , , adCmdTable

   Debug.Print "Fields in Employee Table:" & vbCr

   ' 枚舉雇員表的字段集合。

   For Each fldLoop In rstEmployees.Fields

      Debug.Print "  Name: " & fldLoop.Name & vbCr & _

         "  Type: " & FieldType(fldLoop.Type) & vbCr

   Next fldLoop

End Sub

Public Function FieldType(intType As Integer) As String

   Select Case intType

      Case adChar

         FieldType = "adChar"

      Case adVarChar

         FieldType = "adVarChar"

      Case adSmallInt

         FieldType = "adSmallInt"

      Case adUnsignedTinyInt

         FieldType = "adUnsignedTinyInt"

      Case adDBTimeStamp

         FieldType = "adDBTimeStamp"

   End Select

End Function