1个回答
展开全部
在窗体内加一个timer控件, Interval设置为1000, 然后再加入如下代码:
Private Sub Timer1_Timer()
If Hour(time) = 16 And Minute(time) = 35 And Second(time) = 0 Then
'这儿加入您备份数据的代码
End If
End Sub
这样就可以在每天16:35:00时自动备份数据了.
至于您的数据是什么? 如果是文件就采用文件复制的代码. 即 CreatObject 这种.
Private Sub Timer1_Timer()
If Hour(time) = 16 And Minute(time) = 35 And Second(time) = 0 Then
'这儿加入您备份数据的代码
End If
End Sub
这样就可以在每天16:35:00时自动备份数据了.
至于您的数据是什么? 如果是文件就采用文件复制的代码. 即 CreatObject 这种.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询