sql where 日期 = ‘2023/6/1’没通过。

ning84

最简单的SQL,怎么没通过。
Str = "Select   日期 From [TraverseFolderFile$A1:Z47627] Weree 日期 = '#2023/6/1#'"
Str = "Select   日期 From [TraverseFolderFile$A1:Z47627] Weree format(日期,'yyyy/m/d') = format('2023/6/1','yyyy/m/d') "

f8b1987

日期不用加引号，这个带时间的，最好是取整

笑着...两年过去

日期 >= '#2023/6/1#' and 日期 < '#2023/7/1#'"

ning84

f8b1987 发表于 2023-10-6 09:51
日期不用加引号，这个带时间的，最好是取整

谢谢回复，下面语句通过，但格式转换比骄麻烦。

Select   * From [TraverseFolderFile$A1:A47627] Where 日期 = 45078.4746990741






麻烦给个例子，加深理解。


下面语句没有通过。



Str = "Select   * From [TraverseFolderFile$] Weree 日期 >= '#2023/6/1#' and 日期 < '#2023/7/1#'"
Str = "Select   日期 From [TraverseFolderFile$A1:A47627] Weree 日期 >= '#2023/6/1#' and 日期 < '#2023/7/1#'"
Str = "Select   日期 From [TraverseFolderFile$A1:A47627] Weree 日期 = '#2023/6/1#' "
Str = "Select   * From [TraverseFolderFile$A1:A47627] Weree 日期 >= '#2023/6/1#' and 日期 < '#2023/7/1#'"

f8b1987

参考
    ' 构建查询语句
    strSQL = "SELECT * FROM [SS$A1:A23] WHERE [日期时间] > #2023-09-05# AND [日期时间] < #2023-09-10#"

limonet

"select * From [Sheet1$A:A] where int(日期)=#2023-10-06#"

ning84

limonet 发表于 2023-10-6 16:20
"select * From [Sheet1$A:A] where int(日期)=#2023-10-06#"

谢谢回复

1. Function MergeDate(Rs As Recordset, Sht As Worksheet)
   
2.     Dim Rng As Range
   
3.         With Sht
   
4.               Set Rng = .Cells(.Cells(65536, 2).End(xlUp).Row + 2, 1)
   
5.               Debug.Print Rng.Address
   
6.               Rng.CopyFromRecordset Rs
   
7.               Set Rng = Rng.Resize(Rs.RecordCount + 0, 1)
   
8.               Rng.Select
   
9.               Rng.Merge
   
10.               Set Rng = Rng.CurrentRegion
    
11.               Rng.Select
    
12. ''
    
13.     With Selection.Borders(xlEdgeLeft)
    
14.         .LineStyle = xlContinuous
    
15.         .ColorIndex = xlAutomatic
    
16.         .TintAndShade = 0
    
17.         .Weight = xlMedium
    
18.     End With
    
19.     With Selection.Borders(xlEdgeTop)
    
20.         .LineStyle = xlContinuous
    
21.         .ColorIndex = xlAutomatic
    
22.         .TintAndShade = 0
    
23.         .Weight = xlMedium
    
24.     End With
    
25.     With Selection.Borders(xlEdgeBottom)
    
26.         .LineStyle = xlContinuous
    
27.         .ColorIndex = xlAutomatic
    
28.         .TintAndShade = 0
    
29.         .Weight = xlMedium
    
30.     End With
    
31.     With Selection.Borders(xlEdgeRight)
    
32.         .LineStyle = xlContinuous
    
33.         .ColorIndex = xlAutomatic
    
34.         .TintAndShade = 0
    
35.         .Weight = xlMedium
    
36.     End With
    
37.     With Selection.Borders(xlInsideVertical)
    
38.         .LineStyle = xlContinuous
    
39.         .ColorIndex = xlAutomatic
    
40.         .TintAndShade = 0
    
41.         .Weight = xlMedium
    
42.     End With
    
43.     With Selection.Borders(xlInsideHorizontal)
    
