如何从MS Access数据库获取表名？

Question

Microsoft SQL Server和MySQL有我可以查询的INFORMATION_SCHEMA表。但它不存在于MS Access数据库中。

有没有相当于我可以使用的？

Answer 1

要建立在伊利亚的答案请尝试以下查询：

SELECT MSysObjects.Name AS table_name 
FROM MSysObjects 
WHERE (((Left([Name],1))<>"~") 
     AND ((Left([Name],4))<>"MSys") 
     AND ((MSysObjects.Type) In (1,4,6))) 
order by MSysObjects.Name 

（这一个不加修饰时用一个MDB）

ACCDB用户可根据需要做这样的事情

SELECT MSysObjects.Name AS table_name 
FROM MSysObjects 
WHERE (((Left([Name],1))<>"~") 
     AND ((Left([Name],4))<>"MSys") 
     AND ((MSysObjects.Type) In (1,4,6)) 
     AND ((MSysObjects.Flags)=0)) 
order by MSysObjects.Name 

由于还有一个额外的表被包括在内，似乎是某种系统表。

Answer 2

获取表的列表：

SELECT 
    Table_Name = Name, 
FROM 
    MSysObjects 
WHERE 
    (Left([Name],1)<>"~") 
    AND (Left([Name],4) <> "MSys") 
    AND ([Type] In (1, 4, 6)) 
ORDER BY 
    Name 

Answer 3

它的设计是非常接近可用于喷气/ ACE引擎获得（在SQL-92 INFORMATION_SCHEMA的是什么，我想你

架构信息意味着'访问'）通过OLE DB提供商。

参见：

OpenSchema Method (ADO)

Supported Schema Rowsets

Answer 4

您可以在Access中使用的架构。

Sub ListAccessTables2(strDBPath) 
    Dim cnnDB As ADODB.Connection 
    Dim rstList As ADODB.Recordset 

    Set cnnDB = New ADODB.Connection 

    ' Open the connection. 
    With cnnDB 
     .Provider = "Microsoft.Jet.OLEDB.4.0" 
     .Open strDBPath 
    End With 

    ' Open the tables schema rowset. 
    Set rstList = cnnDB.OpenSchema(adSchemaTables) 

    ' Loop through the results and print the 
    ' names and types in the Immediate pane. 
    With rstList 
     Do While Not .EOF 
     If .Fields("TABLE_TYPE") <> "VIEW" Then 
      Debug.Print .Fields("TABLE_NAME") & vbTab & _ 
       .Fields("TABLE_TYPE") 
     End If 
     .MoveNext 
     Loop 
    End With 
    cnnDB.Close 
    Set cnnDB = Nothing 
End Sub 

来源：http://msdn.microsoft.com/en-us/library/aa165325(office.10).aspx

Answer 5

SELECT 
Name 
FROM 
MSysObjects 
WHERE 
(Left([Name],1)<>"~") 
AND (Left([Name],4) <> "MSys") 
AND ([Type] In (1, 4, 6)) 
ORDER BY 
Name 

Answer 6

这是一个在Access 2010 VBA中使用数据访问对象（DAO）工作的更新答案。该表的名字保存在TableDef.Name中。所有表定义的集合保存在TableDefs中。以下是通过表名循环的一个简单的例子：

Dim db as Database 
Dim td as TableDef 
Set db = CurrentDb() 
For Each td In db.TableDefs 
    YourSubTakingTableName(td.Name) 
Next td 

Answer 7

最好不要乱用msysObjects（恕我直言）

CurrentDB.TableDefs 
CurrentDB.QueryDefs 
CurrentProject.AllForms 
CurrentProject.AllReports 
CurrentProject.AllMacros