在线等！！在ACCESS中怎样获得表的名称～～～

Question

在ACCESS数据库中通过什么方式怎样获得表的名称。

Answer 1

如：知道数据库名称为DB.MDB，但不知道里面有几个表和表的名称，我用什么语句能获得表的数量和名称呀。高手来帮忙～～，谢谢！

Answer 2

'功能：获取access库中表的个数及表的名称
'用ado怎样实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN   As New ADODB.Connection                '定义数据库的连接
Dim strCnn   As New ADODB.Recordset
Dim rstSchema As New ADODB.Recordset
Dim I As Integer
   str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
   adoCN.Open str1
         
   Set rstSchema = adoCN.OpenSchema(adSchemaTables)
     
   Do Until rstSchema.EOF
        If rstSchema!TABLE_TYPE = "TABLE" Then
           out = out & "Table  name:  " & _
               rstSchema!TABLE_NAME & vbCr & _
               "Table  type:  " & rstSchema!TABLE_TYPE & vbCr
            I = I + 1
        End If
        rstSchema.MoveNext
   Loop
   MsgBox I
   rstSchema.Close
     
   adoCN.Close
Debug.Print out
End Sub

Answer 3

Dim db As DAO.Database
    Dim Table As TableDef
    Set db = DBEngine.Workspaces(0).OpenDatabase(FilePath + "\db.mdb")
    For Each Table In db.TableDefs
         Msgbox table.name
    next