44.         .LineStyle = xlContinuous
    
45.         .ColorIndex = xlAutomatic
    
46.         .TintAndShade = 0
    
47.         .Weight = xlMedium
    
48.     End With
    
49. '''
    
50.         End With
    
51. End Function
    
52. 
    
53. 
    
54. Private Sub dSqlCreateFolder()
    
55.     Application.DisplayAlerts = False
    
56. 
    
57.     Dim oFolder As Folder, oFile As File, oFile1 As File
    
58.     Dim Fso As Scripting.FileSystemObject
    
59.         Set Fso = New Scripting.FileSystemObject
    
60.     Dim Sht As Worksheet
    
61.         Set Sht = Sheet4
    
62.         Set Sht = Sheets("TraverseFolderFile")
    
63.         Sht.Activate
    
64.     Dim Rng As Range, oRng As Range
    
65.         Set Rng = Sht.Range("A1:Z" & Sht.Cells(65536, 1).End(xlUp).Row + 10)
    
66.         Debug.Print Rng.Address
    
67.     Dim Rs As Recordset, Rs1 As Recordset, Str
    
68.     Dim oPath, oPath1
    
69.     Dim oDate As Date
    
70.         ''
    
71.         With Sheet2
    
72.             .Activate
    
73.             .Cells.Clear
    
74.             .Cells.Font.Size = 9
    
75.             ''
    
76.             Str = "Select Distinct  Format(日期,'yyyy-mm')" & _
    
77.                " From [" & Sht.Name & "$" & Rng.Address(0, 0) & "] "
    
78.             'Debug.Print Str
    
79.             ''
    
80.             Set Rs = SqlRetuRs(Str)
    
81.             .Cells(2, 20).CopyFromRecordset Rs
    
82.             
    
83.             Rs.MoveFirst
    
84.             
    
85.             For ii = 0 To Rs.RecordCount - 1
    
86.                If IsDate(Rs.Fields(0)) Then
    
87.                     oDate = Rs.Fields(0)
    
88.                     Str = "Select Format(日期,'yyyy-mm'),  Format(日期,'yyyy-mm-dd')" & _
    
89.                         " From [TraverseFolderFile$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm/dd") & "# and 日期 < #" & Format(oDate + 1, "yyyy/mm/dd") & "#"
    
90.                     Str = "Select Format(日期,'yyyy-mm'),  Format(日期,'yyyy-mm-dd')" & _
    
91.                         " From [TraverseFolderFile$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 1, "yyyy/mm") & "#"
    
92. 
    
93.                     Str = "Select distinct Format(日期,'yyyy年mm月'),  Format(日期,'yyyy年mm月dd日')" & _
    
94.                         " From [TraverseFolderFile$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"
    
95. 
    
96.                         Set Rs1 = SqlRetuRs(Str)
    
97.                         If Rs1.RecordCount > 0 Then
    
98.                             MergeDate Rs1, Sheet2
    
99.                         End If
    
100.                         
     
101.                 End If
     
102.                 Rs.MoveNext
     
103.             Next ii
     
104.        End With
     
105.        Application.DisplayAlerts = True
     
106. 
     
107. End Sub

复制代码

ning84

limonet 发表于 2023-10-6 16:20
"select * From [Sheet1$A:A] where int(日期)=#2023-10-06#"

谢谢回复，各位的回复。

1. Function MergeDate(Rs As Recordset, Sht As Worksheet)
   
2.     Dim Rng As Range
   
3.         With Sht
   
4.               Set Rng = .Cells(.Cells(65536, 2).End(xlUp).Row + 2, 1)
   
5.               Debug.Print Rng.Address
   
6.               Rng.CopyFromRecordset Rs
   
7.               Set Rng = Rng.Resize(Rs.RecordCount + 0, 1)
   
8.               Rng.Select
   
9.               Rng.Merge
   
10.               Set Rng = Rng.CurrentRegion
    
11.               Rng.Select
    
12. ''
    
13.     With Selection.Borders(xlEdgeLeft)
    
14.         .LineStyle = xlContinuous
    
15.         .ColorIndex = xlAutomatic
    
16.         .TintAndShade = 0
    
17.         .Weight = xlMedium
    
18.     End With
    
19.     With Selection.Borders(xlEdgeTop)
    
20.         .LineStyle = xlContinuous
    
21.         .ColorIndex = xlAutomatic
    
22.         .TintAndShade = 0
    
23.         .Weight = xlMedium
    
24.     End With
    
25.     With Selection.Borders(xlEdgeBottom)
    
26.         .LineStyle = xlContinuous
    
27.         .ColorIndex = xlAutomatic
    
28.         .TintAndShade = 0
    
29.         .Weight = xlMedium
    
30.     End With
    
31.     With Selection.Borders(xlEdgeRight)
    
32.         .LineStyle = xlContinuous
    
33.         .ColorIndex = xlAutomatic
    
34.         .TintAndShade = 0
    
35.         .Weight = xlMedium
    
36.     End With
    
37.     With Selection.Borders(xlInsideVertical)
    
38.         .LineStyle = xlContinuous
    
39.         .ColorIndex = xlAutomatic
    
40.         .TintAndShade = 0
    
41.         .Weight = xlMedium
    
42.     End With
    
43.     With Selection.Borders(xlInsideHorizontal)
    
44.         .LineStyle = xlContinuous
    
45.         .ColorIndex = xlAutomatic
    
46.         .TintAndShade = 0
    
47.         .Weight = xlMedium
    
48.     End With
    
49. '''
    
