我正在尝试运行一个查询,作为 VBA 代码的一部分,该查询查看日期字段中包含今天日期的所有记录,并将它们写入记录集。但是下面的 SQL 语句不起作用。 即使 DateEntered 字段明确包含带有今天日期的记录,它也不会返回任何记录。
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
我一直使用这种形式的数据库连接,它适用于我代码中的其他查询,只是日期识别出了问题。
最佳答案
您有多种选择:
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 比较 Access 中保存的日期与今天的日期不起作用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32369704/