1、VB 中怎么载如或显示 Access 数据库中的报表首先在“工程/引用 ”菜单下引用 Microsoft Access 9.0 Object LibraryOption ExplicitDim MSAccess As Access.ApplicationPrivate Sub Command1_Click()Set MSAccess = New Access.ApplicationMSAccess.OpenCurrentDatabase (App.Path DBQ=“ password=xxx“ conn.Open 连接 excel cona.ConnectionString = “drive
2、r=Microsoft Access Driver (*.xls);DBQ=“ 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
3、=nothing 能在 VB 中调用 ACCESS 中的窗体吗?OpenCurrentDatabase 方法示例 以下示例通过“自动化”(Automation) 从其他应用程序中打开一个 Microsoft Access 数据库，然后打开一个数据库中的窗体。 可以在任何一个能作为 COM 组件的应用程序的 Visual Basic 模块中键入这段代码。例如，可以从 Microsoft Excel、 Microsoft Visual 或 Microsoft Access 中运行下列代码。 当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将
4、关闭。所以，必须在模块级说明这个变量。 在模块的声明节中包含以下语句。 Dim appAccess As Access.Application Sub DisplayForm() 将字符串初始化为数据库的路径。 Const strConPathToSamples = “C:Program “ _ & “FilesMicrosoft OfficeOfficeSamplesNorthwind.mdb“ strDB = strConPathToSamples & “Northwind.mdb“ 创建 Microsoft Access 的实例。 Set appAccess = _ CreateObje
5、ct(“Access.Application“) 在 Microsoft Access 窗口中打开数据库。 appAccess.OpenCurrentDatabase strConPathToSamples 打开“Orders” 窗体。 appAccess.DoCmd.OpenForm “Orders“ End Sub 请教各位，如何在 vb 的窗体中，调用或显示 access 中做的报表。Dim objAccess As Access.Application Set objAccess = CreateObject(“Access.Application“) objAccess.OpenCurrentDatabase (“c:1.mdb“) objAccess.DoCmd.OpenReport “report1“, acViewPreview objAccess.Visible = True
