用VB调用Acecss数据库.docVIP

VB中怎么载如或显示Access数据库中的报表首先在“工程/引用”菜单下引用Microsoft?Access?9.0?Object?LibraryOption?ExplicitDim?MSAccess?As?Access.ApplicationPrivate?Sub?Command1_Click()????Set?MSAccess?=?New?Access.Application????MSAccess.OpenCurrentDatabase?(App.Path??\db1.mdb)????MSAccess.DoCmd.OpenReport?rptTB,?acViewNormal????MSAccess.CloseCurrentDatabase????Set?MSAccess?=?NothingEnd?SubrptTB是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 ObjectSet acc = CreateObject(Access.Application)If Right$(Trim$(App.Path), 1) = \ Thenacc.OpenCurrentDatabase App.Path data.mdb打开数据库Elseacc.OpenCurrentDatabase App.Path \data.mdbEnd Ifacc.docmd.OpenReport 打印准考证 , acPreview打印报表“打印准考证”acc.QuitSet 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 ? ? ? ? ? ? ? ?