SQL查询、汇总代码，急急急！！！

xgj.cpa

各位老师，学生有SQL查询、汇总代码方面的求助，希望能尽快得到帮助。学生首先在此表示衷心地感谢！！！

附件附件中是个员工补贴发放表，第一张表是员工补贴发放记录，第二张表要求将杨建军的所有发放记录查询出来，第三张表要求将所有员工2月份的发放金额汇总出来。

以上查询均要求在VBA代码中运用SQL来实现。

alzeng

个人：

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Address <> "$D$3" Then Exit Sub
   
4. 
   
5.     Dim Cn As Object, Sqlstr$
   
6. 
   
7.     Set Cn = CreateObject("Adodb.Connection")
   
8.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
9. 
   
10.     Sqlstr = "Select 月,日,编号,摘要,岗位补贴,驻外补贴 " _
    
11.            & "From [补贴发放记录表$B4:H65536] " _
    
12.            & "Where 姓名='" & [D3] & "'"
    
13.            
    
14.     [5:65536].ClearContents
    
15.     [B5].CopyFromRecordset Cn.Execute(Sqlstr)
    
16.     Cn.Close: Set Cn = Nothing
    
17. End Sub
    

复制代码

汇总：

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Address <> "$C$3" Then Exit Sub
   
4. 
   
5.     Dim Cn As Object, Sqlstr$
   
6. 
   
7.     Set Cn = CreateObject("Adodb.Connection")
   
8.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
9. 
   
10.     Sqlstr = "Select 姓名,Sum(岗位补贴),Sum(驻外补贴) " _
    
11.            & "From [补贴发放记录表$B4:H65536] " _
    
12.            & "Where 月=" & [C3] _
    
13.            & " Group By 姓名"
    
14.            
    
15.     [5:65536].ClearContents
    
16.     [B5].CopyFromRecordset Cn.Execute(Sqlstr)
    
17.     Cn.Close: Set Cn = Nothing
    
18. End Sub
    

复制代码

alzeng

SQL查询.rar (9.73 KB, 下载次数: 112)

2010-6-12 10:21 上传

点击文件名下载附件

xgj.cpa

非常感谢alzeng的帮助，正在抓紧理解，有不清楚之处还望老师继续指点，谢谢！！！

xgj.cpa

另外还需在求助alzeng老师：

在第三张表中能不能保持表格中原来的人员姓名和位置不动，月份改变后只更新补贴的汇总数据？

     再次向alzeng老师表示感谢！！！

alzeng

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Address <> "$C$3" Then Exit Sub
   
4. 
   
5.     Dim Cn As Object, Sqlstr$
   
6.     [C5:D65536].ClearContents
   
7. 
   
8.     Set Cn = CreateObject("Adodb.Connection")
   
9.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
10. 
    
11.     Sqlstr = "Select * From [补贴发放汇总表$B4:D65536] A Left Join (" _
    
12.            & "Select 姓名,Sum(岗位补贴) As C,Sum(驻外补贴) As D " _
    
13.            & "From [补贴发放记录表$B4:H65536] " _
    
14.            & "Where 月=" & [C3] _
    
15.            & " Group By 姓名) B " _
    
16.            & "On A.姓名=B.姓名"
    
17.     Sqlstr = "Select A.姓名,B.C,B.D From (" & Sqlstr & ")"
    
18. 
    
19.     [B5].CopyFromRecordset Cn.Execute(Sqlstr)
    
20.     Cn.Close: Set Cn = Nothing
    
21. End Sub
    

复制代码

zpy2

很好，学习了。

xgj.cpa

非常感谢alzeng 老师的再次帮助！！！

xinjiana

干吗用sql，用数据透视表不是很好吗

xgj.cpa

是老板要求的啊，您能帮个忙吗？先谢了！！！