回复人:Jackyin(农民) (2001-5-11 18:19:00)  得20分 
Private Sub Command2_Click()
Dim conn As New ADODB.Connection
Dim strSql As String
Dim strConn As String
Dim fileName As StringOn Error GoTo errEnd
strConn = "driver={sql server};server=wdawei;uid=sa;pwd="
conn.Open strConn
strSql = "RESTORE DATABASE orientTv FROM DISK='C:\WINDOWS\Desktop\最新东方台\DbOrientTv" & CStr(Format(Date, "m-d")) & ".bak'"
Label1.Visible = True
Label1.Caption = "正在恢复数据库,请稍侯......"
DoEvents
conn.Execute strSql
DoEvents
Label1.Caption = ""
DoEvents
conn.Close
Set conn = Nothing
MsgBox "导入本机数据库完成!", vbOKOnly Or vbInformation, "导入成功"
Exit SuberrEnd:
Label1.Caption = ""
MsgBox Err.Description, vbInformation, "Error"
conn.Close
Set conn = Nothing
Exit Sub
End Sub  以时间为备件文件名,这样就不会重复.

解决方案 »

  1.   

    呵呵,如果不是用代码,直接用SQL该怎么处理呢,各位可以帮帮我吗....
      

  2.   

    在SQL 的mmc 中建立定时的自动备份。
    或利用isql 执行“backup database aa to disk='c:\'”并利用Schedule 来达到定时的目的。
      

  3.   

    to : luckyhqh(luckyhqh) :
    在MMC中怎样定义呢,可以讲详细点么
      

  4.   

    to:  mmzxg(超级笨蛋) 
      在 ms sql server 7.0 的EnterPrise manager 下:
         进入后 Manager 下的 Backup 点击右键 ‘Backup a new database... ’
         注意选中 Schedule 并定义好 备份的时间。
    不过,我想 还是用isql 执行“backup database aa to disk='c:\'”并利用Schedule 比较好点。
     
      

  5.   

    使用SQL SERVER ENTERPRISE MANAGER /工具/数据库维护计划器 
    的方法最简单
      

  6.   

    还要记得,要把 sql server agent设为每次启动时自动运行。这家伙好象一个定时器,不开的话,再多的计划也没用。
      

  7.   

    TO luckyhqh(luckyhqh) :就这样就可以得到了不同的文件名了么,好象它要手工设置文件名的呀,那不一样不是自动了。
    TO : wrjun(wrjun) 
    怎么设定SQL SERVER AGENT自动运行
      

  8.   

    那就用VB编个小程序,在Schedule(NT)或计划任务(windows) 中运行。
      

  9.   

    to rushing(勇敢的心) : DoEvents就是做事啦,呵呵。
      

  10.   

    如果是SQLSERVER的话建议看看SQLSERVER AGENT帮助。
      

  11.   

    看了,还是没什么收获呀,各位,HELP!!!!!
      

  12.   

    在SQL里建立一个任务不就结了吗。lcooky(今夜无雪)指着 mmzxg(超级笨蛋) 说:“大家快看呀,好笨的恐龙耶~~~~”