vba - 如何使用 OLE for Excel 为日期添加 WHERE 过滤器？

Question

我正在尝试创建一个具有使用日期的 WHERE 子句的 SQL 查询。我正在使用 OLE 查询 Excel 工作表。使用 CAST 或 CONVERT 等函数不起作用

Answer 1

执行此操作的正确方法是将日期括在 # 中。为避免区域问题，最好的方法是为日期传递 ISO 格式。只需考虑一些“想要的数据库”（我无法调用 Access a db）只是在查询中接受美国日期文字。例如（使用 ISO 日期格式）

Function WriteQuery(d as Date) as String

  WriteQuery = "SELECT * FROM Sometable WHERE DateColumnName < " & "#" & Format(d,"YYYY-MM-DD") & "#"

End Function