在VB中運行MicrosoftAccess報表的好方法

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