VB调用水晶报表

第一步：
　　在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 ""select top 1 * from UserTable"", 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 

’ 现在问题是：我用的是"select top 1 * from UserTable"，而报表显示出所有的了？？

----------------------------------------------------------------------

Private objCRApp As New CRAXDRT.Application    '水晶报表应用程序对象
Private objCRReport As New CRAXDRT.Report             '报表对象
Dim rs As ADODB.Recordset
Dim msgtext As String

Private Sub cmdsearch_Click()

  '清除报表中保持的数据
  objCRReport.DiscardSavedData
  '形成数据集
  '单个表适合用sql语句
  strsql = "select * from clerk where clerk_bm='" & Combo1.Text & "'"
  '多个表筛取数据 必须要用视图，水晶报表不能用sql语句
  'strsql = "select * from clerk_organ_view where clerk_bm='" & Combo1.Text & "'"
  Set rs = ExecuteSQL(strsql, msgtext)
  '赋给报表数据
  objCRReport.Database.SetDataSource rs
  CRViewer91.ReportSource = objCRReport

  '指定报表来源
  CRViewer91.ReportSource = objCRReport
  '显示报表
  CRViewer91.ViewReport
End Sub

Private Sub Form_Load()
  Dim strsql As String
  strsql = "select distinct clerk_bm from clerk"
  Set rs = ExecuteSQL(strsql, msgtext)
  Do While Not rs.EOF
     Combo1.AddItem rs(0)
     rs.MoveNext
  Loop
  
  '加载报表模板
  '单个数据表形成的报表
  Set objCRReport = objCRApp.OpenReport(App.Path & "\1.rpt", 1)
  '多个数据表形成的报表
  Set objCRReport = objCRApp.OpenReport(App.Path & "\2.rpt", 1)
  
End Sub

Private Sub Form_Resize()
'  CRViewer91.Top = 50
'  CRViewer91.Left = 0
'  CRViewer91.Height = ScaleHeight - Combo1.Height
'  CRViewer91.Width = ScaleWidth
End Sub

转载于:https://www.cnblogs.com/todd/archive/2007/07/27/833397.html