Access用代码打开另一个Access文件

2017-10-25 17:15:00
黄善超
原创
110

在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


运行代码效果图

分享