要在原来的基础上加个定时提醒,我用timer控件做的,有个设置定时提醒时间及内容的窗体,添加时间及内容到数据库,东西很小用的Access数据库
时间是类型 时间/日前在主界面上放一个timer控件,从数据库中查找与当前时间相同的数据,有相同的把窗体Show出来看到提示内容Private Sub timRemind_Timer()
    
    '提醒
    Dim sqlRemind As String
    Call OpenConn
    
    sqlRemind = "select 1 from Gl_Remind where Remind_time ='" & Time & "'"    -----这个SQL语句该怎么写,我这样写
  
    dbRest.Open sqlRemind, dbConn, 1, 3
    If Time = dbRest.Fields("Remind_time") Then             ---这dbRest.Fields("Remind_time")我前面数据都插进去了,到这怎么提示在对应序列未找到项目
        frmReminView.Show
    End If
    Call CloseConn
    
End Sub