vb.net列表框显示数据库中的表名称

Question

I need to list all the tables in the list box from the database.mdb file. Not the contents of the tables just the tables name using Microsoft.Jet.OLEDB.4.0

I'm new to vb.net, please help.

this is what i have so far.. and i keep getting errors

---

    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

You can use the following code segment to display the list of tables in a .mdb file Click Here to get reference

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

seem this the right answer

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