VB6.0中通过MSChart控件调用数据库 (转)

VB6.0中通过MSChart控件调用数据库 (转)[@more@]

vb6.0中通过MSChart控件调用数据库 》   VB6.0中的MSChart控件是一个功能强大的高级图表工具,拥有丰富的图表绘制功能,可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来,遇到了许多困难,最后用一个自定义的变量selectSeries解决了问题,具体方法如下:  设数据库名称为“学生信息”,有一Access表“学生成绩”,其内容为一个班学生的考试成绩,包括学号、姓名、成绩3个字段,成绩字段格式是字符型,值为“优”、“良”、“中”、“差”中的一个。  窗体Form1包括一个MSChart控件McSCOre,类型为二维饼图,用于显示每种成绩的学生数;一个ADO控件AdScore用于连接数据库;一个DataGrid控件DgScore用于以表格形式显示数据库内容。  工作过程为:双击饼图的某个区域,则DgScore显示相应成绩的学生名单。  代码如下:  Option Explicit   Dim SelectedSeries as Integer ′自定义变量  Dim Rs() as String ′提取记录集用的字符串数组  Private Sub Form_Load()   ′设定DataGrid控件的数据源  DgScore.Datasource=″AdScore″   ′设定ADO控件的连接字串和初始的记录源,即显示内容  AdScore.ConnectString=″Provider=microsoft.OLEdb.3.51;Persist_Security Info=False;Data Source=学生信息″   AdScore.RecordSource=″selet * from学生成绩order by成绩″   AdScore.Refresh   ′预设好提取记录用的sql语句  Rs(1)=″select* from学生成绩where成绩=″+Chr(34)+″优″+_Chr(34)+″order by成绩″ Rs(2)=″select *from学生成绩where成绩=″+Chr(34)+″良″+_Chr(34)+″order by成绩″ Rs(3)=″select * from学生成绩where成绩=″+Chr(34)+″中″+_Chr(34)+″order by成绩″ Rs(4)=″select * from学生成绩where成绩=″+Chr(34)+″差″_Chr(34)+″order by成绩″ End Sub   Private Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer) SelectedSeries=Series   End Sub   Private Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as Integer,Cancel as Integer)   SelectedSeries=Series   End Sub   Private Sub McScore_Db1Click()   ′改变ADO控件的记录源并刷新  Adoc1.RecordSource=Rs(SeletedSeries)   Adoc1.Refresh   End Sub 

 
 

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990049/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-990049/

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值