学步园

       VB利用DataReport做报表

首先介绍一下DataReport对象的几个常用属性。一是DataSource，用于设置一个数据源，通过该数

据源，数据使用者被绑定到一个数据库；二是DataMember，从DataSource提供的几个数据成员中设

置一个特定的数据成员；三是LeftMargin、RightMargin、TopMargin、BottomMargin等，用于指定

报表的左右上下的页边距；四是Sections，即DataReport的报表标头、页标头、细节、页脚注、报

表脚注5个区域，如果加上分组(可以有多层分组)，则增加一对区域，即分组标头、分组脚注。其

中DataSource一般是一个数据环境或是ADODB.Connection类型的变量，而DataMember则对应数据环

境中的Command或是ADODB.RecordSet类型的变量，推荐使用数据环境及Command，页边界大家肯定

都很清楚，下面我主要介绍以下Sections，这也是DataReport的精髓所在。

  Sections是一个集合，您可以为每一个Section指定名称，也可以用其缺省的索引，从上到下

依次为1、2…。每个Section均有Height和Visible属性，您可以在一定条件下使一个Section不可

见。在Section中可以放置各种报表控件，其中RptLabel、RptImage、RptShape和RptLine可以放在

任意的Section中，用于输出各种文字、图形及表格线；RptTextBox只能放在细节中，一般用于绑

定输出DataMemeber提供的数据字段；RptFunction只能被放置在分组注脚中,用于输出使用各种内

置函数计算出的合计、最大值、最小值、平均值、记数等等。上述报表控件中常用公共属性有用于

控制位置及高度宽度的Top、Left、Height、Width和控制可见性的Visible；其中RptTextBox还有

DataField、DataMember、DataFormat及Font属性；其他属性不再多说。

  然后介绍一下我的使用经验。一是对想控制的报表控件按类型有规律的命名；二是用RptShape

的矩形框做表格线框，比用RptLine画框省事多了，只有斜线才使用RptLine；三是报表标题及报表

中的表头文字、日期及页码用RptLabel，其中Caption属性支持转义字符，%D为长格式日期，%d为

短格式日期，%P为总页数，%p为当前页码；四是对固定报表在设计窗口直接将报表控件摆放到位，

对于活报表，应首先考虑报表最大的情形，将足够的控件分别放置在不同区域，位置大小可以不必

深究，然后在报表输出前用VBA代码对所有控件的属性进行调整，包括位置、高度、宽度、字体、

对齐方式、显示格式、可见性等等，相应的对Section也应根据情况调整其高度和可见性。

  最后用一个实例模板来说明其使用方法。

  连接数据库

With 数据环境.rsCommand名

If .State = adStateOpen Then .Close

.Source = SQL语句 

.Open 打开想输出的数据库数据项以便输出

End With

With 报表名

 .DataSource=数据环境

 .DataMember=Command名 这两行也可固定设好而不必每次设置

 设置页表头部分(RpttLabel…为报表控件名)

 .Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"

 .Sections(2).Controls("RptLabelDate").Caption = "打印日期：%D"

 .Sections(3).Controls("RptLabel1").Left=…

 …

 设置细节部分(RptShapeX、RptTextBoxX为报表控件名)

 .Sections(3).Controls("RptShape1").Left=…

 .Sections(3).Controls("RptShape1").Top=…

 .Sections(3).Controls("RptShape1").Height=…

 .Sections(3).Controls("RptShape1").Width=…

 .Sections(3).Controls("RptTextBox1").DataMember=Command名

 .Sections(3).Controls("RptTextBox1").DataField=字段1

 .Sections(3).Controls("RptTextBox1").Font.Name=…

 …

 .Sections(3).Controls("RptShapeN").Visible=False

 .Sections(3).Controls("RptTextBoxN").Visible=False

 …

 . Sections(3).Height=计算出的或固定的细节高度

动态调整报表标题(RptLabelTitle为报表标签控件名)

 .Sections(2). Controls("RptLabelTitle").Left=…

 …

 .Sections(2). Controls("RptLabelTitle").Alignment=…

 …

 调整完毕后

 .Show 或 .PrintReport

