Tabellen herausfinden

Computer: Software & Programmierung Visual Basic
1

hallo
ihr müsst mir helfen…

ich möchte ein programm schreiben welches sich auf eine datenbank verbindet und dann die Namen der tabellen herausfinden
hier mein codeanfang:
Private Sub Form_Load()
InitConnection97 („D:\Visual Basic\Visual Studio\VB98\Biblio.mdb“)
End Sub

Public Sub InitConnection97(Filename As String)
On Error GoTo Error

Cn.Provider = „Microsoft.Jet.OLEDB.3.51“ 'Access97
Cn.ConnectionString = Filename 'Datenbankpfad
'z.B. „C:\Programme\Microsoft Visual Studio\VB98\Biblio.mdb“

Cn.CursorLocation = adUseClient
Cn.Mode = adModeReadWrite 'zum lesen und schreiben öffnen

Cn.Open 'Verbindung herstellen
Exit Sub
Error:
MsgBox ("Fehler: " & Err.Description)

End Sub

als 2. möchte ich dann auch noch die namen der Spalten herausfinden
ich hoffe ihr könnt mir helfen
lg christoph

2 
'
' ADODB / ADOX
'
Dim Conn As New ADODB.Connection, DeineDatenbank as String, \_
 Tbl As ADOX.Table, cat As New ADOX.Catalog, col as ADOX.Column

 DeineDatenbank = "C:\Programme\Microsoft Visual Studio\VB98\Biblio.mdb"
 Conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & DeineDatenbank & ";"
 Set cat.ActiveConnection = Conn
 For Each Tbl In cat.Tables
 If Tbl.Type = "TABLE" Then
 For Each col In Tbl.Columns
 Debug.Print Tbl.name, Col.Name
 Next Col
 Next Tbl
 Conn.Close

'
' DAO: 
'
Dim DB as DAO.Database, DeineDatenbank as String, \_
 Tbl As DAO.Table, Fld as DAO.Field

 DeineDatenbank = "C:\Programme\Microsoft Visual Studio\VB98\Biblio.mdb"
 Set DB = DBEngine(0).Opendatabase(DeineDatenbank)
 For Each Tbl In DB.Tabledefs
 For Each Fld In Tbl.Fields
 Debug.Print Tbl.name, Fld.Name
 Next Fld
 Next Tbl
 DB.Close

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)