VB查询SQL数据库，如何在查询结果集中进行统计或子查询？

Question

一个MSSQL表“考生信息表”，列名为：姓名，考试时间，成绩，其中成绩列的内容只有“合格”和“不合格”两种。
现在查询某一个月的记录，主要的查询语句类似这样：
strSQL = "SELECT * FROM 考生信息表 WHERE 考试时间 BETWEEN '2011-3-1' AND '2010-3-31' "
Ado1.RecordSource = strSQL
然后再在这个结果中统计出这个月的：合格人数，不合格人数及合格率，要怎么弄？

Answer 1

记录集的 Filter 属性可以过滤记录，“产生“一个临时的记录集：
ADODC1.Recordset.Filter="成绩=‘合格’"
n1=ADODC1.Recordset.RecordCount'合格人数
ADODC1.Recordset.Filter="成绩=‘不合格’"
n2=ADODC1.Recordset.RecordCount'不合格人数
n3=n1/(n1+n2)'合格率
恢复原来的数据：
ADODC1.Recordset.Filter=“”