按月汇总用SQL怎么写?

Stone_00x

要求:根据材料编号,分类,日期汇总数量1跟数量2 , 日期按月汇总,放在列里面

可以实现将数量1按月份汇总,但是同时将数量1&数量2按月份汇总不知道怎么改

1.     strSQL = "TRANSFORM SUM(数量1) SELECT 材料编号,分类 FROM [数据源$" & sAdr & "]  " & _
   
2.     "GROUP BY 材料编号,分类 PIVOT DATEPART('m',日期)&'月'"

复制代码

1. Sub Pro()
   
2.     Sheets("数据源").Select
   
3.     sAdr = Range("a1").CurrentRegion.Address(0, 0)
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     Set rst = CreateObject("ADODB.Recordset")
   
6.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=YES';Data Source=" & ActiveWorkbook.FullName
   
7.    
   
8.     strSQL = "TRANSFORM SUM(数量1) SELECT 材料编号,分类 FROM [数据源$" & sAdr & "]  " & _
   
9.     "GROUP BY 材料编号,分类 PIVOT DATEPART('m',日期)&'月'"
   
10. 
    
11.     rst.Open strSQL, cnn
    
12.     Dim arrFileds
    
13.     ReDim arrFileds(1 To 1, 1 To rst.Fields.Count)
    
14.     For i = 1 To rst.Fields.Count
    
15.         arrFileds(1, i) = rst.Fields(i - 1).Name
    
16.     Next
    
17. 
    
18.     Range("h1").CurrentRegion.ClearContents
    
19.     Range("h1").Resize(1, rst.Fields.Count) = arrFileds
    
20.     Range("h2").CopyFromRecordset rst
    
21.     cnn.Close: Set cnn = Nothing
    
22. 
    
23. End Sub
    

复制代码

rendiule01

用数据透视表

洋务德雷

修改了数据源。看一下，有两种方法。第二种，可以用SQL直接生成透视表，我只不过分开做，让你看到结果。

Stone_00x

rendiule01 发表于 2023-3-6 14:41
用数据透视表

透视表是可以,我想学下用SQL怎么写

Stone_00x

洋务德雷 发表于 2023-3-6 15:00
修改了数据源。看一下，有两种方法。第二种，可以用SQL直接生成透视表，我只不过分开做，让你看到结果。

附件没有代码,可以提供一下SQL代码吗,谢谢!

opiona

了解一下SQL的 TRANSFORM

1. rem ==============================================================================================  示例
   
2. 'TRANSFORM 语句可分为以下几个部分:
   
3. '部分                说明
   
4. 'aggfunction        运算所选数据的 SQL合计函数,sum(数量),要在全部数据显示的内容
   
5. 'selectstatement    SELECT 语句.  select 品类 FROM (" & StrSQL & ") group by 品类   和采用的函数相关
   
6. 'PivotField         在查询结果集中用来创建列标题的字段或表达式?   pivot 月份，表示上面的标题
   
7. 'value1，value2     用来创建列标题的固定值，注意：可以指定顺序。
   
8. '
   
9. ' SELECT 和 GROUP BY 字段是自上向下显示的字段
   
10. ' PIVOT   和 ORDER BY  字段是自左向右显示的字段
    
11. 
    
12. 'StrSQL2 = "TRANSFORM SUM(数量) SELECT 品类 FROM [" & sh1.Name & "$] GROUP BY 品类 Order By 月份 DESC PIVOT 月份"
    
13. 'StrSQL2 = "TRANSFORM SUM(数量) SELECT 品类,分类 FROM [" & sh1.Name & "$] GROUP BY 品类,分类 PIVOT 月份"
    
14. 'StrSQL2 = "TRANSFORM SUM(数量) SELECT 品类,SUM(数量) AS 合计 FROM [" & sh1.Name & "$] GROUP BY 品类 PIVOT 分类 IN (A,C)"
    
15. 
    
16. 'sqlB = "TRANSFORM sum(余额)  SELECT  部门  from [Sheet1$" & sAddress & "] group by 部门  PIVOT 类型 in (公司存款, 对私存款, 贷款)"
    
17. 'strSQL = "transform count(岗位) select 部门 from [车间$C3:D12] group by 部门 pivot 岗位 in (巡检,机修,电工)"

复制代码

洋务德雷

Stone_00x 发表于 2023-3-6 15:08
附件没有代码,可以提供一下SQL代码吗,谢谢!

这是SQL代码。并不在vba编辑界面。鼠标点击表内任意一个单元格，右键菜单--点击编辑查询。出现窗体有代码。不会，可以加好友V 我的个人信息，或者回复栏下方都有。

Stone_00x

opiona 发表于 2023-3-6 15:24
了解一下SQL的 TRANSFORM

可以实现将数量1按月份汇总,但是同时将数量1&数量2按月份汇总该怎么写呢?

1. Sub Pro()
   
2.     Sheets("数据源").Select
   
3.     sAdr = Range("a1").CurrentRegion.Address(0, 0)
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     Set rst = CreateObject("ADODB.Recordset")
   
6.     cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=YES';Data Source=" & ActiveWorkbook.FullName
   
7.    
   
8.     strSQL = "TRANSFORM SUM(数量1) SELECT 材料编号,分类 FROM [数据源$" & sAdr & "]  " & _
   
9.     "GROUP BY 材料编号,分类 PIVOT DATEPART('m',日期)&'月'"
   
10. 
    
11.     rst.Open strSQL, cnn
    
12.     Dim arrFileds
    
13.     ReDim arrFileds(1 To 1, 1 To rst.Fields.Count)
    
14.     For i = 1 To rst.Fields.Count
    
15.         arrFileds(1, i) = rst.Fields(i - 1).Name
    
16.     Next
    
17. 
    
18.     Range("h1").CurrentRegion.ClearContents
    
19.     Range("h1").Resize(1, rst.Fields.Count) = arrFileds
    
20.     Range("h2").CopyFromRecordset rst
    
21.     cnn.Close: Set cnn = Nothing
    
22. 
    
23. End Sub
    

复制代码