一个非常菜的问题,关于MsChart控件,但我很需要,谢谢帮忙!!

[猞猁狲]

关于MsChart控件的绑定问题,比如和数组,和ADO,和其他的数据绑定
请最好给个例子,如果MsChart控件的属性需要设置的也请说明一下,谢谢大家

我的代码如下,但是运行后,MsChart控件不显示数据,只有空表

Dim arrvalues(1 To 10, 1 To 3)

Private Sub Form_Load()
Dim i As Integer

Adodc1.Refresh

For i = 1 To 10
If Adodc1.Recordset.EOF <> True Then
arrvalues(i, 1) = Adodc1.Recordset.Fields(0)
arrvalues(i, 2) = Adodc1.Recordset.Fields(1)
arrvalues(i, 3) = Adodc1.Recordset.Fields(2)
Adodc1.Recordset.MoveNext
End If
Next i

MSChart1.Plot.SeriesCollection(1).LegendText = "员工年龄"
MSChart1.Plot.SeriesCollection(2).LegendText = "员工工资"

MSChart1.ChartData = arrvalues

End Sub

[XqYuan]

55，还没用过mschart，刚学VB不久，帮顶一下
给1分2分就满足了，呵呵

[sunny8226]

55，还没用过mschart，刚学VB不久，帮顶一下
给1分2分就满足了，呵呵

[tongki]

我也问过，不过没有人回答。
估计现在学的VB的都改行了吧！

[online]

Option Explicit
Private Values() As Variant
Private NumPoints As Integer

Private Sub LoadData()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim dbname As String
Dim i As Integer
Set db = New ADODB.Connection

' 打开数据库
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "data.mdb"

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbname & ";Persist Security Info=False;"
db.CursorLocation = adUseClient

' 获得数据库记录
Set rs = db.Execute("SELECT 产品类别, 销售额 FROM 销售额")

' 查看数据库中记录数
NumPoints = rs.RecordCount
ReDim Values(1 To NumPoints, 1 To 2)

' 加载数据
rs.MoveFirst
For i = 1 To NumPoints
Values(i, 1) = rs!产品类别
Values(i, 2) = rs!销售额 / 10000
rs.MoveNext
Next i
rs.Close
db.Close
End Sub

Private Sub Form_Load()
With MSChart1
.Top = 0
.Left = 0
.Width = Me.ScaleWidth
.Height = Me.ScaleHeight
End With
' 读取数据
LoadData
' 使用MSChart控件显示数据
'MSChart1.ChartData = Values
MSChart1.ChartData = Values
End Sub