还接着上次说。在上个博客中已经说到建立好表的步骤了,接下来就是怎么使表与vb连接。
先看一下代码。
Option Explicit Dim WithEvents Report As grproLibCtl.GridppReport '实例化报表 Dim txtsql As String '定义连接字符串 Private Sub cmdprint_Click() Report.[Print] (True) '打印操作,由于print属性与vb中的属性有重复,因此需要用中括号括起来 End Sub Private Sub cmdshowprint_Click() Report.PrintPreview (True) End Sub Private Sub Form_Load() Dim checkday As Date checkday = Date '创建报表对象 Set Report = New grproLibCtl.GridppReport '载入报表模版文件 Report.LoadFromFile (App.Path & "\checkday.grf") Report.DetailGrid.Recordset.ConnectionString = "provider=sqlOLEDB;server=192.168.24.116;database=student_charge;integrated security =SSPI" '这是连接字符串,需要连接数据库的字符串 Report.ParameterByName("maketime").AsString = Date '这是我们 传入的参数,制作时间 Report.ParameterByName("endtime").AsString = Date Report.DetailGrid.Recordset.Querysql = "select * from checkday where date='" & checkday & "'" '定义的查询语言 GRDisplayViewer1.Report = Report '创建报表对象 GRDisplayViewer1.Start '报表显示 End Sub
大致浏览后,可能能够看清楚一共有三个事件,分别是Load、Print和printpreview事件。其实最麻烦的部分就是Load事件了。其余两个就是报表的两个属性罢了。
Load事件大致也就这几步
1.实例化报表对象
2.加载我们设计好的报表
3.定义我们需要连接的数据库字符串
5.定义查询的语句
6.创建报表对象
7.显示报表
其余的两个事件就仅仅调用了报表对象的两个属性,没有什么实质性的东西。
综上所述,报表就建立好了。当然报表里面还有好多功能,在以后的学习过程中,还的继续深化学习。