求VBA中执行SQL语句

吓你一跳

根据sheet2的数值，筛选( "库存方式"=02 通过型)的数据，输出（验收日 ,大类名称  ,SUM(订购数)   ,SUM(订购数*进价(未税))
筛选("单据类型”=16 店铺进货单  and  "库存方式"=02 通过型)的数据，通过上表验收日&大类名称两项关联，输出（SUM(预拣数) ,SUM(预拣数*进价(未税)),SUM(订购数) ,SUM(订购数*进价) ）
在sheet1中输出两个临时表的字段，在行尾中进行合计。

WANT-T

请问哪里不会？

吓你一跳

WANT-T 发表于 2024-5-21 09:47
请问哪里不会？

Sele_str = "SELECT A.dt,A.dapt,A.dgqty,A.dgamt,b.dgqty,bgamt,b. yjqty,b.yjamt  " & _
          "FROM (Select 验收日 as dt ,大类名称  as  dapt ,SUM(订购数)  as  dgqty ,SUM(订购数*进价)  as dgamt  From [Sheet2$]  Where  库存方式 = '02 通过型'  group by  验收日,大类名称)  AS A " & _
          "Left JOIN (Select 验收日  as dt ,大类名称 as  dapt ,SUM(订购数)  as  dgqty ,SUM(订购数*进价) as dgamt ,SUM(预拣数) as  yjqty,SUM(预拣数*进价) as yjamt  From [Sheet2$]  Where 单据类型 = '16 店铺进货单'  And  库存方式 = '02 通过型'  group by  验收日,大类名称)  AS B " & _
"ON A.dt=B.dt,A.dapt=B.dapt "
这个在VBA中执行报错了

WANT-T

吓你一跳 发表于 2024-5-21 09:50
Sele_str = "SELECT A.dt,A.dapt,A.dgqty,A.dgamt,b.dgqty,bgamt,b. yjqty,b.yjamt  " & _
          "F ...

请问下，这个绿色是您自己设置的嘛？

吓你一跳

WANT-T 发表于 2024-5-21 10:05
请问下，这个绿色是您自己设置的嘛？

是的，这个是自己写的

tanglf188

哈哈，挺眼熟啊，貌似帮你写过了啊

吓你一跳

tanglf188 发表于 2024-5-21 10:14
哈哈，挺眼熟啊，貌似帮你写过了啊

是的 ，之前是取单表，现在我加了左关联在里面，执行报错了，求指导，谢谢

杨成云

select 大类名称,货号,品名,SUM(订购数*进价（未税）) as 进价金额合计 from [Sheet2$] where (库存方式 like '%02 通过型%') Group by 大类名称,货号,品名



每个查询中，只能有一个聚合函数。字段中的半角括号改成全角括号。

魂断蓝桥

SUM(订购数*进价)  是不是这个字段名称不对

你改成 SUM(订购数*[进价(未税)]) as dgamt  试一下

tanglf188

直接求和不就得了，哪有这么麻烦，用不着关联啊，你报错是因为你在标题用了小括号，在SQL语句里会做函数处理