[MS Access] Alle Tabellennamen auslesen

Hallo zusammen,

ich habe BEispiel auf vb.net umgestellt. Allerdings bekomme ich hier nicht das gwünschte Ergebniss.
Genauer gesagt: For each "findet" zwar einen Eintrag.
Allerdings ist das ein Ergebniss leer.

Die angegebene Datebank enthält im Beispiel eine Tabelle.

Dim conn As OleDbConnection = New OleDbConnection( _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" _
& DbPath)
conn.Open()

Dim dbtable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLES"})
Dim row As DataRow = dbtable.Rows.Add

For Each row In dbtable.Rows
MessageBox.Show(row("TABLE_NAME").ToString)
Next
conn.Close()

Hat jemand eine Idee?
Gruß
Reinhard
 
Ich habe den Fehler eindeckt:
Für Alle, die den Tipp noch lesen

in der Zeile
"New Object() {Nothing, Nothing, Nothing, "TABLES"})"
muss es heißen
New Object() {Nothing, Nothing, Nothing, "TABLE"})

Gruß
Micha
 
Zurück