基于 Excel 文件数据库上的日期的 SQL 查询

Question

我使用 ADO 对 Excel 文件数据库执行 SQL 查询，但在使用以下查询时遇到问题：

strQuery = "SELECT NUM,CREATION_DATE,CREATOR,STATE,LAST_MODIFICATION_DATE,LAST_MODIFIER,CATEGORY,MODEL_LABEL FROM [MySheet$] WHERE CREATION_DATE<='" + EndDateTextBox.Value + "' AND CREATION_DATE>='" + BeginDateTextBox.Value + "'"

查询已执行，但是当我在 BeginDateTextBox 中输入 2010-01-01 和在 EndDateTextBox 中输入 2016-01-01 时，我没有得到任何结果，这是不正常的，因为我的数据库中的日期在 2014 年和2015.

这是我的数据库的 CREATION_DATE 列的屏幕截图：

PS：我知道使用 Excel 文件作为数据库不是最佳做法，但有人告诉我这样做。

Answer 1

您需要将日期转换为值，ADO 无法识别工作表中单元格的格式，只有值适用。所以最终的查询应该是这样的：

SELECT * FROM [MySheet$] WHERE CREATION_DATE <= 42370 AND CREATION_DATE >= 40179

您可以使用这种方法来实现：

Sub test()
Dim DtStart as Long
DtStart = Clng(Cdate("2010-01-01"))
Msgbox DtStart
End Sub

所以，最终的 SQL 查询将是：

strQuery = "SELECT NUM,CREATION_DATE,CREATOR,STATE,LAST_MODIFICATION_DATE,LAST_MODIFIER,CATEGORY,MODEL_LABEL " & _
           "FROM [MySheet$] " & _
           "WHERE CREATION_DATE <= " & CLng(CDate(EndDateTextBox.Value)) & _
           "  AND CREATION_DATE >= " & CLng(CDate(BeginDateTextBox.Value)) 

或者可以是这样的：

strQuery = "SELECT NUM,CREATION_DATE,CREATOR,STATE,LAST_MODIFICATION_DATE,LAST_MODIFIER,CATEGORY,MODEL_LABEL " & _
           "FROM [MySheet$] " & _
           "WHERE CREATION_DATE BETWEEN " & _ 
            CLng(CDate(BeginDateTextBox.Value)) & " AND " & CLng(CDate(EndDateTextBox.Value)) 

这里是测试结果：

Answer 2

convert(datetime,CREATION_DATE,103) >= convert(datetime, BeginDateTextBox.Value ,103)

对 begindatetextbox 和 enddatetextbox 都这样做

这应该将您的日期都转换为 dd/mm/yyyy 格式（不是 100% 确定它是否适用于您可能需要先转换为字符串的日期），以便您可以以相同的格式比较它们

这是直接的 sql（begindatetextbox.value 除外），所以它不会像这样工作，你必须在代码中构建你的字符串，最终看起来像这样