Maison > Article > base de données > 备份恢复数据库
每个系统都应该有数据库的备份和还原功能,以防各种情况下的数据库损坏造成不可挽回的损失。这个功能挺简单,但在代码实现过程中也多多少少遇到了些问题,我把错误都总结了出来,供大家参考学习。 下面先给出正确的代码实现: Imports System.Data.SqlClient
每个系统都应该有数据库的备份和还原功能,以防各种情况下的数据库损坏造成不可挽回的损失。这个功能挺简单,但在代码实现过程中也多多少少遇到了些问题,我把错误都总结了出来,供大家参考学习。
Imports System.Data.SqlClient Public Class Form1 '备份数据库 'BACKUP DATABASE Test TO DISK='' WITH Format sql语句 Private Sub btnBackup_Click(sender As Object, e As EventArgs) Handles btnBackup.Click Dim conn As SqlConnection conn = New SqlConnection("Data Source=.;Initial Catalog=test3;User ID=sa;Password=123456") Dim cmd As SqlCommand Dim path As String '选择备份路径 FolderBrowserDialog1.ShowDialog() path = FolderBrowserDialog1.SelectedPath If path = Nothing Then MessageBox.Show("文件名不能为空", "系统提示") Exit Sub End If '执行sql命令语句,备份数据库 cmd = New SqlCommand("BACKUP DATABASE test3 TO DISK='" & path & "\backup' WITH format,BACKUP LOG WITH NORECOVERY", conn) conn.Open() Try cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.OkOnly, "系统提示") Exit Sub End Try MsgBox("备份成功") conn.Close() End Sub '还原数据库 Private Sub btnRecovery_Click(sender As Object, e As EventArgs) Handles btnRecovery.Click If MsgBox("真的要还原吗?数据会恢复到最近备份的数据!", MsgBoxStyle.YesNo, "系统提示") = MsgBoxResult.Yes Then Dim cn As New SqlConnection Dim cn1 As New SqlConnection Dim mydr As SqlDataReader Dim str As String Dim tmpConnectionString As String = "Data Source=.;Initial Catalog=test3;User ID=sa;Password=123456;pooling=false" Dim all As String '获取当前文件名筛选器字符 Me.OpenFileDialog1.Filter = "所有文件(*.*)|*.*|备份文件(*.bak)|*.bak" Me.OpenFileDialog1.ShowDialog() all = OpenFileDialog1.FileName If all = Nothing Then MessageBox.Show("文件名不能为空", "系统提示") Exit Sub End If cn.ConnectionString = tmpConnectionString cn1.ConnectionString = tmpConnectionString cn.Open() cn1.Open() '查询与数据库有关的进程 Dim cm As SqlCommand = New SqlCommand("use master select spid from master..sysprocesses where dbid=db_id('test3')", cn) mydr = cm.ExecuteReader() Dim cm1 As SqlCommand = New SqlCommand() cm1.Connection = cn1 While (mydr.Read()) '杀死进程 str = "kill " & mydr("spid").ToString() cm1.CommandText = str cm1.CommandType = CommandType.Text Application.DoEvents() cm1.ExecuteNonQuery() End While mydr.Close() '使要还原的数据库脱机 cm = New SqlCommand("ALTER DATABASE test3 SET OFFLINE WITH ROLLBACK IMMEDIATE", cn) cm.ExecuteNonQuery() '恢复备份 cm = New SqlCommand("RESTORE DATABASE test3 FROM DISK='" & all & "' WITH REPLACE", cn) cm.ExecuteNonQuery() '使要还原的数据库联机 cm = New SqlCommand("ALTER DATABASE test3 SET ONLINE WITH ROLLBACK IMMEDIATE", cn) cm.ExecuteNonQuery() MsgBox("恢复成功,软件自动关闭,请重新启动本系统!") '关闭数据库连接 cn.Close() cn1.Close() Me.Close() Else Exit Sub End If End Sub End Class
select spid from test3..sysprocesses where dbid=db_id('test3')
在sql语句前添加use master 即
use master select spid from master..sysprocesses where dbid=db_id('test3')
User master表示在master数据库执行该语句,spid指当前用户进程的会话 ID,master是系统数据库,它里面有很多对象,每个对象都有自己的所有者.如果没有指明所有者,系统就默认dbo为对象的所有者.一个对象完整的表达式为:数据库名.所有者.对象, 比如:master.dbo.sysobjects。杀进程前当然要先找出当前该数据库所有的进程了。
直接用SQL语句还原数据库。
方法一:
在还原之前先将该数据库脱机,恢复之后再联机。前后加上两条sql语句即可。
ALTER DATABASE [datebase] SET OFFLINE WITH ROLLBACK IMMEDIATE
ALTER DATABASE [ datebase] SET ONLINE
方法二:
(该方法采取限制访问数据库的方式,因为实际中我们经常多用户访问,所以符合情况时再考虑这种解决方法吧。)
在还原的时候还有其他进程连在上面,导致无法获得独占造成的,可以使用数据库的单用户模式,设置方式:选中要还原的数据库-->属性-->选项-->限制访问,该值从MULTI_USER修改为SINGLE_USER。
以下是GUI的模式,语句比较简单
USE MASTER
GO
ALTER DATABASEeol_tcgroup SET SINGLE_USER WITH ROLLBACK IMMEDIATE;
GO