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 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
