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
Printable View
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
To "see" db objects (tables/etc) use ADOX library instead:
VB Code:
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
Rhino - what DLL to add to project?
Oh, sorry about that - set references to:
Microsoft ADO Ext. 2.X for DDL and Security