下面是我做的程序,是基于 饼图 的做法,其他类型的图差不多,你自己试验一下: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
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