Office中国论坛/Access中国论坛

标题: 求助:ADO按日期筛选错误 [打印本页]

作者: pyzl 时间: 2008-10-16 10:26
标题: 求助:ADO按日期筛选错误
**日期从10月1号，至15号都有记录，我在窗体1设定DDD为10月11号，但用以下代码会有不正确的日期，10月1号也会选出来，请帮我看看问题出在哪里，先谢谢各位了！
Private Sub Command2_Click()
Dim rsde As New ADODB.Recordset
rsde.Open "select * from 表1 where [日期]>" & ddd & "", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
      Do Until rsde.EOF = True
               If rsde.Fields("日期") > ddd Then
      MsgBox rsde.Fields("日期") & "正确"
         Else
         MsgBox rsde.Fields("日期") & "错误"
         End If
               rsde.MoveNext
         Loop
         rsde.Close
End Sub

作者: kevindeng 时间: 2008-10-16 10:42
日期前面要加#号
rsde.Open "select * from 表1 where [日期]>#" & ddd & "#", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

作者: pyzl 时间: 2008-10-16 10:47
呵呵，我#号加错了地方了，谢谢你！[:50]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)