50.         End With
    
51. End Function
    
52. 
    
53. 
    
54. Private Sub dSqlCreateFolder()
    
55.     Application.DisplayAlerts = False
    
56. 
    
57.     Dim oFolder As Folder, oFile As File, oFile1 As File
    
58.     Dim Fso As Scripting.FileSystemObject
    
59.         Set Fso = New Scripting.FileSystemObject
    
60.     Dim Sht As Worksheet
    
61.         Set Sht = Sheet4
    
62.         Set Sht = Sheets("TraverseFolderFile")
    
63.         Sht.Activate
    
64.     Dim Rng As Range, oRng As Range
    
65.         Set Rng = Sht.Range("A1:Z" & Sht.Cells(65536, 1).End(xlUp).Row + 10)
    
66.         Debug.Print Rng.Address
    
67.     Dim Rs As Recordset, Rs1 As Recordset, Str
    
68.     Dim oPath, oPath1
    
69.     Dim oDate As Date
    
70.         ''
    
71.         With Sheet2
    
72.             .Activate
    
73.             .Cells.Clear
    
74.             .Cells.Font.Size = 9
    
75.             ''
    
76.             Str = "Select Distinct  Format(日期,'yyyy-mm')" & _
    
77.                " From [" & Sht.Name & "$" & Rng.Address(0, 0) & "] "
    
78.             'Debug.Print Str
    
79.             ''
    
80.             Set Rs = SqlRetuRs(Str)
    
81.             .Cells(2, 20).CopyFromRecordset Rs
    
82.             
    
83.             Rs.MoveFirst
    
84.             
    
85.             For ii = 0 To Rs.RecordCount - 1
    
86.                If IsDate(Rs.Fields(0)) Then
    
87.                     oDate = Rs.Fields(0)
    
88.                     Str = "Select Format(日期,'yyyy-mm'),  Format(日期,'yyyy-mm-dd')" & _
    
89.                         " From [TraverseFolderFile$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm/dd") & "# and 日期 < #" & Format(oDate + 1, "yyyy/mm/dd") & "#"
    
90.                     Str = "Select Format(日期,'yyyy-mm'),  Format(日期,'yyyy-mm-dd')" & _
    
91.                         " From [TraverseFolderFile$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 1, "yyyy/mm") & "#"
    
92. 
    
93.                     Str = "Select distinct Format(日期,'yyyy年mm月'),  Format(日期,'yyyy年mm月dd日')" & _
    
