|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
在VB中运行Microsoft Access报表的好方法 |
| 作者：赛迪网 日期：2005-8-4 11:15:00 |
|
|
在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。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 赛迪网 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:15:00 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]