Question

当我单击Excel中的按钮时，我在下面的查询中检索来自Access DB的数据。它根据特定单元格中的日期提取数据。这很好用。但是，查询无法基于＆＃34;大于或等于＆＃34;条件。它只会提取日期＆＃34;等于＆＃34;那个单元格参考中的内容。

Dim N As Date
N = Sheets("sheet1").Range("h3")
rs.Open "SELECT SID, Requestor, Comments, Updated_Date, Updated_By FROM CL WHERE datevalue(Updated_Date) >= '" & N & "'", cn

Answer 1

datevalue(Updated_Date)返回日期/时间值。因此将其与日期/时间值而不是字符串进行比较。使用#个字符来分隔日期/时间值。

Dim strSelect As String
strSelect = "SELECT SID, Requestor, Comments, Updated_Date, Updated_By " & _
    "FROM CL WHERE datevalue(Updated_Date) >= " & Format(N, "\#yyyy-m-d\#")
rs.Open strSelect, cn

VBA / MS ACCESS / SQL查询大于或等于

1 个答案: