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

2025-05-18 05:06:02
推荐回答(1个)
回答(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

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