VBA_SQL多表查询汇总到同一Excel表中

jovelive

如何通过SQL 获取db1中 “信息”表中信息写入A~E列，
读取“生产消耗”表中 对应编号 的消耗数（每个产品生产会有几个工序，生产编号前几位对应 信息表物品编号） 以及“手动添加”表中 添加时间 在产品生产开始时间与完成时间之间的材料数，汇总到 F~L列

opel-wong

通过VBA+简单的SQL语句+数组循环，能实现。
不过，这个题目，明显可以一句SQL语句可以实现。
留个记号，

jovelive

各位老师，大侠……帮帮忙

opel-wong

jovelive 发表于 2021-5-15 11:05
各位老师，大侠……帮帮忙

解决了吗？

ahaoge

Private Sub CommandButton1_Click()
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DB1.MDB;Persist Security Info=False"
    Range("A2:L65536").ClearContents
    Range("A2").CopyFromRecordset conn.Execute("Select 编号,产品,规格,开始生产时间,完成生产时间 from 信息 order by 编号")
    r = Range("A65536").End(3).Row
    For i = 2 To r
        For j = 6 To 12
            Cells(i, j).CopyFromRecordset conn.Execute("Select sum(物料数量) as sumSL from 生产消耗 where left(生产编号,4)='" & Cells(i, "A") & "' and 物料名称='" & Cells(1, j) & "'")
        Next j
    Next i
    Range("F2").Resize(r, 7).NumberFormatLocal = "G/通用格式"
End Sub

ahaoge

Private Sub CommandButton1_Click()
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DB1.MDB;Persist Security Info=False"
    Range("A2:L65536").ClearContents
    Range("A2").CopyFromRecordset conn.Execute("Select 编号,产品,规格,开始生产时间,完成生产时间 from 信息 order by 编号")
    r = Range("A65536").End(3).Row
    For i = 2 To r
        For j = 6 To 12
            Cells(i, j).CopyFromRecordset conn.Execute("Select sum(物料数量) as sumSL from 生产消耗 where left(生产编号,4)='" & Cells(i, "A") & "' and 物料名称='" & Cells(1, j) & "'")
        Next j
    Next i
    Range("F2").Resize(r, 7).NumberFormatLocal = "G/通用格式"
End Sub

ahaoge

(1)在VBE工作环境中，选择“工具”菜单中的“引用”命令，打开“引用”对话框。
(2)在“可使用的引用”列表中勾选 “Microsoft DAO 3.6 Object Library” 如下图：
(3)Access数据库必须和Excel文件放在同级路径下

jovelive

ahaoge 发表于 2021-5-17 23:04
Private Sub CommandButton1_Click()
    Set conn = CreateObject("ADODB.Connection")
    Set rs = Cr ...

感谢老师帮助，第三个数据表，手动添加 部分，如果手动时间在 某个产品 开始生产到完成生产时间内的，累加到对应产品的材料消耗上。如何实现，烦请老师帮忙。。。谢谢！！

jovelive

ahaoge 发表于 2021-5-17 23:04
Private Sub CommandButton1_Click()
    Set conn = CreateObject("ADODB.Connection")
    Set rs = Cr ...

数据量大会很卡。

jovelive

各位大神们，来帮忙解决一下，谢谢。。。。。非常感谢。。。。