2021 年的 Excel ADODB 查询日期

Posted 2023-03-23

【中文标题】2021 年的 Excel ADODB 查询日期

【英文标题】：Excel ADODB Query Dates for year 2021

【发布时间】：2021-05-20 15:05:59

【问题描述】：

我正在尝试在 Excel 列中查询日期（例如，这是 2021 年，然后只从列中检索 2021 年的日期） 这就是我所拥有的

    CurrMonth = Format$(Date, "m/d/yyyy")
    PrevMonth = Format$(Date - Day(Date), "m/d/yyyy")
    sSQL = "SELECT * " & _
           "FROM [TEST2$] AS M  " & _
           "WHERE M.[something] = '" & rs.Fields("something").Value & "' AND " & _
           "      M.[Date] BETWEEN #" & PrevMonth & "# and #" & CurrMonth & "#" & _
          

【问题讨论】：

你得到什么输出？或者什么错误信息？

您的示例底部似乎也缺少代码

如"' AND Year(M.[Date]) = " & Year(Date)?

我仍在获取 2020@d0little 的记录

将ADODB.Command 与实际的Parameter 对象一起使用，将实际的Date 值分配给参数值，将字符串连接替换为? 参数（去掉所有分隔符），以及您不必再担心日期格式了。 SQL 命令字符串应类似于 "SELECT m.* FROM [TEST2$] m WHERE m.[Something]=? AND m.[Date] BETWEEN ? AND ?;"

【参考方案1】：

当您使用 ADODB 向数据库服务器发送查询时，您应该永远不必处理字符串连接以及字符串和日期文字分隔符。

改为使用正确参数化的Command 并向服务器发送constant 命令字符串：

'SQL string is a compile-time constant that NEVER includes any kind of user inputs:
Const sql As String = "SELECT m.* FROM [TEST2$] m WHERE m.[Something]=? AND m.[Date] BETWEEN ? AND ?;"

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = yourAdodbConnectionInstance
cmd.CommandType = adCmdText
cmd.CommandText = sql

'now append the positional parameters in order; use an actual Date value (not a String) for an adDate parameter:
cmd.Parameters.Append cmd.CreateParameter(...)
cmd.Parameters.Append cmd.CreateParameter(...)
cmd.Parameters.Append cmd.CreateParameter(...)

'now invoke .Execute and retrieve the results recordset:
Dim results As ADODB.Recordset
Set results = cmd.Execute