Question

Access数据库怎么用sql语句创建每隔一个时间段执行更新表的作业?

Access数据库怎么用sql语句创建每隔一个时间段执行更新表的作业？ 能不能像sql server那样，定时执行作业

Answer 1

ACCESS数据库不支持自动化，但是可以通过ACCESS窗体VBA编程实现定时执行某个更新操作。

下面举例，利用窗体"定时器触发"事件过程，每天凌晨1点将数据表的A字段值增加10：

编写窗体打开事件过程：

Private Sub Form_Open(Cancel As Integer)
    '设置窗体计时器间隔为1秒
    Me.TimerInterval = 1000
End Sub

编写窗体“计时器触发”事件过程：

Private Sub Form_Timer()
    Dim tm As String
    tm = Format(Now(), "hh:nn:ss")
    If tm > "01:00:59" Then Me.TimerInterval = 1000 '设置窗体计时器间隔恢复为1秒
    If tm >= "01:00:00" And tm <= "01:00:59" Then
        Dim strSql As String
        strSql = "update t1 set a=a+10"
        CurrentProject.Connection.Execute strSql
        Me.TimerInterval = 60000 '设置窗体计时器间隔为60秒，防止一天执行多过一次
    End If
End Sub

注意：窗体必须保持打开状态才能起到定时执行数据表更新操作