sql数据库定时备份.rar

利用网络共享目录，复制文件，利用数据库指令备份数据库文件。可用于小型网站服务器的备份。设定每天定时操作！省事 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