用VB调用Access数据库1

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\

MSAccess.CloseCurrentDatabase

Set MSAccess = Nothing

End Sub

rptTB是access中的一个报表名称

要引用Microsoft Access 9.0 Object Library

dim 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 & \"\est.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 ;DBQ=\" & App.Path & \"\\xxx.mdb;password=xxx\"

conn.Open

'连接excel

cona.ConnectionString = \"driver={Microsoft Access BQ=\" & App.Path & \"\\xxx.xls;password=xxx\"

cona.Open

'打开并查询access表

rs.cursorlocation=3

Driver Driver (*.mdb)} (*.xls)};D

rs.Open \"select * from xxx where ....\ conn

'打开excel表

ra.cursorlocation=3

ra.Open \"select * '新增到Excel

ra.addnew

ra(\"xx\")=rs(\"xxx\")

....

ra.update

rs.close

ra.close

set conn=nothing set cona=nothing

from [xxx]\cona

能在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 \" _

& \"Files\\Microsoft Office\\Office\\Samples\\Northwind.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 Access.Application

Set objAccess = CreateObject(\"Access.Application\")

objAccess.OpenCurrentDatabase (\"c:\\1.mdb\")

objAccess.DoCmd.OpenReport \"report1\ acViewPreview

objAccess.Visible = True