vb 直接打开 access

来源：百度知道 编辑：UC知道 时间：2024/07/01 04:18:56
vb 编程中直接打开已存在access数据库（例如aa.mbd，它包含1，2，3张表）中的表1或表2或表3，而不用ADO、Data数据控件、ADODB数据控件链接
Dim MSAccess As Access.Application
Set MSAccess = New Access.Application
MSAccess.opencurrentdatabase App.Path & "\春禁数据2.mdb"
MSAccess.Visible = True
用以上代码能打开，但是一闪就马上关了，不知道什么原因

把Dim MSAccess As Access.Application定义成窗体级别或模块级别public
就可以了

Dim acApp As Access.Application
Set acApp = New Access.Application
acApp.OpenCurrentDatabase App.Path & "\db1.mdb"
acApp.DoCmd.OpenTable "youTableName" '打开一个表就不会退出了
acApp.Visible = True
Set acApp = Nothing

导入数据库不行？