sql处理数据

s1j2p3

将数据源通过SQL处理成需要的形式

yeminqiang

转置后链接

s1j2p3

yeminqiang 发表于 2017-6-4 18:40
转置后链接

能否提供一下查询代码

as42065300

这个用sql连接后通过透视表来实现你想要的结果会好点吧！
看看附件.. 数据处理.rar (11.06 KB, 下载次数: 1)

2017-6-9 21:50 上传

点击文件名下载附件

s1j2p3

以下代码为什么处理不了
Select a.个人编号,a.姓名,a.缴费基数,a.企业基本养老保险,a.失业保险,a.城镇职工基本医疗保险,a.大病医疗救助,a.工伤保险,a.生育保险,b.企业基本养老保险,b.失业保险,b.城镇职工基本医疗保险,b.大病医疗救助,b.工伤保险,b.生育保险
From (TRANSFORM SUM(单位缴费金额) SELECT 个人编号,姓名,缴费基数 FROM [数据源$] GROUP BY 个人编号,姓名,缴费基数 PIVOT 险种类型)a, (TRANSFORM SUM(个人缴费金额) SELECT 个人编号,姓名,缴费基数 FROM [数据源$] GROUP BY 个人编号,姓名,缴费基数 PIVOT 险种类型)b
where a.个人编号=b.个人编号

yeminqiang

1. Sub cdsr()
   
2.     Dim cnn As Object, rs As Object, i&, SQL$, rs1 As Object
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
   
5.     SQL = "transform sum(单位缴费金额) select 个人编号,姓名,缴费基数,sum(单位缴费金额) as 企业合计  from [数据源$] group by 个人编号,姓名,缴费基数 pivot 险种类型"
   
6.     SQL1 = "transform sum(个人缴费金额) select sum(个人缴费金额) as 个人合计  from [数据源$] group by 个人编号,姓名,缴费基数 pivot 险种类型"
   
7.     Set rs = cnn.Execute(SQL)
   
8.     Set rs1 = cnn.Execute(SQL1)
   
9.     With Sheets("输出结果")
   
10.         .Range("a20:q1000").ClearContents
    
11.         For i = 1 To rs.Fields.Count
    
12.             .Cells(19, i) = rs.Fields(i - 1).Name
    
13.         Next
    
14.         .Range("a20").CopyFromRecordset rs
    
15.         
    
16.         For i = 1 To rs1.Fields.Count
    
17.             .Cells(19, i + 10) = rs1.Fields(i - 1).Name
    
18.         Next
    
19.         .Range("k20").CopyFromRecordset rs1
    
20.     End With
    
21.     rs.Close: rs1.Close
    
22.     cnn.Close
    
23.     Set rs = Nothing: Set rs1 = Nothing
    
24.     Set cnn = Nothing
    
25. End Sub

复制代码

yeminqiang

数据处理.rar (13.41 KB, 下载次数: 2)

2017-6-10 13:26 上传

点击文件名下载附件

s1j2p3

有没有简短一点的查询代码呢，下面这段实在太长了

select a.个人编号,a.姓名,a.缴费基数,a.单位缴费金额 as 企业养老,b.单位缴费金额 as 企业失业,c.单位缴费金额 as 企业医疗,d.单位缴费金额  as 企业大病,e.单位缴费金额 as 企业工伤,f.单位缴费金额 as 企业生育, a.个人缴费金额  as 个人养老,b.个人缴费金额 as 个人失业,c.个人缴费金额 as 个人医疗,d.个人缴费金额 as 个人大病,e.个人缴费金额 as 个人工伤,f.个人缴费金额 as 个人生育 from (select * from [数据源$a:i] where 险种类型='企业基本养老保险')a, (select * from [数据源$a:i] where 险种类型='失业保险')b, (select * from [数据源$a:i] where 险种类型='城镇职工基本医疗保险')c, (select * from [数据源$a:i] where 险种类型='大病医疗救助')d, (select * from [数据源$a:i] where 险种类型='工伤保险')e, (select * from [数据源$a:i] where 险种类型='生育保险')f where a.个人编号=b.个人编号 and b.个人编号=c.个人编号 and c.个人编号=d.个人编号 and d.个人编号=e.个人编号 and e.个人编号=f.个人编号