如何用VBA知道ACCESS数据库中数据表的字段信息

Question

比如说怎么知道字段名，类型，大小，是否为主键，是否排序等信息。另外还有如何用VB实现列举除系统表外其他用户自己建立的表呢？

Answer 1

VB5.0以上版本的 Sample\Visdata 目录下有个可视化数据管理器的源代码
你的这些要求在这个工程的源代码中全部都实现了
我的例子目录如下，你的可能不同
C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\Samples\VB98\visdata我就不细说了

Answer 2

如何知道表里面有多少字段？
recordset.Fields.Count
recordset.Fields(i).name 
recordset.Fields(i).Properties
recordset.Fields(i).type

Answer 3

代码如下试试看，应该满足你的要求了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
      '或者其它你需要的字段属性
   NextEnd Sub