用OleDbConnection的GetSchema方法,可以获取数据库的架构信息,代码如下:
Dim oleConnStr As String
Dim oleConn As OleDbConnection
Dim oleConnStrBuilder As OleDbConnectionStringBuilder
Dim allTbl As DataTable = oleConn.GetSchema("Tables")
For i As Integer = 0 To allTbl.Rows.Count - 1
TreeView1.Nodes.Add(New TreeNode(allTbl.Rows(i).Item("Table_Name")))
Next