Access Database Tables

[MattJH]

How can I retrieve a listing of tables in an Access Database?

Cheers,


Matt

[peet]

'Add a reference to Microsoft ADO Ext. X.X For DLL And Security
'Add a reference to Microsoft ActiveX Data Objects X.X Library
Option Explicit
 
Private cat As ADOX.Catalog
Private tbl As ADOX.Table
Private cnn As New ADODB.Connection
Private col As New Column
 
Private Sub Command1_Click()
    Set cat = New ADOX.Catalog
    Set tbl = New ADOX.Table
    
    'setup db connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
    Set cat.ActiveConnection = cnn
    
    'loop through all tables, and all fields in each table.
    For Each tbl In cat.Tables
        Debug.Print tbl.Name
        For Each col In tbl.Columns
            Debug.Print vbTab & vbTab & col.Name
        Next col
    Next tbl
    
    'close the connection
    cnn.Close
    Set cnn = Nothing
End Sub

is one way of doing it

[Mav505]

try this thread:

http://www.vbforums.com/showthread.p...readid=128476&