用vb调用access数据库1

《用vb调用access数据库1》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、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")    

2、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

3、.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

4、报表·作者:aspxer  来源:internet  日期:2007-5-2013:56:44  关键字:·VB中打印ACCESS报表accAsObjectSetacc=CreateObject("Access.Application")IfRight$(Trim$(App.Path),1)=""Thenacc.OpenCurrentDatabaseApp.Path&"data.mdb"@#打开数据库Elseacc.OpenCurrentDatabaseApp.Path&"data.mdb"En

5、dIfacc.docmd.OpenReport"打印准考证"@#,acPreview打印报表“打印准考证”acc.QuitSetacc=Nothing使用ACCESS报表主要缺点就是不能预览DimaccAsObjectSetacc=CreateObject("Access.Application")IfRight$(Trim$(App.Path),1)=""Thenacc.OpenCurrentDatabaseApp.Path&"data.mdb"'打开数据库Elseacc.OpenCurrent

6、DatabaseApp.Path&"data.mdb"EndIfacc.docmd.OpenReport"打印准考证"',acPreview打印报表“打印准考证”acc.QuitSetacc=Nothing使用ACCESS报表主要缺点就是不能预览怪问题：在Access里新建了报表后，VB/VC可不可以直接调用并打印？'先引用access obj    Option Explicit    Private Sub Form_Load()      Call PrintReport(App.Path 

7、& "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            Call localReport.OpenCurrentDatabase(

8、MdbFileName)      Call localReport.DoCmd.OpenReport(ReportName, acViewDesign)      Call localReport.DoCmd.Close            Call localReport.DoCmd.Maximize      localReport.Visible = True        Call localReport.DoCmd.OpenReport(ReportNa