备份恢复数据库-中谷项目.pdf

文档介绍：谷海燕廊坊师范学院信息技术提高班第九期
当一个人的积极性被调动起来的时候,他的正能量足以颠覆你的世界!
备份恢复数据库-中谷项目
分类: 数据库 2013-12-20 10:38 202人阅读评论(7) 收藏举报
备份数据库还原数据库
         每个系统都应该有数据库的备份和还原功能,以防各种情
况下的数据库损坏造成不可挽回的损失。这个功能挺简单,但在代码实现过
程中也多多少少遇到了些问题,我把错误都总结了出来,供大家参考学习。
下面先给出正确的代码实现:
Imports
Public Class Form1
'备份数据库
'BACKUP DATABASE Test TO DISK='' WITH Format sql语句
Private Sub btnBackup_Click(sender As Object, e As EventArgs) Handles
Dim conn As SqlConnection
conn = New SqlConnection("Data Source=.;Initial Catalog=test3;User ID=sa;Password=123456")
Dim cmd As mand
Dim path As String
'选择备份路径
()
path =
If path = Nothing Then
("文件名不能为空", "系统提示")
Exit Sub
End If
'执行sql命令语句,备份数据库
cmd = New mand("BACKUP DATABASE test3 TO DISK='" & path & "\backup' WITH format,BACKUP LOG WITH NORECOVERY", conn)
()
Try
()
Catch ex As Exception
MsgBox(, , "系统提示")
Exit Sub
End Try
MsgBox("备份成功")
()
End Sub
'还原数据库
Private Sub btnRecovery_Click(sender As Object, e As EventArgs) Handles
If MsgBox("真的要还原吗?数据会恢复到最近备份的数据!", , "系统提示") = Then
As New SqlConnection
1 As New SqlConnection
Dim mydr As SqlDataReader
Dim str As String
1
Dim tmpConnectio