SQL多条件查询代码怎么编写？？

wx-x

我希望查询同时满足以下条件信息，但不知道这个代码怎么编写，希望高手朋友帮帮忙：
同时满足：日期、订单号、，型号、颜色

a = "SELECT * FROM 缝纫进出 where 日期 >= #" & [k2] & "# and 日期 <= #" & [l2] & "#"
b = "SELECT * FROM 缝纫进出 where 定单号 >= '" & [m2] & "' and 定单号 <= '" & [n2] & "'"
c = "SELECT * FROM 缝纫进出 where 型号 >= '" & [o2] & "' and 型号 <= '" & [p2] & "'"
d = "SELECT * FROM 缝纫进出 where 颜色 >= '" & [q2] & "' and 颜色 <= '" & [r2] & "'"
Range("a:j").ClearContents
With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\缝纫进出帐.mdb;;;UID=admin;PWD=123", Destination:=Range("A1"))
        .CommandText = a
        .CommandText = b
        .CommandText = c
        .CommandText = d
        .Refresh BackgroundQuery:=False
    End With

taller

把Where条件合并就可以了

1. a = "SELECT * FROM 缝纫进出 where 日期 >= #" & [k2] & "# and 日期 <= #" & [l2] & "#"
   
2. b = " AND 定单号 >= '" & [m2] & "' and 定单号 <= '" & [n2] & "'"
   
3. c = " AND 型号 >= '" & [o2] & "' and 型号 <= '" & [p2] & "'"
   
4. d = " AND  颜色 >= '" & [q2] & "' and 颜色 <= '" & [r2] & "'"
   
5. Range("a:j").ClearContents
   
6. With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=MS Access Database;DBQ=" & ThisWorkbook.Path & "\缝纫进出帐.mdb;;;UID=admin;PWD=123", Destination:=Range("A1"))
   
7.     .CommandText = a & b & c & d
   
8.     .Refresh BackgroundQuery:=False
   
9. End With

复制代码

wx-x

.Refresh BackgroundQuery:=False  这个部分不能运行啊

taller

你上传的附件中是两个一样的XLS，没有“缝纫进出帐.mdb”，所以没有办法调试