枚举库中表名、字段问题……

[AZUMA]

枚举库中表名、字段问题……

刚刚拿到一个超BT的Access数据库，库中100多个表，近1000个字段。要以如下格式输出库结构到文本文件：

表名1：
字段名1
字段名2
字段名3
……
表名2：
字段名1
字段名2
……
……

要是手工做非吐血不成！哪位大虾知道一些简单的方法用编程解决（给个思路就行），请不吝赐教！

[vbman2003]

关注！
我只会：
cn.Execute "SELECT * INTO [Text;DATABASE=F:\My Documents].[table1.TXT] FROM [table1]"

1、table1.TXT 事先不可存在，否则会产生错误！
2、此命令会产生的文件有二个，第一个就是文本文件 table1.TXT，第二个是 Schema.ini。
3、文本文件之格式为 CSV 之文件格式，以逗点分开，实际呈现方式如下：

"ID","myname","mypass"
001,"AA","123"
002,"BB","234"
003,"CC","345"

4、Schema.ini 若事先不存在会新产生一个，若已存在，则会在原文件后面直接 Append。
5、至于 Schema.ini 的內容为此次导出的相关资讯，格式同一般的 Ini 档。

[SoHo_Andy]

'查看表
'引用微软 ADO Ext.2.7 for dll and Security

Sub OpenConnection()

Dim cnn As New ADODB.Connection
Dim cat As New ADOX.Catalog

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"
Set cat.ActiveConnection = cnn
Debug.Print cat.Tables(0).Type
'此处可循环读出表的name,type等属性
End Sub

'查看字段
Sub ViewFields()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim cat As New ADOX.Catalog

' Open the Connection
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"

' Open the catalog
Set cat.ActiveConnection = cnn

' Set the Source for the Recordset
Set rst.Source = cat.Views("AllCustomers").Command

' Retrieve Field information
rst.Fields.Refresh
For Each fld In rst.Fields
Debug.Print fld.name & ":" & fld.Type
'显示所有的字段的名称和类型
Next

End Sub

[ddsty]

A2K里面有几张系统表,是隐藏的,你所要的表名,字段名在其中的两张表里有详细记载,你自己找一下吧,那些隐藏表是以MSYS开头的,在选项里可以改变他们是否显示

[AZUMA]

谢谢几位！
结账～～