Attributes and Name Properties Example

This examples displays the value of the Attributes property for Connection, Field, and Property objects. It uses the Name property to display the name of each Field and Property object.

Public Sub AttributesX

	Dim cnn1 As ADODB.Connection
	Dim rstEmployees As ADODB.Recordset
	Dim fldLoop As ADODB.Field
	Dim proLoop As ADODB.Property
	Dim strCnn As String
	
	' Open connection and recordset.
	strCnn = "driver={SQL Server};server=srv;" & _
		"uid=sa;pwd=;database=pubs"
	Set cnn1 = New ADODB.Connection
	cnn1.Open strCnn
	Set rstEmployees = New ADODB.Recordset
	rstEmployees.Open "employee", cnn1, , , adCmdTable
	
	' Display the attributes of the connection.
	Debug.Print "Connection attributes = " & _
		cnn1.Attributes

	' Display the attributes of the Employee table's
	' fields.
	Debug.Print "Field attributes:"
	For Each fldLoop In rstEmployees.Fields
		Debug.Print "	" & fldLoop.Name & " = " & _
			fldLoop.Attributes
	Next fldLoop

	' Display the attributes of the Employee table's
	' properties.
	Debug.Print "Property attributes:"
	For Each proLoop In rstEmployees.Properties
		Debug.Print "	" & proLoop.Name & " = " & _
			proLoop.Attributes
	Next proLoop

	rstEmployees.Close
	cnn1.Close

End Sub