JOIN操作语法错误，求助

saoxu

我想提取数符合条件的数据，然后加入一列赠送规则，可是老显示错误，现在再整理一下，帮我看哪里错误了

看见星光

Sub 统计()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    [A2:D50000].ClearContents
    r = Range("f1:h" & Cells(Rows.Count, "f").End(3).Row)
    For i = 2 To UBound(r)
        SQL = SQL & "Select 往来单位银行户名,产地,'" & r(i, 3) & "' as 赠送规则  From [销售明细表$] where 往来单位银行户名='" & r(i, 1) & "' and 产地='" & r(i, 2) & "' union all "
    Next
    Range("a2").CopyFromRecordset cnn.Execute(Left(SQL, Len(SQL) - 10))
    cnn.Close
    Set cnn = Nothing
End Sub

看见星光

副本.rar (89.87 KB, 下载次数: 9)

2018-4-24 10:56 上传

点击文件名下载附件

看见星光

外连接：
Sub 统计()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    [A2:D50000].ClearContents
    SQL = "select a.往来单位银行户名,a.产地,b.赠送规则 from [销售明细表$]a left join [送包表$f1:h]b on a.往来单位银行户名=b.客户 and a.产地=b.产地 where 赠送规则>''"
    Range("a2").CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

看见星光

副本.rar (89.4 KB, 下载次数: 4)

2018-4-24 11:04 上传

点击文件名下载附件

saoxu

谢谢你老是帮到我，然后想问送包表G列的“广东”假如改为“所有产地”怎么办，因为我们有时区域很多，销售部就写所有产地

看见星光

saoxu 发表于 2018-4-24 11:05
谢谢你老是帮到我，然后想问送包表G列的“广东”假如改为“所有产地”怎么办，因为我们有时区域很多，销售 ...

Sub 统计()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    [A2:D50000].ClearContents
    SQL = " (select 客户,replace(产地,'所有产地','') as 产地,赠送规则 from [送包表$f1:h])b "
    SQL = "select a.往来单位银行户名,a.产地,b.赠送规则 from [销售明细表$]a ," & SQL & " where a.往来单位银行户名=b.客户 and instr(a.产地,b.产地)>0"
    Range("a2").CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

看见星光

附件参考哈 副本.rar (90 KB, 下载次数: 7)

2018-4-24 11:33 上传

点击文件名下载附件

saoxu

谢谢，我想把客户，产地，商品编号相同的合在一起，在后面加了一句Group By a.往来单位银行户名 ,a.产地,a.商品编号,b.赠送规则 为什么不会汇总呢

saoxu

目的就是要汇总这类的包数，并查找促销策略，算出要奖励的金额