大虾们，难道MSChart这个控件真的很难用吗？

Question

各位，如何编写sql语句查询出成绩为优，良，中的三类学生记录（学生表：学号，姓名，成绩），然后分别统计三类学生记录的数量，然后根据三个数量，使用MsChart控件，用MsChart控件的饼图，饼图的用三种颜色区域反映三种成绩的学生记录数量？

Answer 1

Option Explicit
Private rsProducts As New ADODB.Recordset
Private cn As New ADODB.Connection
Private Sub Form_Load()
   Dim strQuery As String                                       
   cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Data.mdb " 
   cn.Open
   strQuery = "SELECT aa,bb,cc from table"     
   rsProducts.Open strQuery, cn, adOpenKeyset                   
   With msChart1
      .ShowLegend = True
       Set .DataSource = rsProducts
       .Title.Text = "          测试数据            "   '显示标题
       .Title.VtFont.Effect = VtFontEffectUnderline                              
       .Title.VtFont.Size = 10                                                   
       .Title.VtFont.VtColor.Set 255, 0, 255                                    
   End With
End Sub
Private Sub Command1_Click()
  End
End Sub在属性中将
msChart1.chartType设成饼图