Question

vb时间查找?

Private Sub Timer1_Timer()
Dim Rs As ADODB.Recordset
Set Rs = ExcSQL("select * from 教室 where 下课时间='" & Format(Now, "HH:MM") & "'")
While Not Rs.EOF
Rs.Fields("下课时间") = ""
Rs.Fields("状态") = "下课"
Rs.MoveNext
Wend
Rs.Close
End Sub

Timer1.Interval=1000，怎么查找不到啊？
Set Rs = ExcSQL("select * from 教室 where 下课时间 between '" & Format(Now, "HH:MM") & "'") ，也查找不到？

Answer 1

Set Rs = ExcSQL("select * from 教室 where Format(下课时间,'hh:mm')=Format(Now(), 'hh:mm')")

适用于ACCESS数据库