End With

  这样做的优点是报表设计时简单，调整方便、随意，只需更改一点代码，而不必为了一点点的

修改而费神的在设计窗口调整半天。 

以上代码要写在 DataReport 窗体里的Load事件。

rsCommand名 是DataReport数据环境里设置的命令名。就是Command。

2.

我们在数据库的编程中经常会用到报表的打印，

其中datareport就是一个一个打印报表的控件，

如果想要比较好的打印效果那么就要用到水晶报表了。

那么首先datareport是怎么打印出报表来的呢？

（一）首先在引用中选择mocrosoft data report designet v6.0

然后在设计器里添加控件。

（二）在窗体里调用设计器进行打印。

例子代码如下:

dim ff as instorereport

Set ff.DataSource = rs

    If Cmbstore.Text <> "" Or Cmbstore.Text <> Null Then

        ff.Sections("section2").Controls.Item("lostore").Caption = Cmbstore.Text

        Else

        ff.Sections("section2").Controls.Item("lostore").Caption = ""

        End If

    If Cmbistore.Text <> "" Or Cmbistore.Text <> Null Then

        ff.Sections("section2").Controls.Item("listore").Caption = Cmbistore.Text

        Else

        ff.Sections("section2").Controls.Item("listore").Caption = ""

        End If

    If Tdjh.Text <> "" Or Tdjh.Text <> Null Then

    ff.Sections("section2").Controls.Item("ldjh").Caption = Tdjh.Text

    Else

    ff.Sections("section2").Controls.Item("ldjh").Caption = ""

    End If

temp.Open "select * from CompanyInfo ", cn, 3, 2

    If temp.EOF = False Then

        ff.Sections("section2").Controls.Item("LCompany").Caption = Trim(temp.Fields

(0))  '公司名称

    End If

    ff.Sections("section2").Controls.Item("LTitle").Caption = "单据"

    ff.Caption = "打印"

    temp.Close

 vb6.0 中,用"datareport"
报表控件制作报表,纸张定义 A4 A3 <上一篇 | 下一篇> '在vb6.0中,用"datareport"   报表控件制作报表,当使用报表预览功能时,"datareport"
 '报表控件将使用"windows系统的当前默认打印机"的打印设置,若该打印设置纸张尺寸(如A4纸)小于"datareport"
 '报表控件所需纸张尺寸(如A3纸),则"datareport"   报表预览时将会出现"打印纸张尺寸小于报表宽度"错误,
 '请教如何用代码设置"windows系统的当前默认打印机"的打印机纸张尺寸,而不需用"公共对话框"的打印设置方法?
 
 
  Option Explicit
   
  Public Enum PrinterOrientationConstants
          OrientPortrait = 2
          OrientLandscape = 1
  End Enum
  'Printer.PaperSize   =   vbPRPSA3
  Private Type DEVMODE
          dmDeviceName  
As String * 32
         
dmSpecVersion   As Integer
         
dmDriverVersion   As Integer
          dmSize   As
Integer
         
dmDriverExtra   As Integer
          dmFields   As
Long
         
dmOrientation   As Integer
          dmPaperSize  
As Integer
         
dmPaperLength   As Integer
          dmPaperWidth  
As Integer
          dmScale   As
Integer
          dmCopies   As
Integer
         
dmDefaultSource   As Integer
         
dmPrintQuality   As Integer
          dmColor   As
Integer
          dmDuplex   As
Integer
         
dmYResolution   As Integer
          dmTTOption  
As Integer
          dmCollate   As
Integer
          dmFormName  
As String * 32
         
dmUnusedPadding   As Integer
          dmBitsPerPel  
As Integer
          dmPelsWidth  
As Long
          dmPelsHeight  
As Long
         
dmDisplayFlags   As Long
         
dmDisplayFrequency   As Long
  End Type
  Private Type PRINTER_DEFAULTS
          pDataType   As
String
          pDevMode   As
Long
         
