在Access中,我们不但可以遍历读取自己库中的表,也可以读取其他数据库中的表。
获取Access数据表可参阅:《获取Access数据库中所有表或查询的方法》
如果要读取D盘的db.accdb数据库中的表呢?
在相关事件中运行下面的代码:
dim strPath as string
strPath =D:\db.accdb
Dim db As Database
Dim tbl As TableDef
Set db = OpenDatabase("" & strPath & "")
For Each tbl In db.TableDefs
Debug.Print tbl.Name
Next
获取结果如下:
更多的Access技巧源码示例,请关注Office交流网:http://www.office-cn.net
领取专属 10元无门槛券
私享最新 技术干货