Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tabellen einer Access Datenbank ermittel?
Autor: JOMA
Datum: 27.05.03 09:36
Hallo! Versuch es mal mit folgenden Code, den ich aus meinem Projekt herauskopiert habe (den Schnipsel habe ich jedoch noch nicht getestet, hoffentlich ist er lauffähig). Festgelegt werden muss noch s_no_profil (Datei), s_user_name (Loginname des Users in Datenbank) und s_user_kennwort (Passwort in Datenbank) Dim DBConnection As New ADODB.Connection Dim Cat As ADOX.Catalog Dim tbl As ADOX.Table Dim s_name_tabelle As String Dim s_typ_tabelle As String Dim s_no_profil As String Dim s_user_name As String Dim s_user_kennwort As String VerbindungsString = "PROVIDER=" + "Microsoft.Jet.OLEDB.4.0" + ";" + _ "DATA SOURCE=" + s_no_profil + ";" + _ "USER ID=" + s_user_name + ";PASSWORD=" + s_user_kennwort + ";" DBConnection.ConnectionString = VerbindungsString DBConnection.Open Set Cat = New ADOX.Catalog Cat.ActiveConnection = DBConnection For Each tbl In Cat.Tables s_name_tabelle = tbl.name s_typ_tabelle = tbl.Type Select Case s_typ_tabelle 'THIS TABLE IS A TABLE Case "TABLE" 'The Table is a row-returning, non-parameterized query. Case "VIEW" 'The Table is a Microsoft Jet system table. Case "SYSTEM TABLE" 'The Table is a Microsoft Access system table. Case "ACCESS TABLE" 'The Table is a linked table from an ODBC data source. Case "PASS-THROUGH" 'The Table is a linked table from a non-ODBC data source. Case "LINK" Case Else End Select Next tbl set cat = nothing If Not DBConnection Is Nothing Then DBConnection.Close End If Set DBConnection = Nothing 0

Tabellen einer Access Datenbank ermittel?	624	Sascha	22.05.03 11:35
Re: Tabellen einer Access Datenbank ermittel?	339	Dieter	22.05.03 12:57
Re: Tabellen einer Access Datenbank ermittel?	422	JOMA	27.05.03 09:36

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen