Question

我正在尝试运行查询，作为VBA代码的一部分，它查看日期字段中包含今天日期的所有记录，并将它们写入记录集。但是，以下SQL语句不起作用。它不返回任何记录，即使DateEntered字段definetely具有今天日期的记录。

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = #" & Date & "# "
Debug.Print SQL
cn.Open cnDB
rs.Open SQL, cn, , adLockPessimistic

我一直使用这种形式的数据库连接，它适用于我的代码中的其他查询，它只是错误的日期识别。

Answer 1

您有几种选择：

SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = Date()"

或：

Dim DateToday As String
DateToDay = Format(Date, "yyyy\/mm\/dd")
SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = #" & DateToDay & "# "

用于比较访问今天的日期所持有的日期的SQL

1 个答案: