如何用SQL进行小计和合计？

zjwww · 发表于 2012-1-3 08:10

本帖最后由 zjwww 于 2012-1-3 12:55 编辑

如何用SQL进行小计和合计？

SQL汇总.rar (7.14 KB, 下载次数: 64)

alzeng · 发表于 2012-1-3 08:48

这个要求用SQL实现的象征意义大于实际意义……

Sub GetSums()
Dim Cn As Object, strSql$
Set Cn = CreateObject("Adodb.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Imex=1';Data Source=" & ThisWorkbook.FullName
strSql = "(Select 年级 As A,班级 As B,SUM(分数) As C,'1' As D From [Sheet1$A1:C] " _
& "Group By 年级,班级 Union Select 年级 As A,'小计' As B,SUM(分数) As C,'1' As D From [Sheet1$A1:C] " _
& "Group By 年级 Union Select '总计' As A,'' As B,SUM(分数) As C,'2' As D From [Sheet1$A1:C]) A "
strSql = "Select a.A,a.B,a.C From " & strSql _
& "Order By a.D,a.A,a.B Desc"
[E2].CopyFromRecordset Cn.Execute(strSql)
Cn.Close: Set Cn = Nothing
End Sub

复制代码

alzeng · 发表于 2012-1-3 08:50

SQL汇总.rar (13.12 KB, 下载次数: 217)

dzymx · 发表于 2012-1-3 08:56

看了，2楼写得精。

海婷 · 发表于 2012-1-3 09:25

这个要学习一下

zjwww · 发表于 2012-1-3 12:36

alzeng 发表于 2012-1-3 08:48
这个要求用SQL实现的象征意义大于实际意义……

谢谢，你所说的用SQL实现的象征意义大于实际意义……
我不理解这段话的意思，能否解释一下？

alzeng · 发表于 2012-1-3 13:55

zjwww 发表于 2012-1-3 12:36
谢谢，你所说的用SQL实现的象征意义大于实际意义……
我不理解这段话的意思，能否解释一下？

没什么，很多人觉得这样的数据量用SQL是牛刀杀鸡……

zjwww · 发表于 2012-1-3 14:09

alzeng 发表于 2012-1-3 13:55
没什么，很多人觉得这样的数据量用SQL是牛刀杀鸡……

哦，明白了。

liucqa · 发表于 2012-1-3 14:44

学习

bluexuemei · 发表于 2012-2-8 18:38

本帖最后由 bluexuemei 于 2012-2-8 22:35 编辑

alzeng 发表于 2012-1-3 08:48
这个要求用SQL实现的象征意义大于实际意义……

向老师学习了！排序有点问题，你程序的结果

		自动登录	找回密码
密码			免费注册

[已解决] 如何用SQL进行小计和合计？