DesiredAccess   As Long
  End Type
  Private Type PRINTER_INFO_2
          pServerName  
As Long
          pPrinterName  
As Long
          pShareName  
As Long
          pPortName   As
Long
          pDriverName  
As Long
          pComment   As
Long
          pLocation   As
Long
          pDevMode   As
Long
          pSepFile   As
Long
         
pPrintProcessor   As Long
          pDataType   As
Long
          pParameters  
As Long
         
pSecurityDescriptor   As Long
          Attributes  
As Long
          Priority   As
Long
         
DefaultPriority   As Long
          StartTime   As
Long
          UntilTime   As
Long
          Status   As
Long
          cJobs   As
Long
          AveragePPM  
As Long
  End Type
   
  Private Const DC_PAPERNAMES = 16
  Private Const DC_PAPERS = 2
  Private Const DC_PAPERSIZE = 3
   
  Private Const DM_IN_BUFFER = 8
  Private Const DM_OUT_BUFFER = 2
  Private Const DM_ORIENTATION = &H1
  Private Const DM_PAPERSIZE = &H2&
   
  Private Const DMPAPER_A3 =
8                                                
'     A3   297   x  
420   mm
  Private Const DMPAPER_A4 =
9                                                
'     A4   210   x  
297   mm
   
  Private Const PRINTER_ACCESS_ADMINISTER = &H4
  Private Const PRINTER_ACCESS_USE = &H8
  Private Const STANDARD_RIGHTS_REQUIRED = &HF0000
  Private Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
         
PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
   
  Private Declare Sub CopyMemory Lib "kernel32" Alias
"RtlMoveMemory" _
          (hpvDest As Any,
hpvSource As Any, ByVal cbCopy As Long)
   
  Private Declare Function OpenPrinter Lib "winspool.drv" Alias
_
          "OpenPrinterA"
(ByVal pPrinterName As String, phPrinter As _
          Long, pDefault As Any)
As Long
   
  Private Declare Function ClosePrinter Lib "winspool.drv" _
          (ByVal hPrinter As Long)
As Long
   
  Private Declare Function DocumentProperties Lib "winspool.drv"
_
          Alias
"DocumentPropertiesA" (ByVal hWnd As Long, ByVal hPrinter As Long, _
          ByVal pDeviceName As
String, pDevModeOutput As Any, pDevModeInput As Any, _
          ByVal fMode As Long) As
Long
   
  Private Declare Function GetPrinter Lib "winspool.drv" _
          Alias
"GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
          pPrinter As Any, ByVal
cbBuf As Long, pcbNeeded As Long) As Long
   
  Private Declare Function SetPrinter Lib "winspool.drv" _
          Alias
"SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _
          pPrinter As Any, ByVal
Command As Long) As Long
   
  Private Declare Function DeviceCapabilities Lib "winspool.drv"
_
          Alias
"DeviceCapabilitiesA" (ByVal lpDeviceName As String, ByVal lpPort As
String, _
          ByVal iIndex As Long,
ByVal lpOutput As String, lpDevMode As DEVMODE) As Long
   
  Function SetDefaultPrinterOrientation(ByVal eOrientation As _
         
PrinterOrientationConstants, ByVal strPaperSize As String) As Boolean
   
          Dim
bDevMode()     As Byte
          Dim
bPrinterInfo2()     As Byte
          Dim
hPrinter     As Long
          Dim lResult    
As Long
          Dim
nSize     As Long
          Dim
sPrnName     As String
          Dim
dm     As DEVMODE
          Dim
pd     As PRINTER_DEFAULTS
          Dim
pi2     As PRINTER_INFO_2
   
          '  
Get   device   name   of  
default   printer
          sPrnName =
Printer.DeviceName
          '  
PRINTER_ALL_ACCESS   required   under
          '  
NT,   because   we're   going  
to   call
          '   SetPrinter
          pd.DesiredAccess =
PRINTER_ALL_ACCESS
           
          '  
Get   a   handle   to   the  
printer.
          If OpenPrinter(sPrnName,
hPrinter, pd) Then
                 
