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

來源:互聯網
上載者:User

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

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。