Listing Tables and Their Fields Using the OpenSchema Method : Table Column Field « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Table Column Field

Listing Tables and Their Fields Using the OpenSchema Method

 
Sub ListTblsAndFields()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim curTable As String
   Dim newTable As String
   Dim counter As Integer

   Set conn = New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"
   Set rst = conn.OpenSchema(adSchemaColumns)
   curTable = ""
   newTable = ""
   counter = 1
   Do Until rst.EOF
      curTable = rst!table_Name
      If (curTable <> newTable) Then
         newTable = rst!table_Name
         Debug.Print "Table: " & rst!table_Name
         counter = 1
      End If
      Debug.Print "Field" & counter & ": " & rst!Column_Name
      counter = counter + 1
      rst.MoveNext
   Loop
   rst.Close
   conn.Close
   Set rst = Nothing
   Set conn = Nothing
End Sub








Related examples in the same category

1.Append new columns to new table
2.Delete a column
3.Adding a New Field to a Table
4.Removing a Field from a Table
5.Set column properties by using ADOX.Table
6.Listing Field Properties
7.Get field properties
8.Adding a New Money type Field to an Existing Table
9.Adding a Field with SQL command
10.Changing the Field Data Type with SQL command
11.Changing the Size of a Field with SQL command
12.Deleting a Field from a Table with SQL command
13.Setting a Default Value for a Field with SQL command
14.Changing the Start (Seed) Value of the AutoNumber Field with SQL command
15.Read record in recordset by referening the field name with '!'
16.Open a table and read data by column
17.Show field name, type and value data type
18.Read specific columns from Recordset
19.Checking for Existence of a Field