如何显示Access数据库中所有表的名称

[YZFFHH]

如何显示Access数据库中所有表的名称

[moodboy1982]

没用过。

[机器人]

以下示例返回数据库中的表的列表。
[Visual Basic]
Public Function GetTables(conn As OleDbConnection) As DataTable
conn.Open()
Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
conn.Close()
Return schemaTable
End Function

[泡沫游走]

Dim Mycnn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= f:\StudentDB.mdb")
Dim schemaTable As DataTable

schemaTable = GetTables(Mycnn)
Dim i As Integer
For i = 0 To schemaTable.Rows.Count - 1
listbox1.Items.Add(schemaTable.Rows(i).Item(2).ToString())
Next

[YZFFHH]

谢谢,行了