使用VB.net实现sql数据库的备份与恢复代码

Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click 备份数据库 BACKUP DATABASE Test TO DISK= C:\Backup WITH Format Dim cn As SqlConnection Dim cm As SqlCommand cn = getDB() cm = New SqlCommand( BACKUP DATABASE JXbase TO DISK= C:\Backup WITH Format cn) cn Open() cm ExecuteNonQuery() MsgBox( 备份成功 ) cn Close()

End Sub

恢复 Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) Handles Button Click Dim cn As New SqlConnection Dim cn As New SqlConnection Dim mydr As SqlDataReader Dim str As String

Dim tmpConnectionString As String = Data Source=JJKInitial Catalog=masterIntegrated Security=True cn ConnectionString = tmpConnectionString cn ConnectionString = tmpConnectionString cn Open() cn Open() Dim cm As SqlCommand = New SqlCommand( select spid from master sysprocesses where dbid=db_id( JXbase ) cn) mydr = cm ExecuteReader()

Dim cm As SqlCommand = New SqlCommand() cm Connection = cn

While (mydr Read()) 杀死进程

str = kill &mydr( spid ) ToString() cm CommandText = str cm CommandType = CommandType Text Application DoEvents() cm ExecuteNonQuery() 杀进程 End While mydr Close() cm = New SqlCommand( RESTORE DATABASE JXbase FROM DISK= C:\Backup cn) 恢复备份 cm ExecuteNonQuery() MsgBox( 恢复成功成功 ) cn Close() cn Close()

lishixinzhi/Article/program/net/201311/12901

noformat：

指定备份 *** 作在用于此备份 *** 作的介质卷上保留现的有介质标头和备份集。这是默认行为。

NOINIT:

表示备份集将追加到指定的介质集上，以保留现有的备份集。如果为介质集定义了介质密码，则必须提供密码。NOINIT

是默认设置。

SKIP：

禁用备份集的过期和名称检查，这些检查一般由

BACKUP

语句执行以防覆盖备份集。

norewind：

指定在备份 *** 作之后

SQL

Server

让磁带一直处于打开状态。在对磁带执行多个备份 *** 作时，可以使用此选项来帮助改进性能。

nounload：

指定在

BACKUP

*** 作之后磁带将继续加载在磁带机中。

stats：

每当另一个r

percentage

完成时显示一条消息，并用于测量进度。如果省略

percentage，则

SQL

Server

在每完成

10%

就显示一条消息。

STATS

选项报告截止报告下一个间隔的阈值时的完成百分比。这是指定百分比的近似值；例如，当

STATS=10

时，如果完成进度为

40%，则该选项可能显示

43%。对于较大的备份集，这不是问题，因为完成百分比在已完成的

I/O

调用之间变化非常缓慢。

其实要写备份脚本时，才有必要瞭解多些参数，平常的应用中，很少用到这麼多参数的。

要更详细的信息，可以到微软的网站上去查找。

最简单的SQL语句：备份与还原SQL Server自带的数据库

在服务器上备份：

use Northwind

Backup database Northwind to disk='d:\Northwind_bak.dat' with init

RESTORE DATABASE NorthNwind FROM DISK = 'd:\Northwind_bak.dat'

备份数据库这一 *** 作在客户机上实现

客户机：machine

共享目录：share （要完全共享，可写权限）

backup:

bakcup database dbname to disk='\\machine\share\data.bak' with init

\\machine\share目录要有写权限。

restore:

restore database dbname from disk='\\machine\share\data.bak'

//

备注：restore 语句有很多的选项，可以查看企业管理器的在线帮助。如下

with replace, move 'dbname_dat' to 'c:\mssql7\data\dbname.mdf',

move 'dbname_log' to 'c:\mssql7\data\dbname.log'

其中'c:\mssql7\data\'是服务器的目录，这点要注意

备份与还原数据库的相关内容：

SQL Server 7.0数据库备份有四种：完全数据库备份、增量数据库备份、事务日志备份、数据库文件或文件组备份。在数据库崩溃时，应该首先尝试备份事务日志（这一点很重要），然后恢复最后的数据库备份、该次数据库备份后的所有增量备份，最后恢复事务日志备份，这样可以将数据库恢复到崩溃前的状态。

备份是定期的，而不是实时的，所以利用备份并不能完全恢复数据库，它只能将数据库恢复到制作备份的那一刻 ...... 数据库日志是实时的，他忠实的记录下所有对数据库的更新 *** 作。因此，当磁盘出现故障造成数据库损坏时，就可以首先利用备份恢复数据库（大部分数据），然后运行数据库日志，即将备份后所做的 *** 作重新在做一遍，从而将数据库完全恢复。

--备份完整的数据库---------------------------------------------------------------

//创建一个备份设备：

1. Create the backup device for the full MyNwind backup.///

USE master

EXEC sp_addumpdevice 'disk', 'MyNwind_2', 'c:\mssql7\backup\MyNwind_2.dat'

2. Back up the full MyNwind database.

BACKUP DATABASE MyNwind TO MyNwind_2

--备份数据库的日志---------------------------------------------------------------

--1. Create the log backup device.

USE master

EXEC sp_addumpdevice 'disk', 'MyNwindLog1', 'c:\mssql7\backup\MyNwindLog1.dat'

--2. Update activity has occurred before this point. Back up the log of the MyNwind database.

BACKUP LOG MyNwind TO MyNwindLog1

try

AdoQuery1.Close

AdoQuery1.SQL.Clear

AdoQuery1.SQL.Add('backup database pubs')

AdoQuery1.SQL.Add('to disk='+''''+edtPath.Text+'''')

AdoQuery1.ExecSQL

except

ShowMessage('备份数据库失败！')

exit

end

SQL server的备份

=========================================================================

=========================================================================

备份：

with adocommand_restore do//用ADocommand控件

begin

CommandText:='use Master'//

Execute

CommandText:='execute sp_helpdevice'//系统存储过程

Execute

CommandText:='backup database '+'db_name'+' to disk='''+FileName+''' with init'//这行应当是这样

Execute

CommandText:='Use '+'db_name'//这行应当是这样

Execute

application.MessageBox('已经成功备份数据库','数据库备份',MB_OK + MB_ICONINFORMATION)

end

恢复：

with adocommand1 do//用AdoCommand控件

begin

CommandText:='use Master'

Execute

CommandText:='execute sp_helpdevice'

Execute

CommandText:='Restore database '+'db_name'+' From disk='''+'c:\data1.bak'+''' with replace'//这行应当是这样

Execute

CommandText:='Use '+'db_name'//这行应当是这样

Execute

application.MessageBox('已经成功恢复数据库','数据库恢复',MB_OK + MB_ICONINFORMATION)

end

*注：db_name指数据库的名称

---