Value 屬性范例

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

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

   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