有哪些信誉好的足球投注网站- 1、本文档共5页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VB中怎么载如或显示Access数据库中的报表首先在“工程/引用”菜单下引用Microsoft?Access?9.0?Object?Library Option?Explicit Dim?MSAccess?As?Access.Application Private?Sub?Command1_Click() ????Set?MSAccess?=?New?Access.Application ????MSAccess.OpenCurrentDatabase?(App.Path??\db1.mdb) ????MSAccess.DoCmd.OpenReport?rptTB,?acViewNormal ????MSAccess.CloseCurrentDatabase ????Set?MSAccess?=?Nothing End?Sub rptTB是access中的一个报表名称要引用Microsoft ? Access ? 9.0 ? Object ? Librarydim ? objAccess ? As ? Access.Application ? ? ? ? ? ? ? ? ? ? Set ? objAccess ? = ? CreateObject(Access.Application) ? ? ? ? ? ? ? ? ? ? objAccess.OpenCurrentDatabase ? (c:\1.mdb) ? ? ? ? ? ? ? ? ? ? objAccess.DoCmd.OpenReport ? ReportName, ? acViewPreview ? ? ? ? ? ? ? ? ? ? objAccess.Visible ? = ? True ? ? ? ? 这个要引用Microsoft ? Access ? 9.0 ? Object ? Library(Office ? 2000) ? ? 我没试过Office97会怎么样。
VB中打印ACCESS报表
作者:aspxer??来源:internet??日期:2007-5-20 13:56:44??关键字:
VB中打印ACCESS报表
acc As Object
Set acc = CreateObject(Access.Application)
If Right$(Trim$(App.Path), 1) = \ Then
acc.OpenCurrentDatabase App.Path data.mdb
@#打开数据库
Else
acc.OpenCurrentDatabase App.Path \data.mdb
End If
acc.docmd.OpenReport 打印准考证 @#, acPreview
打印报表“打印准考证”
acc.Quit
Set acc = Nothing
使用ACCESS报表主要缺点就是不能预览
Dim acc As Object Set acc = CreateObject(Access.Application) If Right$(Trim$(App.Path), 1) = \ Then acc.OpenCurrentDatabase App.Path data.mdb 打开数据库 Else acc.OpenCurrentDatabase App.Path \data.mdb End If acc.docmd.OpenReport 打印准考证 , acPreview 打印报表“打印准考证” acc.Quit Set acc = Nothing使用ACCESS报表主要缺点就是不能预览怪问题：在 Access 里新建了报表后，VB/VC 可不可以直接调用并打印？先引用access ? obj ? ? ? ? Option ? Explicit ? ? ? ? Private ? Sub ? Form_Load() ? ? ? ? ? ? Call ? PrintReport(App.Path ? ? \test.mdb, ? test) ? ? End ? Sub ? ? ? ? Private ? Function ? PrintReport(ByVal ? MdbFileName ? As ? String, ? ByVal ? ReportName ? As ? String) ? As ? Boolean ? ? On ? Error ? GoTo ? ErrTrap ? ? ? ? ? ? ? ? Dim ? localReport ? As ? New ? Access.Application ? ? ? ? ? ? ? ? ? ? ?
文档评论（0）