欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vb与表格(三.数据连接与代码实现)

更新时间: 2014-01-05 03:07:40 责任编辑: Author_N1

 

Vb与报表(三.数据连接与代码实现)
                            Vb与报表(三.数据连接与代码实现)

当一个报表的模版都建立的差不多的时候,就应该建立数据连接了,数据连接步骤如图:

                                                         

                                     

                                   

                                 

这里需要注意的是第七步是必须的,如果不允许保存密码,那么就会当写好查询语句然后再测试的时候就会出现如下的错误;


这是为了保障数据安全,第6步写的密码只被允许使用一次,当再次连接数据库的时候就会出现没有填写用户名和密码的情况自然不能连接成功,所以第七步是很必要的.

 

然后执行数据标题的生成,执行编辑根据字段生成表格列.如图

 生成如右图

这里还可以通过拖放调整一下列宽.还可以通过右边的属性栏来调整一些其他的属性.

到现在为止数据库差不多连接成功了

接下来就是代码实现了.代码实现如下代码实现之前首先要添加部件和引用,然后添加报表控件.

     


代码如下:

Option Explicit
 '定义报表对象
 Dim Report As grproLibCtl.GridppReport
 
 Private Sub Form_Load()
     Dim StrSQL As String
     Dim strMsg As String
     
     StrSQL = "select * from jiezhang_info where date= '" & Date & "'  "
     
     '实例化报表
     Set Report = New grproLibCtl.GridppReport
     
      '加载模版
     Report.LoadFromFile (App.Path & "\DayAccount.grf")
     
     '数据源连接
     Report.DetailGrid.Recordset.ConnectionString = ConnectString
     
     '通过SELECT查询创建记录集
     Report.DetailGrid.Recordset.QuerySQL = StrSQL
         
 
     '查看报表
     GRDisplayViewer1.Report = Report
     GRDisplayViewer1.Start
     
 End Sub
 
 Private Sub cmdRefresh_Click()
     Report.DetailGrid.Recordset.QuerySQL = "select * from jiezhang_info where date= '" & Date & "'  "
     GRDisplayViewer1.Refresh '刷新
 End Sub
 
 Private Sub cmdView_Click()
     Report.PrintPreview (True)     '打印预览
 End Sub
 
 Private Sub cmdPrint_Click()
     Report.[Print] (True)        '打印
 End Sub
 





2楼han_yankun2009昨天 13:57
加油
1楼han_yankun2009昨天 13:56
详细。更具体,比我做的好多了
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:07:40
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18682/
本文WWW.DOC100.NET DOC100.NET版权所有。