1。为什么用ADO取得ACCCESS表名的程序出奇的慢，内附代码。 2。如何去掉系统字段？

Question

doCnn.CursorLocation = adUseClient
  adoCnn.Open pCnnStr
  Set adoRst = adoCnn.OpenSchema(adSchemaTables)
  'adoRst.Filter = "TABLE_TYPE='TABLE' OR TABLE_TYPE='VIEW'" '不显示系统表
  '将数据库中各个表名放入 LISTBOX
  pLstBox.Clear
  Do Until adoRst.EOF
    pLstBox.AddItem adoRst!TABLE_NAME   ' "表名称: " & RecTableInfo!TABLE_NAME & vbCr & "表类型: " & RecTableInfo!TABLE_TYPE & vbCr
    adoRst.MoveNext
  Loop

Answer 1

也许我的代码贴的太多了，大家没时间来看，归纳如下：
1。Set adoRst = adoCnn.OpenSchema(adSchemaTables)，为什么这一句打开ACCESS数据库很慢？
2。如何不要系统产生的FIELD？
  

Answer 2

adoRst.Filter = "TABLE_TYPE='TABLE' OR TABLE_TYPE='VIEW'" '不显示系统表
  

Answer 3

to DimVar()　我打开表很快，50个表左右
我是这样写的
Set tRs = ConnPub.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
While Not tRs.EOF
    Debug.Print tRs("table_name")
    tRs.MoveNext
WendArray(Empty, Empty, Empty, "Table") 表示只打开表，不包括系统表，视图等