Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。 在VB中如何使用直观、简便的报表一直是很多人关心的问题，CrystalReports用起来又不太理想。现介绍一在VB中运行MicrosoftAccess报表的方法，用起来还不错。
利用Automation运行MicrosoftAccess报表
1.使用MicrosoftAccess建立数据库(如：novelty.mdb)的相关报表(如：rptEmployess)。
2.创建引用
在VB中使用“ProjectReferences"菜单创建一个对MicrosoftAccess8.0ObjectLibrary的引用。
3.程序清单
'ReferencesMSAccess8.0ObjectLibrary(this
'codewillworkwithanyversonofAccessthat
'supportsAutomation)
DimMSAccessAsAccess.Application
PrivatesubCommand1_Click()
SetMSAccess=NEWAccess.Application
MSAccess.OpenCurrentDatabase(App.Path&" ovelty.mdb")
MSAccess.DoCmd.OpenReport"rptEmployess",acViewNormal
MSAccess.CloseCurrentDatabase
SetMSAccess=Nothing
endSub
注：acViewNormal告知Access打开该报表并立即打印。
这种方法有个缺点，就是运行环境中必须装有MSAccess。->
Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。
|