执行语句如下：
Dim Conn As New ADODB.Connection
Dim rec As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\00.mdb" & " ;Persist Security Info=False"
SQL = "select 班级,sum(人数 * case 类别 when '及格' then 1 else 0 end),sum(人数 * case 类别 when '不及格' then 1 else 0 end) from" & _
"(select 班级,count(*) as 人数,'及格' as 类别 from table1 where 成绩>60 group by 班级 union select 班级,count(*) as 人数,'不及格' as 类别 from table1 where 成绩<60 group by 班级) group by 班级"
rec.Open SQL, Conn, adOpenStatic
rec.Close
执行以后出现如图一样的错误
请高手帮忙改正一下语句的错误
难道说这个语句没法在VB下执行？应该是我写错了吧
select case when 语句无法在access中使用，access中的SQL语句与正规的SQL还是有些区别的。
参考：http://bbs.csdn.net/topics/190045916
参考：http://bbs.csdn.net/topics/190045916
温馨提示：答案为网友推荐，仅供参考
