关于水晶报表的打印问题? 水晶报表可以对网络数据库进行打印吗?如果可以该如何设置呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 只要你能连接网络数据库,查询到记录集,就可以,因为可以动态的连接水晶报表的数据源: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.0简体中文开发版。 关于在水晶报表中制作报表模板的方法,并非本文的探讨范围,读者可以参考Crystal Report的帮助文件和官方网站的技术资料。简单得说,首先要通过水晶报表的数据库引擎手动连接相应的表结构,制作报表模板,并保存为rpt文件,该项操作和利用VB自带的报表工具制作报表大同小异。 简单地说,用VB调用水晶报表进行报表开发的简单接口方法就是,在水晶报表中用"仅字段定义"来获得字段分布文件,用虚拟的文件创建表字段,用CRAXDRT对象来强制改变数据源(ADO.recordset),其效果相当于在VB中调用了rpt文件。下面分步骤介绍编程方法。 第一步: 在VB工程中Project菜单加入"Add Crystal Report 9",报表名使用默认即可。这时Form2(Crystal Rerport自动添加的Form,假设名为Form2)被自动分配了如下代码:Option Explicitdim 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.ConnectionPublic rs As New ADODB.Recordset 第四步: 关于VB程序的ADO数据库连接注意事项,请看下面的打印按钮例程。Private Sub Command1_Click() Dim connstr As String If conn.State = adStateOpen Then conn.Close connstr = ""Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器IP"" 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 Form2End Sub 看看CrystalReport自带的Samples文件吧 www.wave12.com的报表打印控件wsReport3.9 我在打印数据的时候,希望打印表中的前三条数据,可为什么预览的是所有的数据呢。代码如下:Dim strConn As String Dim strsql As String Set Report = CryApp.OpenReport(App.Path & "\rptcheck.rpt") Dim Conn As New ADODB.Connection Dim adoRS As New ADODB.Recordset strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Initial Catalog=WdxData;Data Source=" & ServerName & "" Conn.ConnectionString = strConn Conn.Open strsql = "select top 3 * from checkinfo" adoRS.Open strsql, Conn, adOpenDynamic, adLockBatchOptimistic Report.Database.SetDataSource adoRS Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault Dim strConn As String Dim strsql As String Set Report = CryApp.OpenReport(App.Path & "\rptcheck.rpt") Dim Conn As New ADODB.Connection Dim adoRS As New ADODB.Recordset strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Initial Catalog=WdxData;Data Source=" & ServerName & "" Conn.ConnectionString = strConn Conn.Open strsql = "select top 3 * from checkinfo" adoRS.Open strsql, Conn, adOpenDynamic, adLockBatchOptimistic Report.DiscardSavedData '增加此语句,清空数据 Report.Database.SetDataSource adoRS Report.ReadRecords '增加此句,读新的记录集 Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport Screen.MousePointer = vbDefault数据库报表联盟17906741 谢谢楼上的,现在有出现新问题了。运行到Report.Database.SetDataSource adoRS 时出现错误,提示服务器没有打开,单步执行到Conn.open时没有问题。请高手指教 我在做水晶报表时,先与数据库连接了,每次打印时都是打印数据库的全部信息。我希望进行选择打印。执行到Report.Database.SetDataSource adoRS 出现错误,提示server has not been opened.没有打开服务器。怎么回事???如果把RptClt.DiscardSavedData 去掉就没有问题了。难道是记录集错误了,以前都是这样写的,没有问题。 你得更改报表的数据源,就是在创建报表的时候,选择SQL命令,把在ADODB连接的记录集的SQL语句复制到此命令框里就OK了 谢谢luckystone168,可是我的sql命令是动态的,如何把动态的sql语句添加到水晶报表里呢。如果把sql语句复制到命令框里,那一个报表只能有一种查询,如何添加动态查询呢 把SQL语句复制进来是为了获取查询所得到的字段(保证命令框的字段结构与ADODB记录集字段结构一致),在把这些得到的字段在报表中设计.至于动态数据,就利用ADODB记录生成,然后通过 strsql = "select top 3 * from checkinfo" adoRS.Open strsql, Conn, adOpenDynamic, adLockBatchOptimistic Report.DiscardSavedData '增加此语句,清空数据 Report.Database.SetDataSource adoRS Report.ReadRecords '增加此句,读新的记录集 把记录导入进来.建议你在命令框去掉WHERE语句,在ADORS的SQL语句添加WHERE语句以实现动态查询仔细看看我发给你的代码,欢迎加入QQ群:数据库报表联盟17906741 谢谢 luckystone168(奔奔) ,问题已经解决。接分!!! 用VB怎么打开IE的历史对话框? VB6在2000上打包后,在win98上面装时出现的问题? 哪位有经验的大侠看看,多谢! 如何使用状态栏 如何获得数据库信息 在WORD,如何建立一个超级链接来调用VBA中的宏函数啊??? 关于Validate的问题(一定给分) 请问如何在InstallShield中执行DOS命令 打印发票单 如何获得储存过程返回的记录集?(难) 在VB中如何用Word object libary10.0设置页眉页脚 如何向空数据表中添加记录,请高手赐教
2005-04-14 14:00:47 冯强
水晶报表(Crystal Report)是业内最专业、功能最强的报表系统,它除了强大的报表功能外,最大的优势是实现了与绝大多数流行开发工具的集成和接口。在VS.Net平台做过报表开发的程序员,一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外,在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求,如果能结合水晶报表这一强大的工具,往往能事半功倍。 VB是以前流行的数据库开发平台,用其开发的C/S系统在社会上有非常大的保有量,但VB超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。本文并不做水晶报表的使用和编程教学,实际上水晶报表本身的使用方法和VS.Net平台并没有太大的差别,我主要是和大家探讨一下VB和水晶报表的一种较方便的接口方式。我的开发测试平台是Windows2003 Standard简体中文版、VB6.0+sp5英文版、Crystal 9.0简体中文开发版。 关于在水晶报表中制作报表模板的方法,并非本文的探讨范围,读者可以参考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=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器IP"" 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
代码如下:
Dim strConn As String
Dim strsql As String
Set Report = CryApp.OpenReport(App.Path & "\rptcheck.rpt")
Dim Conn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Initial Catalog=WdxData;Data Source=" & ServerName & ""
Conn.ConnectionString = strConn
Conn.Open
strsql = "select top 3 * from checkinfo"
adoRS.Open strsql, Conn, adOpenDynamic, adLockBatchOptimistic
Report.Database.SetDataSource adoRS
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Dim strsql As String
Set Report = CryApp.OpenReport(App.Path & "\rptcheck.rpt")
Dim Conn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=sa;Initial Catalog=WdxData;Data Source=" & ServerName & ""
Conn.ConnectionString = strConn
Conn.Open
strsql = "select top 3 * from checkinfo"
adoRS.Open strsql, Conn, adOpenDynamic, adLockBatchOptimistic
Report.DiscardSavedData '增加此语句,清空数据
Report.Database.SetDataSource adoRS
Report.ReadRecords '增加此句,读新的记录集
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
数据库报表联盟17906741
执行到Report.Database.SetDataSource adoRS 出现错误,提示server has not been opened.没有打开服务器。怎么回事???
如果把RptClt.DiscardSavedData 去掉就没有问题了。难道是记录集错误了,以前都是这样写的,没有问题。
strsql = "select top 3 * from checkinfo"
adoRS.Open strsql, Conn, adOpenDynamic, adLockBatchOptimistic
Report.DiscardSavedData '增加此语句,清空数据
Report.Database.SetDataSource adoRS
Report.ReadRecords '增加此句,读新的记录集 把记录导入进来.建议你在命令框去掉WHERE语句,在ADORS的SQL语句添加WHERE语句以实现动态查询
仔细看看我发给你的代码,欢迎加入QQ群:数据库报表联盟17906741