如何从Access数据库中读出所有的表，以及各表中各字段名称及类型，thank you

Question

用vb来读取很容易，新建一个工程，然后在窗体上访两个listbox，第一个存放 表 的列表， 第二个存放 字段 的列表，然后放一个按钮，一个data控件，粘贴下面的代码，运行以后，看数据表列表按下按钮，看表里面的字段点一下list1里面的表的名字，list2里面会出来相应表的字段
Private Sub Command1_Click()
Data1.DatabaseName = "数据库的名字"
Data1.RefreshIf Data1.Database.TableDefs.Count = 0 Then Exit Sub
For i = 0 To Data1.Database.TableDefs.Count - 1
    If (Data1.Database.TableDefs(i).Attributes And dbSystemObject) = 0 Then
    List1.AddItem Data1.Database.TableDefs(i).Name
    End If
Next iEnd SubPrivate Sub List1_Click()
Data1.RecordSource = List1.Text
Data1.RefreshFor i = 0 To Data1.Recordset.Fields.Count - 1
    List2.AddItem Data1.Recordset.Fields(i).Name
Next i
End Sub字段类型的列出:把上面的 .Name改成 .Type,会列出一个数值，这个数值对应的字段类型可以到vb帮助里面根据 type属性 的帮助来知道。

Answer 1

office2000以上的话在数据库里面有几个隐藏的表，打开研究一下就知道了。