在crystal reports中利用COMMAND编辑sql语句,制作了单据invoice.rpt。然后将此sql语句copy到VB代码中,生成新的结果集,并赋给rpt文件新的数据源。 但问题是打印出来是我再crystal report下作rpt时的数据,经查阅加入:Report.DiscardSavedData 后,打印出来的单据所有字段都为空了代码如下:Dim strSql As String
strSql = "SELECT inventory.outgoing_price。 Where invoice.invoice_id = "'---------------------------------------------
Dim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.ReportDim strCnn As StringDim cnn1 As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
getConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.101;PORT=3306;DATABASE=sim;USER=sim;PASSWORD=sim;OPTION=3;"conn.Open strconadoRS.Open strSql, cnn1, adOpenDynamic, adLockBatchOptimistic
Set Report = CryApp.OpenReport(App.Path & "\invoice.rpt")Report.DiscardSavedDataReport.Database.SetDataSource adoRS
'------------------------------------------------------'Report.PrintOut FalseunvisiableCRViewer.ReportSource = Report
unvisiableCRViewer.Refresh
unvisiableCRViewer.ViewReport1.跟踪发现数据集和adoRs已经从数据库中查出
2.可以保证sql 语句的字段和invoice.rpt上匹配跪求赐教!
strSql = "SELECT inventory.outgoing_price。 Where invoice.invoice_id = "'---------------------------------------------
Dim CryApp As New CRAXDDRT.Application
Dim Report As CRAXDDRT.ReportDim strCnn As StringDim cnn1 As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
getConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.101;PORT=3306;DATABASE=sim;USER=sim;PASSWORD=sim;OPTION=3;"conn.Open strconadoRS.Open strSql, cnn1, adOpenDynamic, adLockBatchOptimistic
Set Report = CryApp.OpenReport(App.Path & "\invoice.rpt")Report.DiscardSavedDataReport.Database.SetDataSource adoRS
'------------------------------------------------------'Report.PrintOut FalseunvisiableCRViewer.ReportSource = Report
unvisiableCRViewer.Refresh
unvisiableCRViewer.ViewReport1.跟踪发现数据集和adoRs已经从数据库中查出
2.可以保证sql 语句的字段和invoice.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 StringIf conn.State = adStateOpen Then conn.Closeconnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序当前目录的测试Access数据库conn.ConnectionString = connstrconn.Open conn.CursorLocation = adUseClient If rs.State = adStateOpen Then rs.Closers.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.ReadRecordsCRViewer91.ReportSource = oRpt '启用水晶报表的预览功能CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End 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 = NothingSet rs = NothingSet conn = NothingUnload Form2End Sub上面介绍了在VB中使用水晶报表进行报表开发的一种方法,该方法简单易用,适合初学者上手。大家熟悉以后,还可以继续学习Crystal Report提供的API函数(Lib库 Crpe32.dll)进行水晶报表开发,可以获得更大的灵活性。(完)源码下载:http://dl6.mydown.com/code/more/20050409_Crystal_VB6.rar
建议你使用(字段定义)ttx方式去连接,试读一下.
strsel="select ……" -----把报表上的命令写在这
记录集.Open strsel, 连接, adOpenKeyset, adLockReadOnly
invoiceTest .Database.Tables(1).SetDataSource rstdata
试试看!
但愿,能给你点起发。GOOD LUCK!