获取数据库内表名称时候遇到的疑问

vsvs619

菜鸟初学access，近日在编写代码的时候遇见如下问题：
原本目的是想获取数据库内表的名称，并加入到一个数组内。在测试下面代码的时候，发现循环的次数不太靠谱。数据库内只有8张空表，但循环次数为21次。恳请各位大师指点迷津，不胜感激！

1. Sub updateaddRecords2007()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim myPath As String
   
5.     Dim myTable As String
   
6.     Dim strTemp As String
   
7.     Dim arrFields As Variant
   
8.     Dim m
   
9.     Dim f()
   
10. 
    
11.     myPath = ThisWorkbook.Path & "\test1.accdb"
    
12.    
    
13.     With cnn
    
14.          .ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath '连接数据库
    
15.          .Open
    
16.     End With
    
17.     Set rst = cnn.OpenSchema(adSchemaTables)
    
18.    
    
19.    
    
20.     m = 1
    
21.     Do Until rst.EOF
    
22.         If rst!table_type = "TABLE" Then
    
23.         ReDim Preserve f(m)
    
24.         f(m) = rst!table_name
    
25.         End If
    
26.         rst.MoveNext
    
27.         m = m + 1
    
28.     Loop
    
29.    
    
30.     rst.Close
    
31.     cnn.Close
    
32.     Set rs = Nothing
    
33.     Set cnn = Nothing   
    
34. End Sub

复制代码

test1.zip (24.64 KB, 下载次数: 2)

2015-3-8 15:28 上传

点击文件名下载附件

roych

你错了。实际上应该以msys开头的系统表，只是默认情况下被隐藏掉罢了。勾选这个，再打开数据库看看有几个表？

如果想不包括系统表，还应该加上条件（例如，表名称，或者从msysobject的name属性中过滤出来）。

vsvs619

roych 发表于 2015-3-11 16:12
你错了。实际上应该以msys开头的系统表，只是默认情况下被隐藏掉罢了。勾选这个，再打开数据库看看有几个表 ...

谢谢老师指点。我也发现了这个情况，原来数据库内还有隐藏的系统表。