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

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