首页 > 解决方案 > VBA SQL Access 数据库查询日期语句

问题描述

我正在使用 VBA 连接到 Access 数据库。运行查询的日期条件时遇到一些问题。

我有一个带有日期的单元格(C7),我想根据该日期查询结果,下面是我的代码:

    'Query1 Populate
    query = "SELECT * FROM " & TABLE & " WHERE ReportRunDate = " & _
            Chr(35) & Format(Sheet1.Range("C7").Value, "yyyy-mm-dd") & Chr(35)
    MsgBox query
    Set Rs1 = Conn1.Execute(query)
    MsgBox Rs1.RecordCount

没有给出错误,但没有给出结果,如果我从变量查询中获取输出并直接运行它来访问结果就在那里。可能会发生什么?

标签: sqlvbams-access-2010adoadodb

解决方案


尝试不同的日期格式:

    'Query1 Populate
    query = "SELECT * FROM " & TABLE & " WHERE ReportRunDate = #" & _
            Format(Sheet1.Range("C7").Value, "mm/dd/yyyy") & "#"
    MsgBox query
    Set Rs1 = Conn1.Execute(query)
    MsgBox Rs1.EOF

推荐阅读