获取Access数据库中所有表或查询的方法

2017-08-29 08:00:00
zstmtony
原创
409

1. 使用Dao来获取

获取Access数据库中所有表列表

For Each tbl in Currentdb.TableDefs

Msgbox tbl.name

next


获取Access数据库中所有查询列表

For Each qdf in Currentdb.QueryDefs

Msgbox qdf .name

next



2.使用 系统表

获取Access数据库中所有表

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=1));

获取Access数据库中所有查询

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=5));


分享