option explicit

VB中怎么载如或显示Access数据库中的报表

'首先在“工程/引用”菜单下引用MicrosoftAccess9.0ObjectLibrary

OptionExplicit

ation

PrivateSubCommand1_Click()

SetMSAccess=ation

rrentDatabase(&"")

port"rptTB",acViewNormal

urrentDatabase

SetMSAccess=Nothing

EndSub

rptTB是access中的一个报表名称

要引用MicrosoftAccess9.0ObjectLibrary

ation

SetobjAccess=CreateObject("ation")

rrentDatabase("c:")

port"ReportName",acViewPreview

e=True

这个要引用MicrosoftAccess9.0ObjectLibrary(Office2000)

我没试过Office97会怎么样。

VB中打印ACCESS报表

作者:aspxer来源:internet日期:2007-5-2013:56:44关键字:



VB中打印ACCESS报表

accAsObject

Setacc=CreateObject("ation")

IfRight$(Trim$(),1)=""Then

&""

@#打开数据库

Else

&""

EndIf

port"打印准考证"@#,acPreview

打印报表“打印准考证”

Setacc=Nothing

使用ACCESS报表主要缺点就是不能预览

DimaccAsObject

Setacc=CreateObject("ation")

IfRight$(Trim$(),1)=""Then

&""

'打开数据库

Else

&""

EndIf

port"打印准考证"',acPreview

打印报表“打印准考证”

Setacc=Nothing使用ACCESS报表主要缺点就是不能预览

怪问题：在Access里新建了报表后，VB/VC可不可以直接调用并打印？

'先引用accessobj

OptionExplicit

PrivateSubForm_Load()

CallPrintReport(&"","test")

EndSub

PrivateFunctionPrintReport(ByValMdbFileNameAsString,ByValReportNameAsStri

ng)AsBoolean

OnErrorGoToErrTrap

ation

rrentDatabase(MdbFileName)

port(ReportName,acViewDesign)

ze

e=True

port(ReportName,acViewNormal)

SetlocalReport=Nothing

PrintReport=True

GoToFun_exit

ErrTrap:

PrintReport=False

SetlocalReport=Nothing

Fun_exit:

EndFunction

可不可以在VB里调用ACCESS表象调用EXCEL一样容易

tion

tion

set

set

'连接access

tionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="&&

";password=xxx"

'连接excel

tionString="driver={MicrosoftAccessDriver(*.xls)};DBQ="&&

";password=xxx"

'打开并查询access表

location=3

"select*fromxxxwhere....",conn

'打开excel表

location=3

"select*from[xxx]",cona

'新增到Excel

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

....

setconn=nothing

setcona=nothing

能在VB中调用ACCESS中的窗体吗?

OpenCurrentDatabase方法示例

以下示例通过“自动化”(Automation)从其他应用程序中打开一个MicrosoftAccess数据库，然后

打开一个数据库中的窗体。

可以在任何一个能作为COM组件的应用程序的VisualBasic模块中键入这段代码。例如，可

以从MicrosoftExcel、MicrosoftVisual或MicrosoftAccess中运行下列代码。

当指向Application对象的变量超出范围时，它所表示的MicrosoftAccess实例也将关闭。所以，

必须在模块级说明这个变量。

'在模块的声明节中包含以下语句。

ation

SubDisplayForm()

'将字符串初始化为数据库的路径。

ConststrConPathToSamples="C:Program"_

&""

strDB=strConPathToSamples&""

'创建MicrosoftAccess的实例。

SetappAccess=_

CreateObject("ation")

'在MicrosoftAccess窗口中打开数据库。

rrentDatabasestrConPathToSamples

'打开“Orders”窗体。

rm"Orders"

EndSub

请教各位，如何在vb的窗体中，调用或显示access中做的报表。

ation

SetobjAccess=CreateObject("ation")

rrentDatabase("c:")

port"report1",acViewPreview

e=True