Question

这就是我现在正在做的长期切割

Set rs = db.OpenRecordset("SELECT * FROM COMPUTER_LIST")
With rs
    Do Until .EOF
        DateDiffValue = DateDiff("d", CDate(!created_date), Date)
        If DateDiffValue > 10 And DateDiffValue < 21 Then
            'Display the Record Here using Listview
        End If
        .MoveNext
    Loop
End With

如何进行快捷查询？

Set rs = db.OpenRecordset("SELECT * FROM COMPUTER_LIST
    WHERE created_date > Datediff('d', created_date,Date()) AND\
          created_date < DateAdd('d', 20,created_date)")

Answer 1

我根本不理解帖子的标题。你应该写一篇文章，就像你试图向孩子解释你的问题一样。不只是因为孩子是一些最好的程序员。资本化和标点符号也很重要。

您的代码建议您要在10到21天之前选择所有记录。

Dim SQL As String
SQL = "SELECT COMPUTER_LIST.*" & vbNewLine & _
      "FROM COMPUTER_LIST" & vbNewLine & _
      "WHERE (((DateValue([created_date]))>=Date()-20 And (DateValue([created_date]))<=Date()-10));"

Set rs = Db.OpenRecordset(SQL)

显示从使用sql vba访问创建的时间起10天以上的记录

1 个答案: