程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 更多關於編程 >> 在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。->

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved