2014-07-06 32 views

回答

2

在Access 2007及更高版本(2007,2010,2013)中,“数据库文档管理器”位于分析组中的数据库工具选项卡下。 Screenshot showing the button

1

使用,VBA,该DAO.TableDef对象可以帮助你:

dim db as DAO.Database, tbl as DAO.TableDef 
dim f as DAO.Field 
set db = currentdb() ' Connect to current database 

' Loop through each table in the database 
for each tbl in db.tableDefs 
    debug.print "Table name: ", tbl.Name 
    ' Loop throuth each field in the table 
    for each f in tbl.Fields 
     debug.print "Field: ", f.Name 
    next f 
next tbl 

这是挺了过来简化,但你可以得到表及其字段的所有属性。

检查:

0

如果你想获取访问数据库的元数据,这可能会有所帮助:

每个Microsoft Access数据库包含系统表名为MSysObjects。此表包含此数据库元数据。您可以获取具有创建日期和最后更新日期的所有对象。

您可以通过下面的查询列出在Access数据库中所有对象:

SELECT Name, DateCreate, DateUpdate, 
iif(LEFT(Name, 4) = 'MSys','System Table', 
iif(type = 2,'System Object', 
iif(type = 3,'System Object', 
iif(type = 8,'System Object', 
iif(type = 4,'Linked Table (ODBC)', 
iif(type = 1,'Table', 
iif(type = 6, 'Linked Table (MsAccess/MsExcel)', 
iif(type = 5,'Query', 
iif(type = -32768,'Form', 
iif(type = -32764,'Report', 
iif(type=-32766,'Macro', 
iif(type = -32761,'Module', 
iif(type = -32756,'Page', 
iif(type = -32758,'User','Unknown')))))))))))))) as ObjectType 
    FROM MSysObjects WHERE LEFT(Name, 1) <> '~' 

如果你不想显示系统对象可以将这些条件添加到where子句:

AND LEFT(Name, 4) <> 'MSys' AND Type IN (1, 5, 4, 6, -32768, -32764, -32766, -32761,-32756,-32758) 

enter image description here

此外,我创建了一个从Access数据库中检索数据的应用程序,我创建了一个新的Git-repository对于它

相关问题