使用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

1.

使用mssql

server的解决办法示例:

用backup

database备份，restore

database还原

备份:

如果是adoquery，先设置好数据库的连接，将sql设为:

BACKUP

DATABASE

databasename

TO

DISK

=

'c:\data.bak'

然后调用adoquery的ExecSQL即可备份。注意是备份到服务器上。

还原:

将sql设为:

RESTORE

DATABASE

databasename

FROM

DISK

=

'c:\data.bak'

则execsql可以还原，同样是服务器上的文件

2.

使用access

数据库:

Access数据库备份，不需要任何控件，只需要使用

CopyFile

函数进行数据库文件的复制备份就可以了，前提是把任何与ACCESS数据库联接全部关闭掉。

还原也是同样的道理，把数据库联接全部关闭掉，然后再把备份数据库文件

copyfile

到目标位置进行覆盖就可以了。

---