利用SQL 查询两个表格数据并条件汇总

wyafmm

sql

利用SQL 查询两个表格数据并条件汇总

请教各位大神， 没 做过这种两个表的， 不知道 代码怎么写。。
工作簿1.rar (7.38 KB, 下载次数: 19)

2018-5-3 16:57 上传

点击文件名下载附件
sql

abc123281

像这种附件没有写代码的意义

看见星光

Sub DoCnn()
    Dim cnn As Object, s$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    s = "select sum(重量)  from (select a.品名,a.重量,a.月份,b.分类 from [sheet1$a2:d]a left join [sheet1$e2:g]b on a.品名=b.品名)"
    s1 = s & " where 分类='水果'"
    s2 = s & " where 月份='1月'"
    [a1:b1] = Array("水果重量", "水果蔬菜1月份总重量")
    Range("a2").CopyFromRecordset cnn.Execute(s1)
    Range("b2").CopyFromRecordset cnn.Execute(s2)
    cnn.Close
    Set cnn = Nothing
End Sub

看见星光

11工作簿1.rar (17.98 KB, 下载次数: 53)

2018-5-3 17:20 上传

点击文件名下载附件

wyafmm

abc123281 发表于 2018-5-3 17:15
像这种附件没有写代码的意义

附件 只是 举例，  数据在服务器上。

wyafmm

看见星光 发表于 2018-5-3 17:19
Sub DoCnn()
    Dim cnn As Object, s$
    Set cnn = CreateObject("adodb.connection")

谢谢，我测试下    。

c62232215

为什么我打开运行时提示：至少有一个参数未指定。