SQL单条件查询并统计总收入并保存(借用附件)

李大明

SQL单条件查询并统计总收入并保存，求高手帮助解决，谢谢！

zhaogang1960

请测试附件
SQL多条件查询(借用附件).rar (98.74 KB, 下载次数: 27)

2015-1-12 17:48 上传

点击文件名下载附件

zhaogang1960

请参考：

1. Private Sub CommandButton1_Click()
   
2. Dim cnn As New ADODB.Connection
   
3. Dim rs As New ADODB.Recordset
   
4. Dim strsql As String
   
5. cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ActiveWorkbook.FullName
   
6. strsql = "select * from [新数据表$b:d] Where 区域 like '%" & Range("j1") & "%'"
   
7. Set rs = cnn.Execute(strsql)
   
8. 'rs.Filter = "f1='1'"
   
9. Range("a5:c65536").ClearContents
   
10. Range("a5").CopyFromRecordset rs
    
11. rs.Close
    
12. Set rs = Nothing
    
13. cnn.Close
    
14. Set cnn = Nothing
    
15. End Sub
    

复制代码

李大明

zhaogang1960 发表于 2015-1-12 15:48
请参考：

谢谢老师，不过总收入不会保存到指定的15列内，总收入能否也自动保存15列内？

feiren228

1. Sub test()
   
2.     Dim cnn As New ADODB.Connection
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim strsql As String
   
5.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes';data source=" & ActiveWorkbook.FullName
   
6.     strsql = "select 区域, 收入, 备注 from [新数据表$] Where 区域 like '%" & Range("j1") & "%'"
   
7.     Set rs = cnn.Execute(strsql)
   
8.     Range("a5:j65536").ClearContents
   
9.     Range("a5").CopyFromRecordset rs
   
10.     strsql = "select 区域, sum(收入) as 总收入 from [新数据表$] Where 区域 like '%" & Range("j1") & "%' group by 区域"
    
11.     Range("n8").CopyFromRecordset cnn.Execute(strsql)
    
12.     rs.Close
    
13.     Set rs = Nothing
    
14.     cnn.Close
    
15.     Set cnn = Nothing
    
16. End Sub
    
17. 
    

复制代码

zhaogang1960

李大明 发表于 2015-1-12 15:59
谢谢老师，不过总收入不会保存到指定的15列内，总收入能否也自动保存15列内？

1. Private Sub CommandButton1_Click()
   
2. Dim cnn As New ADODB.Connection
   
3. Dim rs As New ADODB.Recordset
   
4. Dim strsql As String
   
5. cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ActiveWorkbook.FullName
   
6. strsql = "select 区域,sum(收入) from [新数据表$b:d] Where 区域 like '%" & Range("j1") & "%' group by 区域"
   
7. Set rs = cnn.Execute(strsql)
   
8. Range("N8:O65536").ClearContents
   
9. Range("n8").CopyFromRecordset rs '写到N8
   
10. rs.Close
    
11. Set rs = Nothing
    
12. cnn.Close
    
13. Set cnn = Nothing
    
14. End Sub
    
15. 
    

复制代码

李大明

zhaogang1960 发表于 2015-1-12 16:12

谢谢老师！我将代码复制到我另一个工作表中却出现编译错误不知是什么原因？如下图 cnn As New ADODB.Connection显示红色

zhaogang1960

李大明 发表于 2015-1-12 16:31
谢谢老师！我将代码复制到我另一个工作表中却出现编译错误不知是什么原因？如下图

请上传出错附件分析一下

李大明

zhaogang1960 发表于 2015-1-12 16:35
请上传出错附件分析一下

编译出错！请老师帮手看下

zhaogang1960

李大明 发表于 2015-1-12 16:54
编译出错！请老师帮手看下

工作表.rar (214.97 KB, 下载次数: 22)

2015-1-12 17:18 上传

点击文件名下载附件