Question

【高分赠送】如何用VB从ACCESS的表中读取数据并画出饼图？

现有ACCESS数据库，欲在VB中使用MSCHART控件画一个饼图，数据取自该数据库中的“明细表”。该表中有两列，一列名称，一列金额。
步骤具体！一步一步来！
谢谢高手赐教！！！
该饼图用来反映表中各个费用的分布比例。

Answer 1

Sub DrawPie(dPBox As Object, dPercent1 As Single, dWidth As Single, dHeight As Single, Color1 As OLE_COLOR, Color2 As OLE_COLOR, BColor As OLE_COLOR)
'By Forest93
'参数说明 ====================================
'dPercent1 要绘制的第一部分的百分比，例如，0.5 代表 50%
' 第二部分的百分比可以使用 1-dPercent1
'dWidth , dHeight 要绘制的饼图的宽度与高度
'Color1 , Color2 要绘制的饼图的第一部分与第二部分的颜色
'BColor 要绘制的饼图的边框颜色
Dim DSize As Single
Dim PI As Double 'π的值
PI = Atn(1) * 4

DSize = dWidth / 2
If dWidth > dHeight Then DSize = dHeight / 2

dPBox.Cls

dPBox.FillStyle = vbSolid
dPBox.FillColor = Color1
dPBox.Circle (dWidth / 2, dHeight / 2), DSize, BColor, -2 * PI, -PI * 2 * dPercent1
dPBox.FillColor = Color2
dPBox.Circle (dWidth / 2, dHeight / 2), DSize, BColor, -PI * 2 * dPercent1, -2 * PI
End Sub

使用：
DrawPie Pic1, 0.35, Pic1.ScaleWidth, Pic1.ScaleHeight, vbRed, vbBlue, vbGreen

用你从数据库里统计出来的数据替换相关变量，就可以在 Pic1 里画一个饼图