求分组汇总计数SQL语句一条
要求VB下能通过
比如:
学号 姓名 班级
01 aaa 001
02 bbb 002
03 ccc 001
04 ddd 005
05 eee 004
06 fff 002
07 ggg 003
08 hhh 002
09 mmm 004得到结果:
班级 人数
001 2
002 3
003 1
004 2
005 1
共计 9
要求VB下能通过
比如:
学号 姓名 班级
01 aaa 001
02 bbb 002
03 ccc 001
04 ddd 005
05 eee 004
06 fff 002
07 ggg 003
08 hhh 002
09 mmm 004得到结果:
班级 人数
001 2
002 3
003 1
004 2
005 1
共计 9
这样就可以了
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim StudyNumber() As Integer
Dim StudySum As Integer
......
If rs.RecordCount > 0 Then
rs.MoveFirst
For i = 1 To rs.RecordCount
ReDim StudyNumber(i)
StudyNumber(i) = rs!人数
StudySum = StudySum + StudyNumber(i)
rs.MoveNext
Next i
Text1.Text = StudySum
End If
select case grouping(班级) when 0 then 班级 else '合计' end,count(*) as 人数 from tablename group by 班机 with rollup