'   Get   number   of  
bytes   requires   for
                 
'   PRINTER_INFO_2   structure
                 
Call GetPrinter(hPrinter, 2&, 0&, 0&, nSize)
                 
'   Create   a   buffer  
of   the   required   size
                 
ReDim bPrinterInfo2(1 To nSize) As Byte
                 
'   Fill   buffer   with   structure
                 
lResult = GetPrinter(hPrinter, 2, bPrinterInfo2(1), _
                         
nSize, nSize)
                 
'   Copy   fixed   portion  
of   structure
                 
'   into   VB   Type   variable
                 
Call CopyMemory(pi2, bPrinterInfo2(1), Len(pi2))
   
                 
'   Get   number   of  
bytes   requires   for
                 
'   DEVMODE   structure
                 
nSize = DocumentProperties(0&, hPrinter, sPrnName, _
                         
0&, 0&, 0)
                 
'   Create   a   buffer  
of   the   required   size
                 
ReDim bDevMode(1 To nSize)
   
                 
'   If   PRINTER_INFO_2   points  
to   a   DEVMODE
                 
'   structure,   copy   it  
into   our   buffer
                 
If pi2.pDevMode Then
                         
Call CopyMemory(bDevMode(1), ByVal pi2.pDevMode, Len(dm))
                 
Else
                         
'   Otherwise,   call   DocumentProperties
                         
'   to   get   a   DEVMODE  
structure
                         
Call DocumentProperties(0&, hPrinter, sPrnName, _
                                 
bDevMode(1), 0&, DM_OUT_BUFFER)
                 
End If
   
                 
'   Copy   fixed   portion  
of   structure
                 
'   into   VB   Type   variable
                 
Call CopyMemory(dm, bDevMode(1), Len(dm))
                 
With dm
                         
'   Set   new   orientation
                         
Select Case strPaperSize
                                 
Case "A3"
                                         
.dmPaperSize = DMPAPER_A3
                                 
Case "A4"
                                         
.dmPaperSize = DMPAPER_A4
                         
End Select
                         
.dmOrientation = eOrientation
                         
.dmFields = DM_ORIENTATION + DM_PAPERSIZE
                 
End With
                 
'   Copy   our   Type  
back   into   buffer
                 
Call CopyMemory(bDevMode(1), dm, Len(dm))
                 
'   Set   new   orientation
                 
Call DocumentProperties(0&, hPrinter, sPrnName, _
                         
bDevMode(1), bDevMode(1), DM_IN_BUFFER Or _
                         
DM_OUT_BUFFER)
   
                 
'   Point   PRINTER_INFO_2   at   our
                 
'   modified   DEVMODE
                 
pi2.pDevMode = VarPtr(bDevMode(1))
                 
'   Set   new   orientation  
system-wide
                 
lResult = SetPrinter(hPrinter, 2, pi2, 0&)
   
                 
'   Clean   up   and   exit
                 
Call ClosePrinter(hPrinter)
                 
SetDefaultPrinterOrientation = True
          Else
                 
SetDefaultPrinterOrientation = False
          End If
   
  End Function

''''----------------------------------
''''---njx:窗体调用的代码：打印纸选用：1:纵向
2.横向
'''SetDefaultPrinterOrientation 2, "A3"
''''-----------------------------------

1.报表的概念

  利用报表可以把数据表中的数据按一定的格式输出到屏幕上或打印到纸上。

  2.制作报表的方法

  在VB6.0中可以利用报表设计器来制作报表，从“工程”中选择“添加data report”，将报表设计器加入到当前工程中，报表由5部分组成：

  报表标头——每份报表只有一个，可以用标签建立报表名。

  页标头——每页有一个，即每页的表头，如字段名。

  细节——需要输出的具体数据，一行一条记录。

  页脚注——每页有一个，如页码。

  报表脚注——每份报表只有一个，可以用标签建立对本报表的注释、说明。

  使用报表设计器处理的数据需要利用数据环境设计器创建与数据库的连接， 从“工程”菜单中选择 “添加Data Enviroment”，在连接中选择指定的数据库文件，完成与数据库的连接，然后产生Command对象连接数据库内的表。

  制作报表的步骤：

  （1） 新建工程，在窗体上放置两个命令按钮；

  （2） 从“工程”菜单中“添加Data Enviroment”，右击Connection1，在属性中选择“Microsoft Jet
