一个按年季度查询数据的SQL语句

今天在CSDN上回答的别人一个问题，就是关于按年季度求和查询数据

我给出了2种数据库的解决方案：

MSSQL的：

Code:

1. Select Season = Case when month(日期) in (1,2,3) then '一季度'    
2.                     when  month(日期) in (4,5,6) then '二季度'    
3.                     when  month(日期) in (7,8,9) then '三季度'    
4.                     when  month(日期) in (10,11,12) then '四季度' end ,    
5.     count(*)    
6.     from tablename    
7.     group by    Case when month(日期) in (1,2,3) then '一季度'    
8.                     when  month(日期) in (4,5,6) then '二季度'    
9.                     when  month(日期) in (7,8,9) then '三季度'    
10.                     when  month(日期) in (10,11,12) then '四季度' end    

access的

Code:

1. SELECT IIf(month(addtime) in (1,2,3),'一季度',IIf(month(addtime) in (4,5,6),'二季度',IIf(month(addtime) in (7,8,9),'三季度','四季度'))) AS Season, sum(num), year(addtime)   
2. FROM riq   
3. GROUP BY year(addtime), IIf(month(addtime) in (1,2,3),'一季度',IIf(month(addtime) in (4,5,6),'二季度',IIf(month(addtime) in (7,8,9),'三季度','四季度')));   

并给了我测试access用的一例子：

Code:

1. Dim Conn   
2. Dim Db   
3. Dim ConnStr   
4.     Db = "db1.mdb"  
5.     ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)      
6.     On Error Resume Next  
7.     Set fGetCnnStr = Server.CreateObject("ADODB.Connection")   
8.     fGetCnnStr.open ConnStr   
9.     If Err Then  
10.         err.Clear   
11.         Set fGetCnnStr = Nothing  
12.         Response.Write " Error......"  
13.         Response.End()   
14.     End If  
15. strSQL ="SELECT IIf(month(addtime) in (1,2,3),'一季度',IIf(month(addtime) in (4,5,6),'二季度',IIf(month(addtime) in (7,8,9),'三季度','四季度'))) AS Season, sum(num) as znum, year(addtime) as pyear FROM riq GROUP BY year(addtime), IIf(month(addtime) in (1,2,3),'一季度',IIf(month(addtime) in (4,5,6),'二季度',IIf(month(addtime) in (7,8,9),'三季度','四季度'))) ORDER BY year(addtime) DESC , IIf(month(addtime) in (1,2,3),'一季度',IIf(month(addtime) in (4,5,6),'二季度',IIf(month(addtime) in (7,8,9),'三季度','四季度')))"  
16. Set rs = Server.CreateObject("ADODB.Recordset")   
17. rs.Open strSQL,fGetCnnStr,1,1   
18. if not rs.bof then   
19. olddate=0   
20. do while not rs.eof   
21. if rs("pyear")<>olddate then response.Write rs("pyear")"年的统计结果""<br>"  
22. response.Write rs("Season")":"&rs("znum")":""<br>"  
23. olddate=rs("pyear")   
24. rs.movenext   
25. loop   
26. end if  

该数据库中就只有二个字段：即addtime、znum

 

一个例子，其中的显示思想不错的，可以琢磨给以引申