在VB中運行Microsoft Access報表的好方法

　　在VB中如何使用直觀、簡便的報表一直是很多人關心的問題， Crystal Reports用起來又不太理想?，F介紹一在VB中運行Microsoft Aclearcase/" target="_blank" >ccess報表的方法，用起來還不錯。

　　利用Automation運行Microsoft Access報表

1. 使用Microsoft Access建立數據庫(如：novelty.mdb)的相關報表(如：rptEmployess)。

2. 創建引用

　　在VB中使用“Project References"菜單創建一個對Microsoft Access 8.0 Object Library

的引用。

3. 程序清單

注釋：References MS Access 8.0 Object Library (this

注釋：code will work with any verson of Access that

注釋：supports Automation)

Dim MSAccess As Access.Application

Private sub Command1_Click()

　　Set MSAccess=NEW Access.Application

　　MSAccess.OpenCurrentDatabase(App.Path & " ovelty.mdb")



　　MSAccess.DoCmd.OpenReport "rptEmployess",acViewNormal

　　MSAccess.CloseCurrentDatabase

　　Set MSAccess=Nothing

end Sub

注：acViewNormal告知Access打開該報表并立即打印。

　　 這種方法有個缺點，就是運行環境中必須裝有MS Access。

原文轉自：http://www.anti-gravitydesign.com