4 OLE DB Provider”，在“连接”中指定数据库；

  （3） 再次右击Connection1，选则“添加命令”，创建Command1对象，右击Command1，在属性中设置该对象连接的数据源为需要打印的数据表；

  （4） 在从“工程”菜单中“添加Data Report”，在属性窗口中设置DataSource为数据环境DataEnviroment1对象，DataMember为Command1对象，即指定数据报表设计器DataReport1的数据来源；

  （5） 将数据环境设计器中Command1对象内的字段拖到数据报表设计器的细节区；

  （6） 利用标签控件在报表标头区插入报表名，在页标头区设置报表每一页顶部的标题；

  （7） 利用线条控件在报表内加入直线，利用图形控件和形状控件加入图案或图形；

  （8） 利用DataReport1对象的Show方法显示报表，在窗体Click事件加代码：DataReport1.Show；

  （9） 利用预览窗口按打印按钮可以打印报表；

  （10） 利用预览窗口工具栏上的导出按钮可以将报表内容输出成文本文件或Html文件；也可以利用DataReport1对象的ExportReport方法将报表内容输出成文本文件或Html文件。

  制作报表的简单方法是从“外接程序”中选择报表向导来设计报表。

水晶报表（Crystal Report）是业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在VS.Net平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往往能事半功倍。

VB是以前流行的数据库开发平台，用其开发的C/S系统在社会上有非常大的保有量，但VB超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。本文并不做水晶报表的使用和编程教学，实际上水晶报表本身的使用方法和VS.Net平台并没有太大的差别，我主要是和大家探讨一下VB和水晶报表的一种较方便的接口方式。我的开发测试平台是Windows2003 Standard简体中文版、VB6.0+sp5英文版、Crystal 9.０简体中文开发版。

关于在水晶报表中制作报表模板的方法，并非本文的探讨范围，读者可以参考Crystal Report的帮助文件和官方网站的技术资料。简单得说，首先要通过水晶报表的数据库引擎手动连接相应的表结构，制作报表模板，并保存为rpt文件，该项操作和利用VB自带的报表工具制作报表大同小异。

简单地说，用VB调用水晶报表进行报表开发的简单接口方法就是，在水晶报表中用"仅字段定义"来获得字段分布文件，用虚拟的文件创建表字段，用CRAXDRT对象来强制改变数据源（ADO.recordset），其效果相当于在VB中调用了rpt文件。下面分步骤介绍编程方法。

第一步：

在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认即可。这时Form2（Crystal　Rerport自动添加的Form，假设名为Form2）被自动分配了如下代码：

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

　 Screen.MousePointer = vbHourglass

　 '调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改

　 CRViewer91.ViewReport

　 Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

　 CRViewer91.Top = 0

　 CRViewer91.Left = 0

　 CRViewer91.Height = ScaleHeight

　 CRViewer91.Width = ScaleWidth

End Sub

第二步：

点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。

第三步：

该步骤非常关键，添加一个Modual到工程文件中，定义全局的ADODB变量，实现数据库和水晶报表的动态连接。代码如下：

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

第四步：

关于VB程序的ADO数据库连接注意事项，请看下面的打印按钮例程。

Private Sub Command1_Click()

　 Dim connstr As String

　 If conn.State = adStateOpen Then conn.Close

　　 connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序当前目录的测试Access数据库

　　 conn.ConnectionString = connstr

　　 conn.Open

　　 conn.CursorLocation = adUseClient

　　 If rs.State = adStateOpen Then rs.Close

　　　 rs.Open "test", conn, adOpenKeyset, adLockReadOnly

　　　 ' Report.Database.SetDataSource rs, 3, 1

