vb中mschart控件的使用如何 连接数据库一个表中记录

vb中mschart控件的使用如何 连接数据库一个表中记录

亲好几次提问关于mschart控件的使用方法，既然是从新学的话我建议学Tchart控件的使用方法，因为mschart控件使用环境高于Tchart控件，而且Tchart控件易掌握，用的人也较多，故互相交流的大哥大姐也多啊，

'姓名，类型和金额 时间有限，只做了一个 姓名和金额的东西，以供你参考 chart1我做的是一个饼状图 你改下属性应该可以的 chart1.row = 1 dim i as integer for i = 1 to chart1.columncount chart1.column = i chart1.data = 0 next sql = "select 姓名 as 参数,isnull(sum(金额),0) as 金额 from sr表 group by 姓名 if rschart.state = 1 then rschart.close rschart.cursorlocation = aduseclient rschart.open sql, conn, adopenkeyset, adlockoptimistic if rschart.eof or rschart.bof then exit sub chart1.columncount = rschart.recordcount chart1.column = 1 while not rschart.eof chart1.columnlabel = rschart("参数") & ": " & rschart("金额") chart1.data = rschart("金额") if chart1.column < chart1.columncount then chart1.column = chart1.column + 1 rschart.movenext wend chart1.showlegend = true