用代码打开Access文件的两种方法
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了用代码打开Access文件的两种方法,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含1132字,纯文字阅读大概需要2分钟。
内容图文
![用代码打开Access文件的两种方法](/upload/InfoBanner/zyjiaocheng/534/ebc1cb98067e4bf8b3d151d211b13c10.jpg)
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文件的两种方法全部内容,希望文章能够帮你解决用代码打开Access文件的两种方法所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。