用代码打开Access文件的两种方法

1、只需 打开 ,不需控制 打开 后的 文件 : Application.FollowHyperlink "D:\db1.mdb" 2、 打开 后可控制所 打开 数据库及其中的对象: '当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量

1、只需 打开 ,不需控制 打开 后的 文件 :

Application.FollowHyperlink "D:\db1.mdb"

2、 打开 后可控制所 打开 数据库及其中的对象:

'当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。

Dim appAccess As Access.Application

Sub CreateForm()

' 打开 D:\DB1.MDB 文件 并创建一个窗体之后关闭

Const strConPathToSamples = "D:\"

Dim frm As Form, strDB As String

'把 文件 路径赋给变量

strDB = strConPathToSamples & "db1.mdb"

' 创建一个新的Access对象

Set appAccess = CreateObject("Access.Application")

' 打开 指定的Access 文件

appAccess.OpenCurrentDatabase strDB

'用下面这句可显示被 打开 的 文件 ,否则不显示

appAccess.Visible = True

' 创建新窗体

Set frm = appAccess.CreateForm

' 保存新窗体

appAccess.DoCmd.Save , "NewForm1"

' 关闭Access 文件

appAccess.CloseCurrentDatabase

Set appAccess = Nothing

End Sub

查看更多关于用代码打开Access文件的两种方法的详细内容...