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

Question

关于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

Answer 1

Option Explicit
Private Values() As Variant
Private NumPoints As IntegerPrivate 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 SubPrivate 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