　　　 Form2.Show 1 '数据库连接完成后，调用Form2水晶报表工程

End Sub

需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第四步。

第五步：

创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。

Option Explicit

'dim Report as New Cystal1

'上面一行取消

Private Sub Form_Load()

　 Dim oApp As New CRAXDRT.Application

　 Dim oRpt As CRAXDRT.Report

　 Dim reportName As String

　 '上面三行是新增加的

　 Screen.MousePointer = vbHourglass

　 reportName = "/rpt/Pr1.rpt"　　 '定义要引用的rpt文件

　 Set oRpt = oApp.OpenReport(App.Path & reportName, 1)

　 oRpt.Database.SetDataSource rs '连接水晶报表和数据源

　 oRpt.ReadRecords

　 CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能

　 CRViewer91.ViewReport

　 Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

　 CRViewer91.Top = 0

　 CRViewer91.Left = 0

　 CRViewer91.Height = ScaleHeight

　 CRViewer91.Width = ScaleWidth

End Sub

Private Sub Form_Unload(Cancel As Integer)

　 'Set Report = Nothing

　 Set rs = Nothing

　 Set conn = Nothing

　 Unload Form2

End Sub

上面介绍了在VB中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。大家熟悉以后，还可以继续学习Crystal Report提供的API函数（Lib库　Crpe32.dll）进行水晶报表开发，可以获得更大的灵活性。

本文来自-编程入门网：http://www.bianceng.cn/Programming/vb/200711/5208_2.htm

本文来自-编程入门网：http://www.bianceng.cn/Programming/vb/200711/5208.htm

都用同一变量：

 第一步：

  在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认即可。这时Form2（Crystal Rerport自动添加的Form，假设名为Form2）被自动分配了如下代码：

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

 Screen.MousePointer = vbHourglass 

 '调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改

 CRViewer91.ViewReport

 Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

 CRViewer91.Top = 0

 CRViewer91.Left = 0

 CRViewer91.Height = ScaleHeight

 CRViewer91.Width = ScaleWidth

End Sub

  第二步：

  点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。

  第三步：

  该步骤非常关键，添加一个Modual到工程文件中，定义全局的ADODB变量，实现数据库和水晶报表的动态连接。代码如下：

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

  第四步：

  关于VB程序的ADO数据库连接注意事项，请看下面的打印按钮例程。

Private Sub Command1_Click()

 Dim connstr As String

 If conn.State = adStateOpen Then conn.Close

  connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序当前目录的测试Access数据库

  conn.ConnectionString = connstr

  conn.Open 

  conn.CursorLocation = adUseClient 

  If rs.State = adStateOpen Then rs.Close

   rs.Open "test", conn, adOpenKeyset, adLockReadOnly

   ' Report.Database.SetDataSource rs, 3, 1

   Form2.Show 1 '数据库连接完成后，调用Form2水晶报表工程

End Sub

  需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第四步。

  第五步：

  创建报表和数据库数据源的连接，需要修改上面Form2的代码。

Option Explicit

'dim Report as New Cystal1

'上面一行取消

Private Sub Form_Load()

 Dim oApp As New CRAXDRT.Application

 Dim oRpt As CRAXDRT.Report

 Dim reportName As String

 '上面三行是新增加的

 Screen.MousePointer = vbHourglass

 reportName = "rptPr1.rpt"   '定义要引用的rpt文件

 Set oRpt = oApp.OpenReport(App.Path & reportName, 1)

 oRpt.Database.SetDataSource rs '连接报表和数据源

 oRpt.ReadRecords

 CRViewer91.ReportSource = oRpt '启用报表的预览功能

 CRViewer91.ViewReport

 Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

 CRViewer91.Top = 0

 CRViewer91.Left = 0

 CRViewer91.Height = ScaleHeight

 CRViewer91.Width = ScaleWidth

End Sub

Private Sub Form_Unload(Cancel As Integer)

 'Set Report = Nothing

 Set rs = Nothing

 Set conn = Nothing

 Unload Form2

End Sub