主题：SQL语句中的日期可以用inputvalue让用户自己输入吗？

请问专家：SQL语句中的日期可以用inputvalue让用户自己输入吗？

Where [发薪年月]=#2017-08-01#

SQL语句中的日期可以用inputvalue让用户自己输入吗？

可以的。比如

Dim d As Date = date.today
If InputValue(d, "提示", "请输入值") Then
    Dim q As new QueryBuilder
    q.TableName = "查询"
    q.SelectString = "Select * from {表A} where 日期 = #" & d & "#"
    q.Build
    MainTable = Tables("销量统计")
End If