我们在开发企业管理系统中,常会遇到这样和那样的问题,其中比较多的是数据库的备份和还原。我们总不能让用户自己操作数据库来进行备份,一是安全问题,二是这个是对用户的不合理要求(想不到更好的词)。
下面以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