MDAC 2.5 SDK - ADOX

Views and Fields Collections Example (VB)

See Also

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

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