在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。->