用VB备份和还原SQL Server数据库

我们在开发企业管理系统中，常会遇到这样和那样的问题，其中比较多的是数据库的备份和还原。我们总不能让用户自己操作数据库来进行备份，一是安全问题，二是这个是对用户的不合理要求（想不到更好的词）。

下面以VB进行SQL Server数据库的备份为例简单介绍一下。这里只介绍完全备份和还原，其他内容请参阅附件内容。

数据库备份源代码:

 Private Sub CmdBackup_Click()

    '声明ADODB链接对象
    Dim conn As New ADODB.Connection
    '声明字符串，用来保存连接字符串，可以通过.udl文件来生成，或者使用Adodc控件生成。
    Dim CnStr As String
    '声明字符串，用来保存sql语句
    Dim Sql As String

    '初始化连接字符串
    CnStr = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=(local)"
    '实现备份功能的sql语句，这里有点要注意的：打开链接时不能使用我们要备份的数据库，这里我打开连接是用的是master数据库，备份的是mydata数据库。
    Sql = "backup database mydata to disk='" & App.Path & "/bak/mydata.bak" & " '"

    conn.Open CnStr        '打开链接
    conn.Execute Sql       '执行Sql语句进行备份
    conn.Close             '关闭链接
End Sub

数据库还原源代码:

Private Sub CmdRestore_Click()
    Dim conn As New ADODB.Connection
    Dim CnStr As String
    Dim Sql As String
   
    CnStr = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=(local)"
    Sql = "restore database mydata from disk='" & App.Path & "/bak/mydata.bak" & " '"
    conn.Open CnStr
    conn.Execute Sql
    conn.Close
End Sub

附件：http://download1.csdn.net/down3/20070609/09150001488.txt