| 发表于：2007-05-14 12:35:28 楼主 |
一个问题，运行后无饼图显示。
想从access中调入学生成绩这张表，通过成绩实现饼图显示。可代码运行成功，还是无显示，还是mschart控件原来的样子。
我不懂，请高手们帮帮我好吗？
option explicit
dim rs1 as adodb.recordset
dim rs2 as adodb.recordset
dim rs3 as adodb.recordset
dim rs4 as adodb.recordset
dim rs5 as adodb.recordset
dim selectedseries as integer '自定义变量
dim rs（) as string '提取记录集用的字符串数组
private sub form_load（)
'on error goto dealerror
dim objcn as new connection
'建立数据库连接
objcn.connectionstring = "provider=microsoft.jet.oledb.4.0; " & _
"data source= " & app.path & "\数据库\score.mdb "
objcn.open
set rs5 = new adodb.recordset
set rs1 = new adodb.recordset
set rs2 = new adodb.recordset
set rs3 = new adodb.recordset
set rs4 = new adodb.recordset
rs5.open "select * from 学生成绩 order by 成绩 ", objcn, adopenstatic, adlockoptimistic
do while not rs5.eof
rs5.movenext
loop
set datagrid1.datasource = rs5
rs1.open "select * from 学生成绩 where 成绩 = " + chr（39) + "优 " + chr（39) + "order by 成绩 ", objcn, adopenstatic, adlockoptimistic
do while not rs1.eof
rs1.movenext
loop
rs2.open "select * from 学生成绩 where 成绩 = " + chr（39) + "良 " + chr（39) + "order by 成绩 ", objcn, adopenstatic, adlockoptimistic
do while not rs2.eof
rs2.movenext
loop
rs3.open "select * from 学生成绩 where 成绩 = " + chr（39) + "中 " + chr（39) + "order by 成绩 ", objcn, adopenstatic, adlockoptimistic
do while not rs3.eof
rs3.movenext
loop
rs4.open "select* from 学生成绩 where 成绩= " + chr（39) + "差 " + chr（39) + "order by 成绩 ", objcn, adopenstatic, adlockoptimistic
do while not rs4.eof
rs4.movenext
loop
objcn.close '关闭数据库连接
set objcn = nothing '释放连接
exit sub
'dealerror:
'showerror = "程序执行出错，错误信息如下： " & vbcrlf & err.description
end sub
private sub mcscore_seriesselected（series as integer, mouseflags as integer, cancel as integer)
selectedseries = series
end sub
private sub mcscore_pointselected（series as integer, datapoint as integer, mouseflags as integer, cancel as integer)
selectedseries = series
end sub
private sub mcscore_db1click（)
'改变ado控件的记录源并刷新
adoc1.recordsource = rs（seletedseries)
adoc1.refresh
end sub
请大家帮助。非常感谢。毕业设计在急。。 |
|
|
|
|
