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

上一篇： 用数据库保存VB程序的用户设置
下一篇： VB5.0数据库编程经验小集

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有