Attributes 和 Name 属性范例

该范例显示 ConnectionFieldProperty 对象的 Attributes 属性值。它使用 Name 属性显示每个 FieldProperty 对象的名称。

Public Sub AttributesX   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim fldLoop As ADODB.Field
   Dim proLoop As ADODB.Property
   Dim strCnn As String
   
   ' 打开连接和记录集。
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.Open "employee", cnn1, , , adCmdTable
   
   ' 显示连接的属性。
   Debug.Print "Connection attributes = " & _
      cnn1.Attributes   ' 显示雇员表字段的属性。
   Debug.Print "Field attributes:"
   For Each fldLoop In rstEmployees.Fields
      Debug.Print "   " & fldLoop.Name & " = " & _
         fldLoop.Attributes
   Next fldLoop   ' 显示是 NULLABLE 的雇员表的字段。
   Debug.Print "NULLABLE Fields:"
   For Each fldLoop In rstEmployees.Fields
      If CBool(fldLoop.Attributes And adFldIsNullable) Then
         Debug.Print "   " & fldLoop.Name
      End If
   Next fldLoop   ' 显示雇员表属性的属性。
   Debug.Print "Property attributes:"
   For Each proLoop In rstEmployees.Properties
      Debug.Print "   " & proLoop.Name & " = " & _
         proLoop.Attributes
   Next proLoop   rstEmployees.Close
   cnn1.CloseEnd Sub
www.holmesian.org