文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

在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&"\novelty.mdb") 　　MSAccess.DoCmd.OpenReport"rptEmployess",acViewNormal 　　MSAccess.CloseCurrentDatabase 　　SetMSAccess=Nothing endSub 注：acViewNormal告知Access打开该报表并立即打印。 　　这种方法有个缺点，就是运行环境中必须装有MSAccess。->

上一篇:在VB6.0中实现动态统计报表

下一篇:Text转换为AccessMDB