如何用VB对sql server数据库中的数据进行饼状图显示

工程->引用->Microsoft ActiveX Data Objects 2.5 Library

表名 b,字段c

Private Sub Command1_Click()

Dim cnDk As New ADODB.Connection

Dim strDk As String

Dim rDk As New ADODB.Recordset

Dim sql As String

strDk = "driver=server=(local)uid=sapwd=123456database=a" '这个字符串要改成你需要的

' 上有各种连接字符串的查询

cnDk.Open strDk

sql = "insert into b (c) values ('" &text1.text &"')"

cnDk.Execute sql

cnDk.Close

Set cnDk = Nothing

End Sub

通过ChartFactory.createPieChart(null,data,true,true,false)

封装data采用jdbc方式从数据库读取数据封装到data

---