Value 属性范例

该范例通过显示雇员表的字段和属性值说明 Field 和 Property 对象的 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.Close

End Sub