明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

在VB中運(yùn)行MicrosoftAccess報(bào)表的好方法

發(fā)表時(shí)間：2023-08-15 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]在VB中如何使用直觀、簡便的報(bào)表一直是很多人關(guān)心的問題，CrystalReports用起來又不太理想。現(xiàn)介紹一在VB中運(yùn)行MicrosoftAccess報(bào)表的方法，用起來還不錯(cuò)。利用Automati...

　　在VB中如何使用直觀、簡便的報(bào)表一直是很多人關(guān)心的問題，CrystalReports用起來又不太理想�，F(xiàn)介紹一在VB中運(yùn)行MicrosoftAccess報(bào)表的方法，用起來還不錯(cuò)。

　　利用Automation運(yùn)行MicrosoftAccess報(bào)表

　　1.使用MicrosoftAccess建立數(shù)據(jù)庫(如：novelty.mdb)的相關(guān)報(bào)表(如：rptEmployess)。

　　2.創(chuàng)建引用

　　在VB中使用“ProjectReferences"菜單創(chuàng)建一個(gè)對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打開該報(bào)表并立即打印。

　　這種方法有個(gè)缺點(diǎn)，就是運(yùn)行環(huán)境中必須裝有MSAccess。->


Microsoft Access在很多地方得到廣泛使用，例如小型企業(yè)，大公司的部門。