MSchart的使用

我的系统用的ADO DATAGRID ACCESS做的现在想用MSchart去调用数据库中库存表在MSchart中统计显示库存数量最多的5种商品，库存数量最少的5种商品。 X轴是标题商品名称，Y轴标题商品数量
希望高手能写出代码帮我一下非常着急从来没使用过MSchart 看了些例子也看不明白

MSChart1.Visible = True

With FrmStat.MSChart1

        .ChartType = VtChChartType2dBar

        .ColumnCount = Val(SehEnd) - Val(SehStar) + 1

        .RowCount = 1

        For Column = 1 To .ColumnCount

            .Column = Column

            .Row = Row

            .Data = NumTmp(Column - 1)

            .ColumnLabel = str(2002 + Column) & "年： " & NumTmp(Column - 1) & " 份"

        Next Column

        .RowLabel = "总数" & FrmMain.TxtTotal & " 份"

        '将图表作为图例的背景。

        .ShowLegend = True

        .SelectPart VtChPartTypePlot, index1, index2, index3, index4

        .EditCopy

        .SelectPart VtChPartTypeLegend, index1, index2, index3, index4

        .EditPaste

End With

部分代码…… 楼上的大哥能不能详细一点我是个新手很多地方不是很明白~~ 网上有现成的示例代码搜的……以上的代码是我用过的病历统计图表指示，根据excel表格生成的。对于你的要求，你要先检索出10个品名，相应的10个数据，就很容易生成图表了。

Option Explicit

Dim a(10) As String, v(10) As Integer, i As Byte



Private Sub Command1_Click()

MSChart1.Visible = True

With MSChart1

        .chartType = VtChChartType2dBar '图表类型

        .ColumnCount = 10 'x轴项目数

        .RowCount = 1

        For i = 1 To .ColumnCount

            .Column = a(i - 1) '项目

            .Row = 1

            .Data = v(i - 1) '值

        Next i

        .RowLabel = "总数"

End With

End Sub



Private Sub Form_Load()

Dim i As Byte

For i = 0 To 9

    a(i) = i + 1

    v(i) = i * 100 + 1

Next

End Sub

粗略做了这个，10个项目，10个值的图表楼上的大哥有QQ号能否请教一下~~~ 为什么检索没有用到SQL语句呢~~~ 我是希望去找出库存表里数量最多的10种商品要用到sql语句。这个俺实在太不行了，汗一下…… http://download.csdn.net/source/1483925
把其中赋值给MSChart控件的二维数组换成RecordSet对象即可。小易很给力，我很高兴研究了半天还是不明白·~哭啊~~~ 哪位好心人能帮我大致写下这个代码啊~~~ 哪不明白阿

1.添加引用
2.读取数据
3.循环赋值

引用 8 楼 dbcontrols 的回复:

小易很给力，我很高兴

泰山好久没看到你那么积极的帮助人了哦。最近忙去啦？

补充：VB ,  基础类