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

王朝other·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航