关于SQL查找问题 多条件 （条件代码有问题）

小锋子

老师们，请教一个问题：关于多条件查找，如果其中为空则不进入查找的条件内；


代码1   这个只能实现时间段内查找

1. Sub TJ()
   
2.   On Error Resume Next '忽略错误值
   
3.   
   
4. Dim cnn As Object, Sql$, shnm$, arr, i&, j&
   
5. Set cnn = CreateObject("Adodb.Connection")
   
6. 
   
7. 
   
8. shnm = Sheet7.Name
   
9. ks = CDate([L5].Value)
   
10. js = CDate([N5].Value)
    
11. kh = [L2]
    
12. ck = [N2]
    
13. 
    
14. 
    
15. cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';data source=" & ThisWorkbook.FullName
    
16. 
    
17. Sql = ""
    
18. Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "#"
    
19. 
    
20. 
    
21. 
    
22. 'SQL = "select SQL from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "#"
    
23. 
    
24. 
    
25. [A5:F5000].Clear
    
26. [A5].CopyFromRecordset cnn.Execute(Sql)
    
27. cnn.Close
    
28. Set cnn = Nothing
    
29. 
    
30. '宏整理格式
    
31.     Columns("A:H").Select
    
32.     Range("A5").Activate
    
33.     With Selection
    
34.         .HorizontalAlignment = xlCenter
    
35.         .VerticalAlignment = xlCenter
    
36.         .WrapText = False
    
37.         .Orientation = 0
    
38.         .AddIndent = False
    
39.         .IndentLevel = 0
    
40.         .ShrinkToFit = False
    
41.         .ReadingOrder = xlContext
    
42.     End With
    
43.     Range("A1:H2").Select
    
44.     Columns("A:A").EntireColumn.AutoFit
    
45.     Columns("B:B").EntireColumn.AutoFit
    
46.     Columns("C:C").EntireColumn.AutoFit
    
47.     Columns("D:D").EntireColumn.AutoFit
    
48.     Columns("E:E").EntireColumn.AutoFit
    
49.     Columns("F:F").EntireColumn.AutoFit
    
50.     Columns("G:G").EntireColumn.AutoFit
    
51.     Columns("H:H").EntireColumn.AutoFit
    
52.     Range("L2:L3").Select
    
53. End Sub

复制代码

这里自己加上判断，但只能实现第一条……老师们帮我看一下错了那里？我一条条来测就可以

1. If IsDate(ks) Or IsDate(js) Or kh > "" Or ck > "" Then
   
2. '所有条件齐全查找；
   
3.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 货号=" & kh & "and 仓库='" & ck & "';"
   
4.   
   
5.   ElseIf IsDate(ks) Or IsDate(js) Or kh > "" Then
   
6. '日期段和货号查找；
   
7.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 货号=" & kh & "';"
   
8.   
   
9.   ElseIf IsDate(ks) Or IsDate(js) Or ck > "" Then
   
10. '仓库和时间段查找；
    
11.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 仓库='" & ck & "';"
    
12. 
    
13.   ElseIf IsDate(ks) Or IsDate(js) = "" Then
    
14. '仓库和货号查询；
    
15.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 货号=" & kh & "and 仓库='" & ck & "';"
    
16.   
    
17.   ElseIf IsDate(ks) Or IsDate(js) Or kh = "" Then
    
18. '所在仓库查询；
    
19.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 仓库='" & ck & "';"
    
20.   ElseIf IsDate(ks) Or IsDate(js) Or ck = "" Then
    
21. '货号查询；
    
22.   Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 货号=" & kh & ""
    
23. 
    
24.   
    
25. 
    
26.   End If

复制代码

提问1.rar (54.33 KB, 下载次数: 31)

2019-7-11 11:34 上传

点击文件名下载附件

zpy2

可以把多字段连成一个字符串查询。
还有，就是根据条件，if 条件 then ....拼接sql语句

liangmutou01

揣摩你的意思大约是这样：
Sub TJ()
  On Error Resume Next '忽略错误值
  Dim cnn As Object, Sql$, shnm$, arr, i&, j&
  ks = CDate([L5].Value)
  js = CDate([N5].Value)
  kh = [L2]
  ck = [N2]
  If IsDate(ks) Or IsDate(js) Or kh = "" Or ck = "" Then
    MsgBox "查询条件不起，补齐后重试。"
    Exit Sub
  End If
  shnm = Sheet7.Name
  Set cnn = CreateObject("Adodb.Connection")
  cnn.Open "provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;';data source=" & ThisWorkbook.FullName
  Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 货号=" & kh & "and 仓库='" & ck & "';"


Sheet5.[A5:F5000].Clear
Sheet5.[A5].CopyFromRecordset cnn.Execute(Sql)
cnn.Close
Set cnn = Nothing

Stop
'宏整理格式
    Columns("A:H").Select
    Range("A5").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    Range("A1:H2").Select
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Range("L2:L3").Select
End Sub

小锋子

liangmutou01 发表于 2019-7-11 15:24
揣摩你的意思大约是这样：
Sub TJ()
  On Error Resume Next '忽略错误值

谢谢你的回复，大至达到了，我再进行改动一下，因为条件不一定全部齐来操作的，先感谢你的热心回复

小锋子

zpy2 发表于 2019-7-11 14:07
可以把多字段连成一个字符串查询。
还有，就是根据条件，if 条件 then ....拼接sql语句

感谢你的回复，感觉虽然云里雾不太明白，但if 条件 then ....拼接sql语句 这句话给了我启发，我试试

小锋子

这里自己加上判断，但只能实现第一条……老师们帮我看一下错了那里？我一条条来测就可以

1. If IsDate(ks) Or IsDate(js) Or kh > "" Or ck > "" Then
   
2. '所有条件齐全查找；
   
3.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 货号=" & kh & "and 仓库='" & ck & "';"
   
4.   
   
5.   ElseIf IsDate(ks) Or IsDate(js) Or kh > "" Then
   
6. '日期段和货号查找；
   
7.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 货号=" & kh & "';"
   
8.   
   
9.   ElseIf IsDate(ks) Or IsDate(js) Or ck > "" Then
   
10. '仓库和时间段查找；
    
11.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 日期 between #" & ks & "# And #" & js & "# and 仓库='" & ck & "';"
    
12. 
    
13.   ElseIf IsDate(ks) Or IsDate(js) = "" Then
    
14. '仓库和货号查询；
    
15.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 货号=" & kh & "and 仓库='" & ck & "';"
    
16.   
    
17.   ElseIf IsDate(ks) Or IsDate(js) Or kh = "" Then
    
18. '所在仓库查询；
    
19.    Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 仓库='" & ck & "';"
    
20.   ElseIf IsDate(ks) Or IsDate(js) Or ck = "" Then
    
21. '货号查询；
    
22.   Sql = "select 单号,日期,货号,产品名称,数量,仓库 from [" & shnm & "$] where 货号=" & kh & ""
    
23. 
    
24.   
    
25. 
    
26.   End If

复制代码

zhangwg0604

liangmutou01 发表于 2019-7-11 15:24
揣摩你的意思大约是这样：
Sub TJ()
  On Error Resume Next '忽略错误值

https://club.excelhome.net/thread-1667656-1-1.html
老师帮忙看看，问题出在哪里。如何修改可以达到想要的效果。
在此非常感谢！！！