标题: 关于用sql语句进行查询的三个问题？ [打印本页] 作者: crlcn 时间: 2010-9-30 22:10 标题: 关于用sql语句进行查询的三个问题？ 我发附件了 请帮我写下这三条语句 有点复杂 谢谢 作者: todaynew 时间: 2010-10-1 09:15
SELECT 成绩表.学校, 成绩表.班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语文) AS 语文, Sum(成绩表.英语) AS 英语
FROM 成绩表
GROUP BY 成绩表.学校, 成绩表.班级
UNION All SELECT 成绩表.学校 & "合计" as 学校, "" AS 班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语文) AS 语文, Sum(成绩表.英语) AS 英语
FROM 成绩表
GROUP BY 成绩表.学校
UNION ALL SELECT "学校总计" AS 学校, "" AS 班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语文) AS 语文, Sum(成绩表.英语) AS 英语
FROM 成绩表
ORDER BY 学校, 班级;
[attach]43627[/attach] 作者: crlcn 时间: 2010-10-1 11:01
大哥 谢谢你
牛人 作者: crlcn 时间: 2010-10-1 12:24
不好意思 上个问题解决了 再问个问题 就是联合查询在vba中应该怎么写
比如说：
Private Sub 查询_Click()
Dim strSQL As String
Dim chaxun As QueryDef
strSQL = "SELECT 成绩表.学校, 成绩表.班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语
文) AS 语文, Sum(成绩表.英语) AS 英语
FROM 成绩表
GROUP BY 成绩表.学校, 成绩表.班级
UNION All SELECT 成绩表.学校 & "合计" as 学校, "" AS 班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语文) AS 语文
, Sum(成绩表.英语) AS 英语
FROM 成绩表
GROUP BY 成绩表.学校
UNION ALL SELECT "学校总计" AS 学校, "" AS 班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语文) AS 语文, Sum(成绩
表.英语) AS 英语
FROM 成绩表
ORDER BY 学校, 班级;"
Set chaxun = CurrentDb.CreateQueryDef("linshi-jichu", strSQL)
DoCmd.OpenQuery chaxun.Name
-------------------------------------------------------
上面的语句运行的时候 是错的 但改成 下面这句 可以运行
strSQL = "SELECT 成绩表.学校, 成绩表.班级, Count(成绩表.姓名) AS 人数, Sum(成绩表.数学) AS 数学, Sum(成绩表.语文) AS 语文, Sum(成绩表.英
语) AS 英语 FROM 成绩表 GROUP BY 成绩表.学校, 成绩表.班级"
--------------------------------------------------------
直接写成 最上面的代码段 不能运行 想请问下 最上面那部分的联合查询段代码应该怎么写！
不胜感激！
作者: crlcn 时间: 2010-10-1 12:27
就是在你刚刚回复的 sql语句前后加:
Private Sub 查询_Click()
Dim strSQL As String
Dim chaxun As QueryDef
strSQL = "你上面回复的sql语句"
Set chaxun = CurrentDb.CreateQueryDef("linshi-jichu", strSQL)
DoCmd.OpenQuery chaxun.Name
