取得某个数据库中的所有表名

Question

我想取得某个数据库中的所有表名以及每个表的所有字段名
请高手执教
最好用实例说明

Answer 1

Dim W As Workspaces, DB As Database, QD As QueryDefs, QD1 As QueryDef
Set DB = W(0).OpenDatabase(App.Path & "db1.mdb")
Set QD = DB.QueryDefs
For Each QD1 In QD
    MsgBox QD1.Name
Next好像是这样的,如果不行,你在调试一下!

Answer 2

假如数据库是SQL，首先引用ADO，建立与数据库的连接，在SQL数据库中有一个表名为TABLENAME的表，在该表中有该库的所有表名，用ADO执行SQL语句，SELECT ，即可。

Answer 3

你可以引用ADOX,打开联接后，以tables对象进行查看即可

Answer 4

如果是用access做的*.mdb文件，可以试一下 data form wizard ，最然有点麻烦，但是相当方便

Answer 5

http://expert.csdn.net/Expert/topic/1702/1702989.xml?temp=.3840296