实时提醒功能

Question

数据库表如下
1 老大 2009-09-12 8：00
2 老二 2009-09-12 9：00
3 老三 2009-09-12 10：00设置一个提醒功能窗体，读取数据库时间，然后提前15分钟弹出窗体。窗体内容为：还有15分钟老大就应该报道。怎么实现这样的功能呢。以上是举例。数据库内的数据会很多。请高手指教 

Answer 1

用timer控件，每分钟查询数据库，
sql=" select m_name,m_time from mytable where m_time between '" dateadd("m",15,now) & "' and '" & now & "' "显示  s="还有" & datediff("m",rs.fields(1),now) & "分钟" & rs.fields(0) & "就应该报道"

Answer 2

    Strsql = "select * from 预约者 where 预约时间 = '" & "#" & Format(Now, "yyyy/mm/dd hh:mm:ss") & "#" & "'"
    rs.Open Strsql, cn, 3, 3总是提示类型不对，
数据库设置是日期格式！

Answer 3

Strsql = "select * from 预约者 where 预约时间 = #" & Format(Now, "yyyy/mm/dd hh:mm:ss") & "#" 

Answer 4

我是这样写的。
查询记录，例如2009-9-12 10：45每30秒查询一次，如果查询所得的记录RecordCount> 0 则弹出消息窗口。
如果没有记录则退出过程。如果要提前15分钟呢。查询条件应该怎么写呢？

Answer 5

 Strsql = "select * from 预约者 where 预约时间 = #" & Format(dateadd("m",15,Now), "yyyy/mm/dd hh:mm:ss") & "# and between #" & Format(Now, "yyyy/mm/dd hh:mm:ss") & "#" 

Answer 6

Strsql = "select * from 预约者 where 预约时间 between #" & Format(dateadd("m",15,Now), "yyyy/mm/dd hh:mm:ss") & "# and #" & Format(Now, "yyyy/mm/dd hh:mm:ss") & "#" 

Answer 7

Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim Strsql As String
    rs.CursorLocation = adUseClient
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\sAnKes\Desktop\data.mdb;Persist Security Info=False" '
    cn.Open ConnectionString
    Strsql = "select * from 预约者 where 预约时间 between #" & Format(DateAdd("m", 15, Now), "yyyy/mm/dd hh:mm:ss") & "# and #" & Format(Now, "yyyy/mm/dd hh:mm:ss") & "#"
    rs.Open Strsql, cn, 3, 3
    If rs.RecordCount > 0 Then
    frmTip.Show
    Else
    Exit Sub
    End If
    

Answer 8

Strsql = "select * from 预约者 where 预约时间 between #" & Format(DateAdd("n", 15, Now), "yyyy/mm/dd hh:mm:ss") & "# and #" & Format(Now, "yyyy/mm/dd hh:mm:ss") & "#"