Value Property Example

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.