求助：vb调用SQL数据库中的表，将表中数据用mschart画出曲线图（附程序）

2012-03-18 02:14:35 446 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

《 VB6.0中通过MSChart控件调用数据库》 VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下：　　设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，阅读详情

各位大侠：

本人问题RT，想要做个界面，将数据库中的程序用曲线显示出来，网上找了许多例子，都是ACCESS数据库的，借用了一下，弄了许久都不见曲线，故来求赐教，不胜感激，先谢过各位啦。
我的程序如下：总觉得数据库给mschart赋值未成功，希望各位给予赐教，不胜感激！

Private Sub Command1_Click()
Dim DblSec As Double, MaxSec As Double, MinSec As Double, TempSec As Double
Dim strconn As String ' 定义连接字符串

Dim MyCon As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim MyData() As Double
strconn = " Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password =333666;Initial Catalog =node;DataSource= (local)"

MyCon.ConnectionString = strconn: MyCon.Open

Rst.Open "select * from stOdr", MyCon, adOpenKeyset, adLockOptimistic '表的名字为：gytagb，可根据需要来更改

'conn.Open strconn

ReDim MyData(Rst.RecordCount + 1, 1)
MaxSec = 0: MinSec = 0: MinSec = 0
For i = 0 To Rst.RecordCount + 1
MyData(i, 0) = Rst("时间").Value '第一列存放X轴数据
MyData(i, 1) = Rst("温度").Value '第二列存放Y轴数据
TempSec = DateDiff("s", "0:0:0", Rst.Fields("时间").Value)
If i = 0 Then
MaxSec = TempSec: MinSec = TempSec
End If
If TempSec > MaxSec Then MaxSec = TempSec '求最大值
If TempSec < MinSec Then MinSec = TempSec '求最小值
Rst.MoveNext
Next
Rst.Close: MyCon.Close
Set Rst = Nothing: Set MyCon = Nothing
'波形图外观设置
With MSChart1
.chartType = VtChChartType2dXY '设置图形为二维散点图'注意本语句的位置，如果放在最后X轴坐标将显示成小数而非时间格式
.TitleText = "温度"
' '设置图线的外观
.Plot.SeriesCollection(1).Pen.Width = 30
.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid
'设置XY轴
.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
'// 设置最大值
.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 40950 '这里根据你的数据库中的最大值设置一合适值
.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 40 '这里根据你的数据库中的最大值设置一合适值
'// 设置最小值
.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 40600
.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = -10
'设置X轴标签显示格式
.Plot.Axis(VtChAxisIdX).Labels(1).Format = "yyyy-m-d hh:mm"
.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 12 'X轴主要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 10 'Y轴主要网格数量
.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量
.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量
.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted
.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDotted
.Plot.Axis(VtChAxisIdX).Labels(1).VtFont.Size = 7
.Plot.AutoLayout = False
.Plot.UniformAxis = False

.ChartData = MyData '数据
End With
End Sub

唉贴不上来图！就是运行后没有曲线其他都有

...全文