ADX 数据表名

说明：

1、此法只能读取Access数据库中的表名(包括系统表)及查询名，其它如窗体、报表等均不能读取。
2、窗体上只有一个控件List1。

代码如下：

Option Explicit
'工程->引用->勾选 Microsoft ActiveX Data Objects 2.X Library

Private Sub Form_Load()
Dim adoCN   As New ADODB.Connection
Dim rstSchema As New ADODB.Recordset
Dim sql As String
Dim I As Integer

   sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "book.MDB;Persist Security Info=False"
   adoCN.Open sql
        
   Set rstSchema = adoCN.OpenSchema(adSchemaTables)
    
   Do Until rstSchema.EOF
        If rstSchema!TABLE_TYPE <> "ACCESS TABLE" And rstSchema!TABLE_TYPE <> "SYSTEM TABLE" Then
            List1.AddItem "Name:  " & rstSchema!TABLE_NAME & vbTab & vbTab & "Type:  " & rstSchema!TABLE_TYPE & vbCr
            I = I + 1
        End If
        rstSchema.MoveNext
   Loop
   Me.Caption = "共" & I & "条"
   rstSchema.Close
    
   adoCN.Close

End Sub