SQL 两个表连接问题，感谢fzxba帮助

xuzong

做一个采购程序，需要知道目前有多少库存，前面三个月销售了多少，我尝试了用左连接，右连接，都不符合要求，                                                
因为，有些品种已经没有库存了，比如天麻首乌片，需要订购，
而有些品种有库存，双料喉风散，滞销，需要促销，不需要订货                                                
这两种情况在左右连接表中看不到，请教大家，有什么比较好的办法？        
生成表保留字段
商品编号,商品名称,商品规格,生产厂家,单位,本月销售,上月销售,前月销售,库存
两个表公共字段 商品编号

Sub 连接()
Dim Conn As Object, Rst As Object
    Dim strConn As String, strSQL As String
    Dim i As Integer, PathStr As String
    Set Conn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
    Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    Case Is <= 11
        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select

     strSQL = "SELECT 商品编号,商品名称,商品规格,生产厂家,单位 FROM [销售$] WHERE LEN(商品编号) UNION SELECT 商品编号,商品名称,商品规格,生产厂家,单位 FROM [库存$] WHERE LEN(商品编号)"
strSQL = "SELECT a.*,b.本月销售,b.上月销售,b.前月销售,c.库存 FROM ((" & strSQL & ") a LEFT JOIN [销售$] b ON a.商品编号=b.商品编号) LEFT JOIN [库存$] c  ON a.商品编号=c.商品编号"


    Conn.Open strConn    '打开数据库链接
    Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    With Worksheets(3)
        .Cells.Clear
        For i = 0 To Rst.Fields.Count - 1    '填写标题
            .Cells(1, i + 1) = Rst.Fields(i).Name
        Next i
        .Range("A2").CopyFromRecordset Rst

    End With
    Rst.Close    '关闭数据库连接
    Conn.Close
    Set Conn = Nothing
    Set Rst = Nothing
End Sub
sql全连接.rar (16.54 KB, 下载次数: 11)

2022-12-2 12:20 上传

点击文件名下载附件
全连接

以上关键代码由fzxba提供，完美解决了问题，感谢帮助！

fzxba

1. strSQL = "SELECT 商品编号,商品名称,商品规格,生产厂家,单位 FROM [销售$] WHERE LEN(商品编号) UNION SELECT 商品编号,商品名称,商品规格,生产厂家,单位 FROM [库存$] WHERE LEN(商品编号)"
   
2. strSQL = "SELECT a.*,b.本月销售,b.上月销售,b.前月销售,c.库存 FROM ((" & strSQL & ") a LEFT JOIN [销售$] b ON a.商品编号=b.商品编号) LEFT JOIN [库存$] c  ON a.商品编号=c.商品编号"

复制代码

xuzong

这两个表还不是全连接，是两个表的并集，是不是要先求两个表商品编号的并集，然后两个左连接，再union？感觉有点复杂，有没有更加简便的方法？

xuzong

fzxba 发表于 2022-12-3 10:03

问题解决，感谢帮助！where 后面 还有 LEN(商品编号)的写法，第一次见到，学习了！