This example demonstrates the Value property with Field and Property objects.
Sub ValueX()
Dim rstEmployees As ADODB.Recordset
Dim fldLoop As ADODB.Field
Dim prpLoop As ADODB.Property
Dim strCnn As String
' Open recordset with data from Employee table.
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "employee", strCnn
With rstEmployees
Debug.Print "Field values in rstEmployees"
' Enumerate the Fields collection of the Employees
' table.
For Each fldLoop In .Fields
' Because Value is the default property of a Field object,
' the use of the actual keyword here is optional.
Debug.Print " " & fldLoop.Name & " = " & fldLoop.Value
Next fldLoop
Debug.Print "Property values in rstEmployees"
' Enumerate the Properties collection of the
' Recordset object.
For Each prpLoop In .Properties
' Because Value is the default property of a Property object,
' the use of the actual keyword here is optional.
Debug.Print " " & prpLoop.Name & " = " & prpLoop.Value
Next prpLoop
.Close
End With
End Sub
© 1997 Microsoft Corporation. All rights reserved. Terms of Use.