Question

我需要列出database.mdb文件列表框中的所有表格。表格的内容不仅仅是使用Microsoft.Jet.OLEDB.4.0

的表格名称

我是vb.net的新手，请帮助。

这就是我到目前为止......我一直在犯错误

    Dim dbpath As String = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().CodeBase)
    dbpath = New Uri(dbpath).LocalPath
    TextBox1.Text = dbpath + "\database.mdb"

    Dim userTables As DataTable = Nothing
    Dim connection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
    connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source =" textbox1.text
    ' We only want user tables, not system tables
    Dim restrictions() As String = New String(4) {}
    restrictions(3) = "Table"
    connection.Open()
    ' Get list of user tables
    userTables = connection.GetSchema("Tables", restrictions)
    connection.Close()
    ' Add list of table names to listBox
    Dim i As Integer
    For i = 0 To userTables.Rows.Count - 1 Step i + 1
        ListBox1.Items.Add(userTables.Rows(i)(2).ToString())
    Next

Answer 1

您可以使用以下代码段显示.mdb文件Click Here中的表列表以获取参考

Dim userTables As DataTable = Nothing
Dim connection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;//your database path"
' We only want user tables, not system tables
Dim restrictions() As String = New String(4) {}
restrictions(3) = "Table"
connection.Open()
' Get list of user tables
userTables = connection.GetSchema("Tables", restrictions)
connection.Close()
' Add list of table names to listBox
Dim i As Integer
For i = 0 To userTables.Rows.Count - 1 Step i + 1
    ListBox1.Items.Add(userTables.Rows(i)(2).ToString())
Next

Answer 2

似乎这是正确答案

Dim userTables As DataTable = Nothing
Dim connection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
Dim source As String
source = TextDBPath.Text
connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + source
Dim restrictions() As String = New String(3) {}
restrictions(3) = "Table"
connection.Open()
' Get list of user tables
userTables = connection.GetSchema("Tables", restrictions)
connection.Close()
' Add list of table names to listBox
Dim i As Integer
For i = 0 To userTables.Rows.Count - 1 Step i + 1
    cbox.items.add(userTables.Rows(i)(2).ToString())
Next

vb.net listbox显示数据库中的表名

2 个答案:

似乎这是正确答案