根据数据库中统计的数据生成图表,谁能帮我
,有个例子更好
[email protected]

解决方案 »

  1.   

    下面是我做的程序,是基于 饼图 的做法,其他类型的图差不多,你自己试验一下:sql="select * from table" '这是你的sql查询语句
    sqlrec.Open sql, SqlCon, adOpenStatic, adLockReadOnly
      l = sqlrec.RecordCount'取得记录数
      
      sqlrec.MoveFirst
      For i = 1 To sqlrec.RecordCount
        arrChart(i) = sqlrec.Fields(1)'或者每一个图块的数据
        sqlrec.MoveNext
      Next
      sqlrec.Close
      Set sqlrec = Nothing  If l < 1 Then
      Else
        MSChart1.RowCount = 1 '图的列数,对于饼图为1
        MSChart1.ColumnCount = l'图的行数
        MSChart1.RowLabel = ""
        For j = 1 To l
          MSChart1.Column = j
          MSChart1.Data = arrChart(j)
        Next
      End If