Public conn_n As New ADODB.Connection '連接 Public rs As New ADODB.Recordset '數據集 conn_n.ConnectionString = "你的連接字符串" If conn_n.State = adStateOpen Then conn_n.Close conn_n.Open conn_n.CursorLocation = adUseClient If rs.State = adStateOpen Then rs.Close P_Rpt = "prodapply" Call rs.Open("你自己的sql語句!", conn_n)
水晶报表（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 Cystal1Private Sub Form_Load() Screen.MousePointer = vbHourglass '调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改 CRViewer91.ViewReport Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状End SubPrivate Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidthEnd 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 = vbDefaultEnd SubPrivate Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidthEnd SubPrivate 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）进行水晶报表开发，可以获得更大的灵活性。
都是照上面写的， 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 = "dtcxbb.rpt" '定义要引用的rpt文件 Set oRpt = oApp.OpenReport("h:\temp\dtcxbb.rpt", 1) oRpt.Database.SetDataSource rs '连接水晶报表和数据源 oRpt.ReadRecords CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能 CRViewer91.ViewReport Screen.MousePointer = vbDefault End SubPrivate Sub Form_Resize() CRViewer91.Top = 0 CRViewer91.Left = 0 CRViewer91.Height = ScaleHeight CRViewer91.Width = ScaleWidth End SubPrivate Sub Form_Unload(Cancel As Integer) 'Set Report = Nothing Set rs = Nothing Set conn = Nothing Unload Form2 End Subform1的代码 Private Sub Command1_Click() Dim connstr, rsstr As String If conn.State = adStateOpen Then conn.Close connstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DBQ=h:\rsgl\rsgl.mdb;DefaultDir=h:\rsgl;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=H:\rsgl\rsgl.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" rsstr = "select * from rsdtxx" conn.ConnectionString = connstr conn.Open conn.CursorLocation = adUseClient If rs.State = adStateOpen Then rs.Close rs.Open rsstr, conn, adOpenKeyset, adLockReadOnly ' Report.Database.SetDataSource rs, 3, 1 Form2.Show 1 '数据库连接完成后，调用Form2水晶报表工程 End Sub报实时错误9，下标越界。
faysky2() 在吗? 我知道为什么下标越界了.我做的报表不是用的"自定义链接". 我照着上面的做能成功了,但放进我的程序中又有问题了,报表出来只有表头和二行空的表格,自定义的字段都没有了. 我希望报表是我查出来的内容 在cmdseek中我这么写的 dtxxcx = "select * from rsdtxx where " & t Dim conn As New adodb.Connection connstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DBQ=h:\rsgl\rsgl.mdb;DefaultDir=h:\rsgl;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=H:\rsgl\rsgl.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" cn.CursorLocation = adUseClient cn.Open connstr rstdtxxcx.Open dtxxcx, cn Set DataGrid1.DataSource = rstdtxxcx 在datagrid1中能正确显示我想查询的内容. 在cmdprint中我这么写的,希望能打出和查询一样的内容 Dim connstr As String connstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DBQ=h:\rsgl\rsgl.mdb;DefaultDir=h:\rsgl;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=H:\rsgl\rsgl.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;" If cn.State = adStateOpen Then cn.Close cn.ConnectionString = connstr cn.Open cn.CursorLocation = adUseClient If rstdtxxcx.State = adStateOpen Then rstdtxxcx.Close dtxxcx = "select * from rsdtxx where " & t rstdtxxcx.Open dtxxcx, cn dtxxcxbb.Show 但显示出来就是空的报表,只有表格没有数据. form2中的代码都一样,只是报表名改成了我的报表名而已. 哪错了吗?
你的rstdtxxcx定义成公共级的没有？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 = "dtcxbb.rpt" '定义要引用的rpt文件 Set oRpt = oApp.OpenReport("h:\temp\dtcxbb.rpt", 1) oRpt.Database.SetDataSource rs '连接水晶报表和数据源----------------------->把这里的rs改成了rstdtxxcx没有？ oRpt.ReadRecords CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能 CRViewer91.ViewReport Screen.MousePointer = vbDefault End Sub
Public rs As New ADODB.Recordset '數據集
conn_n.ConnectionString = "你的連接字符串"
If conn_n.State = adStateOpen Then conn_n.Close
conn_n.Open
conn_n.CursorLocation = adUseClient
If rs.State = adStateOpen Then rs.Close
P_Rpt = "prodapply"
Call rs.Open("你自己的sql語句!", conn_n)
-----------------------------VB中使用水晶报表编程的方法
2005-04-14 14:00:47 冯强
水晶报表（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 Cystal1Private Sub Form_Load() Screen.MousePointer = vbHourglass
'调用水晶报表时置鼠标为沙漏状 CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改 CRViewer91.ViewReport
Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状End SubPrivate Sub Form_Resize() CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidthEnd 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 = vbDefaultEnd SubPrivate Sub Form_Resize() CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidthEnd SubPrivate 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）进行水晶报表开发，可以获得更大的灵活性。
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 = "dtcxbb.rpt" '定义要引用的rpt文件
Set oRpt = oApp.OpenReport("h:\temp\dtcxbb.rpt", 1)
oRpt.Database.SetDataSource rs '连接水晶报表和数据源
oRpt.ReadRecords
CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End SubPrivate Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End SubPrivate Sub Form_Unload(Cancel As Integer)
'Set Report = Nothing
Set rs = Nothing
Set conn = Nothing
Unload Form2
End Subform1的代码
Private Sub Command1_Click()
Dim connstr, rsstr As String
If conn.State = adStateOpen Then conn.Close
connstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DBQ=h:\rsgl\rsgl.mdb;DefaultDir=h:\rsgl;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=H:\rsgl\rsgl.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
rsstr = "select * from rsdtxx"
conn.ConnectionString = connstr
conn.Open
conn.CursorLocation = adUseClient
If rs.State = adStateOpen Then rs.Close
rs.Open rsstr, conn, adOpenKeyset, adLockReadOnly
' Report.Database.SetDataSource rs, 3, 1
Form2.Show 1 '数据库连接完成后，调用Form2水晶报表工程
End Sub报实时错误9，下标越界。
我知道为什么下标越界了.我做的报表不是用的"自定义链接".
我照着上面的做能成功了,但放进我的程序中又有问题了,报表出来只有表头和二行空的表格,自定义的字段都没有了.
我希望报表是我查出来的内容
在cmdseek中我这么写的
dtxxcx = "select * from rsdtxx where " & t
Dim conn As New adodb.Connection
connstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DBQ=h:\rsgl\rsgl.mdb;DefaultDir=h:\rsgl;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=H:\rsgl\rsgl.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
cn.CursorLocation = adUseClient
cn.Open connstr
rstdtxxcx.Open dtxxcx, cn
Set DataGrid1.DataSource = rstdtxxcx
在datagrid1中能正确显示我想查询的内容.
在cmdprint中我这么写的,希望能打出和查询一样的内容
Dim connstr As String
connstr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=" & "DBQ=h:\rsgl\rsgl.mdb;DefaultDir=h:\rsgl;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=H:\rsgl\rsgl.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
If cn.State = adStateOpen Then cn.Close
cn.ConnectionString = connstr
cn.Open
cn.CursorLocation = adUseClient
If rstdtxxcx.State = adStateOpen Then rstdtxxcx.Close
dtxxcx = "select * from rsdtxx where " & t
rstdtxxcx.Open dtxxcx, cn
dtxxcxbb.Show
但显示出来就是空的报表,只有表格没有数据.
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 = "dtcxbb.rpt" '定义要引用的rpt文件
Set oRpt = oApp.OpenReport("h:\temp\dtcxbb.rpt", 1)
oRpt.Database.SetDataSource rs '连接水晶报表和数据源----------------------->把这里的rs改成了rstdtxxcx没有？
oRpt.ReadRecords
CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
Set oRpt = oApp.OpenReport("h:\temp\dtcxbb.rpt", 1)
oRpt.Database.SetDataSource rs 这三句我写的是
reportName = App.Path & "\report\dtcxbb.rpt"
Set oRpt = oApp.OpenReport(reportName, 1)
orpt.database.setdatasource rstdtxxcx应该也一样吧