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

ning84

每天必须学习SQL基本知识，争取十天在进步。
从零开始学习SQL(图文教程)-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum ... =1123322&page=3




Where and方法调试通过。
Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"

Where Between and 方法没有通过。是不是日期形式只能用Where ## abd ##

Where 日期 Between  #" & Format(oDate, "yyyy/mm") & "# and #" & Format(oDate + 32, "yyyy/mm") & "#"

Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')   From [Sheet1$A1:Z47627] Where 日期 Between  #2022/09# and #2022/10#

1. 
   
2. Sub SheetToSheet()
   
3.     Dim Rs As Recordset, Rs1 As Recordset
   
4.     Dim Str, ShtStr
   
5.     Dim Sht As Worksheet
   
6.     Dim oDate As Date
   
7.         Set Sht = Sheet1
   
8.         ShtStr = "From [" & Sht.Name & "$]"
   
9.         Str = "Select Distinct Format(表名,'yyyy年mm月') " & ShtStr & "Where  表名 Is Not Null "
   
10.         Set Rs = SqlRetuRs(Str)
    
11.         Sheet2.Cells(6, 1).CopyFromRecordset Rs
    
12.         With Rs
    
13.             .MoveFirst
    
14. 
    
15.             For ii = 0 To .RecordCount - 1
    
16.                  oDate = .Fields(0)
    
17.                  Str = "Select Format(日期,'yyyy年mm月'), Format(日期,'yyyy年mm月dd日 h:mm:ss') ,目标文件夹 " & _
    
18.                         " From [Sheet1$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"
    
19.                  'Str = "Select Format(日期,'yyyy年mm月'), 目标文件夹 " & _
    
20.                         " From 6[Sheet1$] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"
    
21.                  Str = "Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')  " & _
    
22.                         " From [Sheet1$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and 日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"
    
23.                  Str = "Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')  " & _
    
24.                         " From [Sheet1$A1:Z47627] Where 日期 Between  #" & Format(oDate, "yyyy/mm") & "# and #" & Format(oDate + 32, "yyyy/mm") & "#"
    
25.                  Debug.Print Str
    
26.                  Sheet1.Activate
    
27.                  Set Rs1 = SqlRetuRs(Str)
    
28.                  With Rs1
    
29.                       Str = .Fields(1)
    
30.                       Set Sht = ThisWorkbook.Sheets(Str)
    
31.                       With Sht
    
32.                            .Activate
    
33.                            .Cells.Clear
    
34.                            .Cells.Font.Size = 7
    
35.                       End With
    
36.                  End With
    
37.                  Sht.Cells(4, 1).CopyFromRecordset Rs1
    
38.                  .MoveNext
    
39.             Next ii
    
40.         End With
    
41. End Sub
    

复制代码

ning84

Where Between and 语句调试日期没有通过。



                 Str = "Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')  " & _
                        " From [Sheet1$A1:Z47627] Where 日期 >= #" & Format(oDate, "yyyy/mm") & "# and
日期 < #" & Format(oDate + 32, "yyyy/mm") & "#"
                 Str = "Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')  " & _
                        " From [Sheet1$A1:Z47627] Where 日期 Between  '#" & Format(oDate, "yyyy/mm") & "#' and '#" & Format(oDate + 32, "yyyy/mm") & "#'"

ning84

感觉语句没问题。结果不通过。
Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')   From [Sheet1$A1:Z47627] Where 日期 Between  #2022/09/1# and #2022/10/1#
’‘
Select 目标文件夹, Format(日期,'yyyy年mm月dd日 h:mm:ss'),Format(日期,'yyyy年mm月')   From [Sheet1$A1:Z47627] Where 日期 Between  '#2022/09#' and '#2022/10#'






由好好学习了------------从零开始学习SQL(图文教程)-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/forum ... =1123322&page=3
感觉我的语句没问题。
select * from [Sheet1$A:D] where 出生年月 between #1982/1/1# and #1986/1/1#

1. Option Explicit
   
2. 
   
3. Sub Test4()
   
4.     Dim Conn As Object, Rst As Object
   
5.     Dim strConn As String, strSQL As String
   
6.     Dim i As Integer, PathStr As String
   
7.     Set Conn = CreateObject("ADODB.Connection")
   
8.     Set Rst = CreateObject("ADODB.Recordset")
   
9.     PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
   
10.     Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    
11.     Case Is <= 11
    
12.         strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    
13.     Case Is >= 12
    
14.         strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
15.     End Select
    
16.     '设置SQL查询语句
    
17.     Conn.Open strConn    '打开数据库链接
    
18.     strSQL = "select * from [Sheet1$A:D] where 出生年月 between #" & Sheet1.Range("G3") & "# and #" & Sheet1.Range("H3") & "#"
    
19.     Debug.Print strSQL
    
20.     Stop
    
21.     'strSQL = "select * From [sheet1$A:D] where 出生年月 Between (select * From [sheet1$G2:G3]) and (select * From [sheet1$H2:H3])"
    
22.     'strSQL = "select * From [sheet1$A:D] where 出生年月>=(select * From [sheet1$G2:G3]) and 出生年月<=(select * From [sheet1$H2:H3])"
    
23.     Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    
24.     With Sheet1.Range("J:M")
    
25.         .Cells.Clear
    
26.         For i = 0 To Rst.Fields.Count - 1    '填写标题
    
27.             .Cells(1, i + 1) = Rst.Fields(i).Name
    
28.         Next i
    
29.         .Range("A2").CopyFromRecordset Rst
    
30.         .Cells.EntireColumn.AutoFit  '自动调整列宽
    
31.     End With
    
32.     Rst.Close    '关闭数据库连接
    
33.     Conn.Close
    
34.     Set Conn = Nothing
    
35.     Set Rst = Nothing
    
36. End Sub
    

复制代码

opiona

两个日期之间的日期或时间, 日期字段格式可以是日期,可以是文本
Where DateDiff('D','2022/09/1',日期)>=0  and  DateDiff('D',日期,'2022/10/1')>=0