SQL日期查询，使用Format结果成立，否则结果不成立。

ning84

使用Format方法，结果成立。
Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名 From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m/d') =
format('2023/7/3','yyyy/m/d')"

不使用format ，结果不成立。
Str = "Select Distinct 日期 , 文件名 From [TraverseFile$A1:D16243] Where 日期 like '%2023/7/3%'"

1. Function SqlRetuRs(Str)
   
2.    Dim Cn As ADODB.Connection
   
3.        Set Cn = New ADODB.Connection
   
4.    Dim Rs As ADODB.Recordset
   
5.        Set Rs = New ADODB.Recordset
   
6.         Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
7.         Rs.Open Str, Cn, adOpenKeyset, adLockOptimistic
   
8.        Set SqlRetuRs = Rs
   
9. End Function
   
10. 
    
11. 
    
12. Sub mustdeldeldel()
    
13.     Dim Sht As Worksheet
    
14.         Set Sht = Sheet3
    
15.     Dim Rng As Range
    
16.         Set Rng = Sht.Range("A1:D" & Sht.Cells(65536, 1).End(xlUp).Row + 10)
    
17.         Debug.Print Rng.Address
    
18.     Dim Rs As Recordset, Str
    
19.         
    
20.         ''
    
21.         With Sheet2
    
22.             .Cells.Clear
    
23.             .Cells.Font.Size = 9
    
24.             ''
    
25.             Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m/d') = format('2023/7/3','yyyy/m/d')"
    
26.             Str = "Select Distinct 日期 , 文件名  From [TraverseFile$A1:D16243] Where 日期 like '%2023/7/3%'"
    
27.             
    
28.             Debug.Print Str
    
29.             Set Rs = SqlRetuRs(Str)
    
30.             Debug.Print Rs.RecordCount, Rs.Fields.Count
    
31.             .Cells(2, "B").CopyFromRecordset Rs
    
32.         End With
    
33. End Sub
    
34. 
    

复制代码

f8b1987

日期格式应该是前后#

龍膽草

前一句Where format(日期,'yyyy/m/d') =format('2023/7/3','yyyy/m/d')"，文本类型匹配文本类型，有结果
后一句Where 日期 like '%2023/7/3%'，日期类型不能匹配文本类型，无结果，
在ACCESS数据库中，日期类型与文本类型还是分的比较开的，但在sqlite等数据库中没有专门的日期类型，日期也是用的文本类型表示，应该可以这么干。

ning84

f8b1987 发表于 2023-8-2 08:04
日期格式应该是前后#

看了很多帖子，用#方法。本人测试不成立。
Str = "Select Distinct 日期 , 文件名  From [TraverseFile$A1:D16243] Where 日期 like '#2023/7/3#'"

几种比较测试。
喜欢用Format解决问题。
常用两种方法。
            Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m/d')  between   format('2023/7/23','yyyy/m/d') and  format('2023/7/23','yyyy/m/d')"
            Str = "Select Distinct format(日期,'yyyy/m') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m')  =  format('2023/7','yyyy/m')"

1. Sub mustdeldeldel()
   
2.     Dim Sht As Worksheet
   
3.         Set Sht = Sheet3
   
4.     Dim Rng As Range
   
5.         Set Rng = Sht.Range("A1:D" & Sht.Cells(65536, 1).End(xlUp).Row + 10)
   
6.         Debug.Print Rng.Address
   
7.     Dim Rs As Recordset, Str
   
8.         
   
9.         ''
   
10.         With Sheet2
    
11.             .Cells.Clear
    
12.             .Cells.Font.Size = 9
    
13.             ''
    
14.             Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m/d') = format('2023/7/3','yyyy/m/d')"
    
15.             Str = "Select Distinct 日期 , 文件名  From [TraverseFile$A1:D16243] Where 日期 like '#2023/7/3#'"
    
16.             Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名  From [TraverseFile$A1:D16243] Where between  format(日期,'yyyy/m/d') = format('2023/7/1','yyyy/m/d') and format(日期,'yyyy/m/d') = format('2023/7/31','yyyy/m/d')"
    
17.             Str = "Select Distinct Dd From [TraverseFile$A1:D16243] Where dd between 17 and 20"
    
18.             Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m/d')  between   format('2023/7/23','yyyy/m/d') and  format('2023/7/23','yyyy/m/d')"
    
19.             Str = "Select Distinct format(日期,'yyyy/m/d') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m/d')  between   format('2023/7/23','yyyy/m/d') and  format('2023/7/23','yyyy/m/d')"
    
20.             Str = "Select Distinct format(日期,'yyyy/m') , 文件名  From [TraverseFile$A1:D16243] Where format(日期,'yyyy/m')  =  format('2023/7','yyyy/m')"
    
21.             Debug.Print Str
    
22.             Set Rs = SqlRetuRs(Str)
    
23.             Debug.Print Rs.RecordCount, Rs.Fields.Count
    
24.             .Cells(2, "B").CopyFromRecordset Rs
    
25.         End With
    
26. End Sub
    
27. 
    
28. 
    

复制代码

rendiule01

ACCESS用format 函数把日期转换了文本型不是真日期，需要cdate转换为日期