如何使用一个SQL语句实现跨表格多条件多次查询数据，求助~~

cjq253

论坛各位大神：
遇到的问题如题描述:怎么用一个SQL语句实现跨表格、多条件、多次查询，并将结果按顺序输出到表格中，
请问SQL语句应该如何写啊？

mySQL = "select 型号,数量,isnull(生产数) ,isnull(销售数量)   from (" & mySQL & ") where (型号 is not null) group by 型号,数量,生产数,销售数量"
我写的SQL各种报错~~
具体情况附件里已添加

魂断蓝桥

Sub a()
Dim cnn As New ADODB.Connection, r%, sql$, myf$
Dim RS As New ADODB.Recordset
Dim SQA$, SQB$, SQC, I%
myf = ThisWorkbook.Path & "\数据源1.xlsx"
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & myf
SQA = "(select * FROM [表A$A1:B] WHERE 型号 IS NOT NULL) A "
SQB = "(SELECT 型号,SUM(生产数) AS 生产数,SUM(不良数) AS 不良数 FROM [" _
        & ThisWorkbook.Path & "\数据源2.xlsx].[表B$B1:E] WHERE 型号 is NOT NULL GROUP BY 型号) B"
SQC = "(SELECT 型号,SUM(销售数量) AS 销售数量 FROM [" _
        & ThisWorkbook.Path & "\数据源3.xlsx].[表C$B1:C] WHERE 型号 is NOT NULL GROUP BY 型号) C "
sql = "SELECT A.型号,A.阶段,B.生产数,B.不良数,C.销售数量 FROM (" & SQA & " LEFT JOIN " _
        & SQB & " ON A.型号=B.型号) LEFT JOIN " & SQC & " ON A.型号=C.型号"
Cells.Clear
RS.Open sql, cnn, 1, 1
For I = 0 To RS.Fields.Count - 1
   Cells(1, I + 1) = RS.Fields(I).Name
Next
Range("a2").CopyFromRecordset RS
RS.Close
cnn.Close
Set RS = Nothing
Set cnn = Nothing
End Sub

cjq253

魂断蓝桥 发表于 2019-2-20 11:53
Sub a()
Dim cnn As New ADODB.Connection, r%, sql$, myf$
Dim RS As New ADODB.Recordset

大神，试了下，完美！，感谢！！！
如果我想在表B中，按3天一组，求生产数的和，SQL可以一句实现吗

cjq253

魂断蓝桥 发表于 2019-2-20 11:53
Sub a()
Dim cnn As New ADODB.Connection, r%, sql$, myf$
Dim RS As New ADODB.Recordset

3天一组只是例子，有按月的，有按周的，也有每天的，表B中示例数据太少，只能按3天一组试试了~

cjq253

魂断蓝桥 发表于 2019-2-20 11:53
Sub a()
Dim cnn As New ADODB.Connection, r%, sql$, myf$
Dim RS As New ADODB.Recordset

SQB = "SELECT 型号,SUM(生产数) AS 生产数,SUM(不良数) AS 不良数 FROM [" _
         & ThisWorkbook.Path & "\数据源2.xlsx].[表B$B1:E] WHERE 型号 is NOT NULL GROUP BY month(生产日期)
还是group by生产日期 between 日期A and 日期B

魂断蓝桥

cjq253 发表于 2019-2-20 14:47
SQB = "SELECT 型号,SUM(生产数) AS 生产数,SUM(不良数) AS 不良数 FROM [" _
         & ThisWorkbook. ...

按周、按月都好办，用个FORMAT 取 周、月即可。

按指定天数，能按你的附件举一个具体的例子吗。

我再试一试

永在战场

魂断蓝桥 发表于 2019-2-20 11:53
Sub a()
Dim cnn As New ADODB.Connection, r%, sql$, myf$
Dim RS As New ADODB.Recordset

最近一直研究多表查询，这个代码学习了，多谢！

cjq253

魂断蓝桥 发表于 2019-2-20 14:55
按周、按月都好办，用个FORMAT 取 周、月即可。

按指定天数，能按你的附件举一个具体的例子吗。

在附件表B里，把数据向下多拉几行，日期顺延，随意按几天间隔求下生产数、不良数可以吗

魂断蓝桥

cjq253 发表于 2019-2-20 15:16
在附件表B里，把数据向下多拉几行，日期顺延，随意按几天间隔求下生产数、不良数可以吗

日期是连续的吗？

cjq253

魂断蓝桥 发表于 2019-2-20 15:24
日期是连续的吗？

可以连续，也可能是跳跃的，毕竟不可能每天都有生产