Question

有一个access数据库里面有几张表，如何在vb.net里获取表的名字？

Answer 1

access数据库中所有的表名都存在一个叫做MSysObjects的表中了，所以在这个表中查询就可以了。以下是代码：
Dim L_dadap As New OleDb.OleDbDataAdapter("select * from MSysObjects ", L_conn)
Dim L_dtable As New DataTable
L_dadap.Fill(L_dtable)
Dim TabName(L_dtable.Rows.Count - 1)
For i = 0 To L_dtable.Rows.Count - 1
TabName(i) = L_dtable.Rows(i).Item("name")
Next

Answer 2

连接数据库，然后导出