为助一下关一查询ACCESS时间段的有关问题

为助一下关一查询ACCESS时间段的问题

 
Call OpenConn
i = 1
    rs.Open SQL, cn, 1, 1
    On Error Resume Next
    Do While Not rs.EOF
        Set addLVW = Me.ListView10.ListItems.Add(, , i, , 1)
            addLVW.SubItems(1) = rs!交款日期
            addLVW.SubItems(2) = rs!客户
            addLVW.SubItems(3) = rs!交款性质
            addLVW.SubItems(4) = rs!房号
            addLVW.SubItems(5) = rs!会员号
            addLVW.SubItems(6) = rs!交款金额
            addLVW.SubItems(7) = rs!是否交款
            addLVW.SubItems(8) = rs!经手人
            rs.MoveNext
            i = i + 1
    Loop
    Me.labCOUNT.Caption = "共收款" & rs.RecordCount & "笔"
Call CloseConn

上面这窜代码，是一个查询历史交款信息的代码
 其中LSRQ1 和 LSRQ2的数据来源于两个DTPicker控件
这个在SQL server上可以正常调用，但是换成access数据库时就报错
出现：
实时错误'-2147217913(80040e07)
标准表达式中数据类型不匹配
肯定是 “SQL = "select * from payment where 交款时间> '" & LSRQ1 & "' and 交款时间< '" & LSRQ2 & "' and 是否交款 = '已交款'"  ”这一句出错，这一句在ACCESS数据库中该如何运用啊？

SQL = "select * from payment where 交款时间> #" & LSRQ1 & "# and 交款时间< #" & LSRQ2 & "# and 是否交款 = '已交款'"

查看更多 下一篇