根据数据库中的内容动态使用mschart绘图
为了根据数据库中的内容动态绘制折现统计图,因此使用下面的代码来判断数据库中有几组数据。
- VB code
rs3.Open "select date,student,op from log where student=" & "'" & Combo2.Text & "'", cnn, 1, 3Do Until rs3.EOFrs3.MoveNexttimes = times + 1Looprs3.Close
结果到这里悲剧了,不能使用变量声明变量……各位牛人们,这种情况怎么办?
- VB code
Dim arrData4(1 To times, 1 To times)MSChart1.ShowLegend = TruearrData4(1, 1) = rs3("date")………………
[解决办法]
我的想法
1、定义一个二维数组,第一维曲线的X,第二维,曲线的Y
2、查询数据库,将得来的数据存入数组中。参考:http://download.csdn.net/detail/veron_04/3827200
3、将数组赋值给MSChart,参考:http://download.csdn.net/detail/veron_04/1483925