SQL来比较在今天的date访问date不能正常工作

我试图运行一个查询，作为VBA代码的一部分，它查看包含今天的date在date字段中的所有logging，并将它们写入logging集。 下面的SQL语句不起作用。 它不会返回任何logging，即使DateEntered字段定义了具有今天date的logging。

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 

我一直使用这种forms的数据库连接，它在我的代码中用于其他查询，这只是date识别的错误。

Answer 1

你有几个select：

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

要么：

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