94.                         " From [TraverseFolderFile$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"
    
95.                     'Str = "Select distinct Format(日期,'yyyy年mm月'),  Format(日期,'yyyy年mm月dd日')" & _
    
96.                         " From [TraverseFolderFile$A1:Z47627] Where int(日期)= #" & Format(oDate, "yyyy/mm") & "#"
    
97. 
    
98.                         Set Rs1 = SqlRetuRs(Str)
    
99.                         If Rs1.RecordCount > 0 Then
    
100.                             MergeDate Rs1, Sheet2
     
101.                         End If
     
102.                         
     
103.                 End If
     
104.                 Rs.MoveNext
     
105.             Next ii
     
106.        End With
     
107.        Application.DisplayAlerts = True
     
108. 
     
109. End Sub

复制代码

tanglf188

#是日期型，你再加个单引号又是字符型了；去掉单引号试试呢
Str = "Select   日期 From [TraverseFolderFile$A1:Z47627] Weree 日期 = #2023/6/1#"

ning84

1. Sub ShtMoveJPGtoFolder()
   
2.      Dim T: T = Time
   
3.          Debug.Print T
   
4.      Dim Fso As FileSystemObject
   
5.          Set Fso = New FileSystemObject
   
6.      Dim Str, Str1
   
7.      Dim Sht As Worksheet
   
8.      Dim Rng As Range
   
9.      Dim Rs As Recordset
   
10.           Set Sht = Sheet2
    
11.           Set Rng = Sht.Cells(900000, 1)
    
12.           Str1 = " From [" & Sht.Name & "$A1:Z" & Rng.End(xlUp).Row & "] Where 日期 <> Null"
    
13.           Str = "Select Format(日期,'yyyy年mm月'),  Format(日期,'yyyy年mm月dd日')" & _
    
14.                ",文件夹,文件 " & Str1
    
15.           Str = "Select 文件夹, " & _
    
16.                 "'\' + Format(日期'yyyy年mm月')+ '\' +  Format(日期,'yyyy年mm月dd日') + '\'+文件 " & Str1
    
17.           Str = "Select 文件夹, " & _
    
18.                 "\ + Format(日期'yyyy年mm月')+ \ +  Format(日期,'yyyy年mm月dd日') + \+文件 " & Str1
    
19.           Str = "Select 文件夹, " & _
    
20.                 " Format(日期'yyyy年mm月') +  Format(日期,'yyyy年mm月dd日') + 文件 " & Str1
    
21.           Str = "Select 文件夹, " & _
    
22.                 " Format(日期'yyyy年mm月') +  Format(日期,'yyyy年mm月dd日') " & Str1
    
23.           Str = "Select '\' +  Format(日期,'yyyy年mm月')+ '\' + Format(日期,'yyyy年mm月dd日')+ '\' + 文件" & _
    
24.                ",文件夹 " & Str1
    
25.           Set Rs = SqlRetuRs(Str)
    
26.           Debug.Print Rs.RecordCount
    
27.           With Rs
    
28.               .MoveFirst
    
29.               For ii = 0 To .RecordCount - 1
    
30.                   Str = .Fields(1)
    
31.                   Str1 = ThisWorkbook.Path & .Fields(0)
    
32.                   With Fso
    
33.                        If .FileExists(Str) = True And .FileExists(Str1) = False Then
    
34.                             Debug.Print Str, Str1
    
35.                             Debug.Print Format(Time - T, "h:mm:ss")
    
36.                             .MoveFile Str, Str1
    
37.                        End If
    
38.                   End With
    
39.                   .MoveNext
    
40.               Next ii              ''
    
41.           End With
    
42.           Debug.Print Format(Time - T, "h:mm:ss")
    
43. End Sub
    

复制代码

Select '\' +  Format(日期,'yyyy年mm月')+ '\' + Format(日期,'yyyy年mm月dd日')+ '\' + 文件,文件夹  From [TraverseFolderFile$A1:Z47617] Where 日期 <> Null