Views and Fields Collections Example (VB)

The following code demonstrates how to use the Command property and the Recordset object to retrieve field information for the view.

' BeginViewFieldsVB
Sub ViewFields()

   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim fld As ADODB.Field
   Dim cat As New ADOX.Catalog

   ' Open the Connection
   cnn.Open _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"

   ' Open the catalog
   Set cat.ActiveConnection = cnn

   ' Set the Source for the Recordset
   Set rst.Source = cat.Views("AllCustomers").Command

   ' Retrieve Field information
   rst.Fields.Refresh
   For Each fld In rst.Fields
      Debug.Print fld.Name & ":" & fld.Type
   Next

End Sub
' EndViewFieldsVB

Views and Fields Collections Example (VB)

See Also