首页 > > 程序设计 > VB >

在VB中运行MicrosoftAccess报表的好方法

2018-06-17 17:15:13来源：未知阅读 ()

在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&"\novelty.mdb")

　　MSAccess.DoCmd.OpenReport"rptEmployess",acViewNormal

　　MSAccess.CloseCurrentDatabase

　　SetMSAccess=Nothing

endSub

注：acViewNormal告知Access打开该报表并立即打印。

　　这种方法有个缺点，就是运行环境中必须装有MSAccess。->

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有