在VB6.0中如何实现SQLSERVER实时的备份和恢复

Question

各位大虾，小虾在进行VB＋SQLSERVER进行开发时遇一问题，特向各位大虾HELP，请帮助，谢谢！
问题：
如何在代码中实现实时在线的备份和恢复，使用SQLSERVER自带的存储过程总是提示有排它锁。急急

Answer 1

备份:
'引用ADO
Private Sub Command1_Click()
    Dim backUpFileName As String
    With CommonDialog1
        .DialogTitle = "保存的文件名"
        .Filter = "*.SQL|*.SQL"
        .InitDir = App.Path
        .ShowSave
        backUpFileName = CommonDialog1.FileName
    End With    Dim cn As New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登录名;Password=密码;Initial Catalog=数据库;Data Source=Sql服务器别名"
    cn.CursorLocation = adUseClient
    cn.Open
    cn.Execute ("backup database 数据库 to disk='" & backupdilename & "'")
End Sub
'-------------------------------
恢复:
Private Sub Command2_Click()
    Dim backUpFileName As String
    With CommonDialog1
        .DialogTitle = "保存的文件名"
        .Filter = "*.SQL|*.SQL"
        .InitDir = App.Path
        .ShowSave
        If Dir(CommonDialog1.FileName) <> "" Then
            backUpFileName = CommonDialog1.FileName
        Else
            MsgBox "文件不存在！"
            Exit Sub
        End If
    End With
    
    Dim cn As ADODB.Connection, rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登录名;Password=密码;Initial Catalog=master;Data Source=Sql服务器别名" '借助master数据库来恢复
    cn.CursorLocation = adUseClient
    cn.Open
    rs.Open "select spid from sysprocesses where dbid=db_id('你的数据库名)", cn
    Do While Not rs.EOF
      cn.Execute "kill  " & rs("spid")   '杀掉sql服务器的所有连接，否则会出现：数据库正在使用，无法完成排它操作等等，很重要
      rs.MoveNext
    Loop
    cn.Execute ("restore database 数据库名 from disk='" & backUpFileName & "' with replace")
End Sub

Answer 2

也可以用SQL自动备份功能来实现：
打开“企业管理器”，右键盘点你的数据库，点“所有任务”里的“维护计划”，按照向导来做就成了，可以定时备份，删除早于某时间的数据。