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

Question

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

Answer 1

strcnn="driver=    省略
set objcnn=server.createobject("adodb.connection")
objcnn.open strcnn
set rsschema=objcnn.openschema(20)
while not rsschema.eof
  text1.text=rsschema("TABLE_NAME")
rsschema.movenext
wend可以获得表名

Answer 2

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=8159

Answer 3

http://expert.csdn.net/Expert/topic/1133/1133278.xml?temp=.5032617