利用网络共享目录,复制文件,利用数据库指令备份数据库文件。可用于小型网站服务器的备份。设定每天定时操作!省事
Private Sub Form_Load()
TMFile = Format(Now(), "yyyymmddhhmmss")
Me.Visible = False
Timer1.Interval = 60000
isback = False
ConnsString = "driver={SQL Server};server=192.168.0.20;database=master;uid=sa;pwd=;connection=adConnectAsync;"
ConnsString2 = "driver={SQL Server};server=192.168.0.10;database=master;uid=zjl;pwd=zjl;connection=adConnectAsync;"
End Sub
Private Sub Timer1_Timer()
TMFile = Format(Now(), "yyyymmddhhmmss")
t = Format(Now, "hhmm")
If t = "1650" Then
BackIt
isback = True
End If
If t = "1651" Then
If isback = False Then
BackIt
End If
isback = False
End If
End Sub
评论0
最新资源