用VB调用Access数据库1.doc

VB中怎么载如或显示Access数据库中的报表首先在“工程/引用”菜单下引用MicrosoftAccess9.0ObjectLibraryOptionExplicitDimMSAccessAsAccess.ApplicationPrivateSubCommand1_Click()SetMSAccess=NewAccess.ApplicationMSAccess.OpenCurrentDatabase(App.Path&db1.mdb)MSAccess.DoCmd.OpenReportrptTB,acViewNormalMSAccess.CloseCurrentDatabaseSetMSAccess=NothingEndSubrptTB是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 Call localReport.OpenCurrentDatabase(MdbFileName) Call localReport.DoCmd.OpenReport(ReportName, acViewDesign) Call localReport.DoCmd.Close Call localReport.DoCmd.Maximize localReport.Visible = True Call localReport.DoCmd.OpenReport(ReportName, acViewNormal) Call localReport.Quit Set localReport = Nothing PrintReport = True GoTo Fun_exit ErrTrap: PrintReport = False Call localReport.Quit Set localReport = Nothing Fun_exit: End Function可不可以在VB里调用ACCESS表象调用EXCEL一样容易Dim conn As New ADODB.Connection Dim cona As New ADODB.Connection Dim rs As New ADODB.Recordset Dim ra As New ADODB.Recordset 连接access conn.ConnectionString = driver=Microsoft Access Driver (*.mdb);DBQ= & App.Path & xxx.mdb;password=xxx conn.Open 连接excel cona.ConnectionString = driver=Microsoft Access Driver (*.xls);DBQ= & App.Path & xxx.xls;password=xxx cona.Open 打开并查询access表 rs.cursorlocation=3 rs.Open select * from xxx where ., conn 打开excel表 ra.cursorlocation=3 ra.Open select * from xxx, cona 新增到Excel ra.addnew ra(xx)=rs(xxx) . ra.update rs.close ra.close set conn=nothing set cona=nothing 能在VB中调用ACCESS中的窗体吗?OpenCurrentDatabase 方法示例 以下示例通过“自动化”(Automation) 从其他应用程序中打开一个 Microsoft Access 数据库，然后打开一个数据库中的窗体。 可以在任何一个能作为 COM 组件的应用程序的 Visual Basic 模块中键入这段代码。例如，可以从 Microsoft Excel、 Microsoft Visual 或 Microsoft Access 中运行下列代码。 当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。 在模块的声明节中包含以下语句。 Dim appAccess As Access.Application Sub DisplayForm() 将字符串初始化为数据库的路径。 Const strConPathToSamples = C:Program _ & FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb strDB = strConPathToSamples & Northwind.mdb 创建 Microsoft Access 的实例。 Set appAccess = _ CreateObject(Access.Application) 在 Microsoft Access 窗口中打开数据库。 appAccess.OpenCurrentDatabase strConPathToSamples 打开“Orders”窗体。 appAccess.DoCmd.OpenForm Orders End Sub 请教各位，如何在vb的窗体中，调用或显示access中做的报表。Dim objAccess As