VBA+SQL如何实现同一表多条件查询输出

lisan · 发表于 2011-1-24 20:04

本帖最后由 lisan 于 2011-1-24 20:04 编辑

同一文件，同一工作簿[销售明细$] 有以下8个条件查询，请问如何将它们串起来，即输出：
部门名称业务员一月件数二月件数三月件数……八月件数

s1 = "select 部门名称,业务员,count(*) as 一月件数 from [销售明细$a2:y65536] where 入库时间 between #" & 2010-01-01 & "# AND #" & 2010-01-15 & "# group by 部门名称,业务员"
……
s8 = "select 部门名称,业务员,count(*) as 八月件数 from [销售明细$a2:y65536] where 入库时间 between #" & 2010-08-01 & "# AND #" & 2010-08-15 & "# group by 部门名称,业务员"

复制代码

以上仅仅是举例子，实际情形详见附件，请不要用别的解法，希望能实现 SQL同一表多条件查询输出，在此先行谢过。

销售报表.rar (13.51 KB, 下载次数: 227)

sammyc · 发表于 2011-1-26 15:03

下了学习学习!

lisan · 发表于 2011-1-26 15:11

是问题，不是分享，没法让你学习的。

wuxiang_123 · 发表于 2011-1-26 15:12

{:171:}不用VBA,纯SQL也可以做到,你想按那些条件查询{:171:}

lisan · 发表于 2011-1-26 22:41

没想到都惊动了wuxiang老师了！谢谢！

sunjing-zxl · 发表于 2011-1-27 14:32

深奥的问题，期待高手解决了

mn860429 · 发表于 2011-1-27 14:39

本帖最后由 mn860429 于 2011-1-27 14:39 编辑

先用union all查询所有工作表的数据，最后进行分类汇总{:011:}l

lisan · 发表于 2011-1-27 19:10

能提供详细解法吗？

zhj1978 · 发表于 2011-1-29 13:01

先用union all查询所有工作表的数据，最后进行分类汇总,能提供详细解法吗？

pc520 · 发表于 2011-1-29 23:46

本帖最后由爱疯于 2011-10-26 17:24 编辑

按你说的理解了，但结果和你的模拟结果有出入

[hide
]

SQL = "SELECT 部门名称, 业务员, Count(*), Sum(IIf([问题件类型]='首次转账不成功问题件',1,0)), Format(Sum(IIf([问题件类型]='首次转账不成功问题件',1,0))/Count(*),'0.00%'), " _
& "Sum(IIf(DateDiff('d',[二次到期日期],[二次交费日期])<=3,1,0)), Format(Sum(IIf(DateDiff('d',[二次到期日期],[二次交费日期])<=3,1,0))/Count(*),'0.00%'), Sum(IIf(Month([二次到期日期])=Month([二次交费日期]),1,0)), Format(Sum(IIf(Month([二次到期日期])=Month([二次交费日期]),1,0))/Count(*),'0.00%'), " _
& "Sum(IIf(DateDiff('d',[三次到期日期],[三次交费日期])<=3,1,0)), Format(Sum(IIf(DateDiff('d',[三次到期日期],[三次交费日期])<=3,1,0))/Count(*),'0.00%'), Sum(IIf(Month([三次到期日期])=Month([三次交费日期]),1,0)), Format(Sum(IIf(Month([三次到期日期])=Month([三次交费日期]),1,0))/Count(*),'0.00%'), " _
& "Sum(IIf(DateDiff('d',[四次到期日期],[四次交费日期])<=3,1,0)), Format(Sum(IIf(DateDiff('d',[四次到期日期],[四次交费日期])<=3,1,0))/Count(*),'0.00%'), Sum(IIf(Month([四次到期日期])=Month([四次交费日期]),1,0)), Format(Sum(IIf(Month([四次到期日期])=Month([四次交费日期]),1,0))/Count(*),'0.00%') " _
& "FROM [销售明细$a2:y] WHERE (保单状态 Is Not Null) and 扫描时间 between #" & TD1 & "# AND #" & TD2 & "# GROUP BY 部门名称,业务员"

复制代码

销售报表.rar (11.13 KB, 下载次数: 329)

		自动登录	找回密码
密码			注册

[习题] VBA+SQL如何实现同一表多条件查询输出