说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在VB中运行Microsoft Access报表的好方法

HTML文档下载 WORD文档下载 PDF文档下载
在VB中运行Microsoft Access报表的好方法



  在VB中如何使用直观、简便的报表一直是很多人关心的问题, Crystal Reports用起来又不太理想。现介绍一在VB中运行Microsoft Access报表的方法,用起来还不错。

  利用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 & "\novelty.mdb")



  MSAccess.DoCmd.OpenReport "rptEmployess",acViewNormal

  MSAccess.CloseCurrentDatabase

  Set MSAccess=Nothing

end Sub

注:acViewNormal告知Access打开该报表并立即打印。

   这种方法有个缺点,就是运行环境中必须装有MS Access。


备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