在VB中运行MicrosoftAccess报表的好方法
2006-02-27 11:46:17 来源:WEB开发网核心提示:在VB中如何使用直观、简便的报表一直是很多人关心的问题,CrystalReports用起来又不太理想,在VB中运行MicrosoftAccess报表的好方法,现介绍一在VB中运行Microsoftaccess报表的方法,用起来还不错,3.程序清单'ReferencesMSAccess8.0ObjectLibra
在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。->
利用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。->
Tags:VB 运行 MicrosoftAccess
编辑录入:爽爽 [复制链接] [打 印]更多精彩
赞助商链接