在Access开发中,我们有时会调用其他数据库的函数,做成多层架构。
首先是如何用代码打开另外的Access数据文件?
这里我们通过CreateObject 函数来打开mdb(accdb)文件
Public Sub openAccess()
Dim acc As Access.Application
Set acc = CreateObject("access.Application") '
acc.OpenCurrentDatabase "C:\Documents and Settings\Administrator\桌面\罗斯文1.accdb", True ' 打开APP的一个数据库
End Sub
运行代码效果图
详细源码:
http://www.office-cn.net/access-office/408.html