Value 属性范例

该范例通过显示雇员表的字段和属性值说明 FieldProperty 对象的 Value 属性。

Public Sub ValueX()   Dim rstEmployees As ADODB.Recordset
   Dim fldLoop As ADODB.Field
   Dim prpLoop As ADODB.Property
   Dim strCnn As String   ' 使用雇员表的数据打开记录集。
   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 "Field values in rstEmployees"
   ' 枚举雇员表的字段集合。
   For Each fldLoop In rstEmployees.Fields
      ' 由于值是字段对象的默认属性,
      ' 所以此处实际关键字的使用是可选的。
      Debug.Print "   " & fldLoop.Name & " = " & fldLoop.Value
   Next fldLoop   Debug.Print "Property values in rstEmployees"
   ' 枚举记录集对象的属性集合。
   For Each prpLoop In rstEmployees.Properties
      ' 由于值是属性对象的默认属性,
      ' 所以此处实际关键字的使用是可选的。
      Debug.Print "   " & prpLoop.Name & " = " & prpLoop.Value
   Next prpLoop   rstEmployees.CloseEnd Sub
www.holmesian.org