ADODB Schema

[RobertLees]

Hi

I've opened my database as an ADODB object.

What do I need to do to be able to nevigate through this database, to get all it's tables, and the fields in these tables.

Thanks
Robert

[RhinoBull]

To "see" db objects (tables/etc) use ADOX library instead:

Private Sub Command2_Click()
'============================
Dim tbl As ADOX.Table
Dim cat As ADOX.Catalog
Dim con As ADODB.Connection
 
On Error Resume Next
 
    Screen.MousePointer = vbHourglass
    
    Set con = New ADODB.Connection
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\biblio.mdb;"
    
    Set cat = New ADOX.Catalog
    Set cat.ActiveConnection = con
    
    For Each tbl In cat.Tables
        List1.AddItem tbl.Name
        'you can loop through each table to get fields
    Next
    
    Set cat = Nothing
    con.Close
    Set con = Nothing
    
    Screen.MousePointer = vbDefault
 
End Sub

[Dave Sell]

Rhino - what DLL to add to project?

[RhinoBull]

Oh, sorry about that - set references to:

Microsoft ADO Ext. 2.X for DDL and Security