怎么得到数据库中所有表的表名和某一个表中的所有字段的名称

Question

vb论坛怎么总是没有人回答呢？学vb的人有很多，而且也很容易成为高手啊

Answer 1

都是一样的，只是我现在在网吧，有些记不清楚了
用DAO连接数据库
然后有一个表集合（好象是TABLEDEFS），遍历它，用一“P”开头的属性过虑掉系统表格就可得到所有的用户表名
关于字段名就简单了
随便用ADO或DAO创建一RECORDSET对象
里面有一FIELDS集合，也遍历它就可以
如：
DIM F AS FIELD
FOR EACH F IN RDCORDSET。FIELDS
LIST1。ADDITEM F。NAME
NEXT

Answer 2

使用的是DAO
dim db as database
dim con as container
dim doc as documentset db=opendatabase("c:\abc.mdb")
for each con in db.containers
list1.additem con.name
for each doc in con.documents
list1.additem "" & doc.name
next 
next 该代码将得到数据库ABC.MDB中的所有属性
包括所有的表名，

Answer 3

下午试试，我用的是ADO，不知道行不行
为什么大家现在还用DAO ,DAO难道有些方面强于 ADO ？

Answer 4

看看http://www.csdn.net/expert/topic/785/785897.xml?temp=.1101953