Mega Code Archive

 

Categories / VisualBasic Script / Access

 

List table types

Sub ListTables()          Dim cat As New ADOX.Catalog     Dim tbl As ADOX.Table          cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=C:\mydb.mdb;"          For Each tbl In cat.Tables        Debug.Print tbl.Name, tbl.Type     Next End Sub