恢复按钮的代码
If MessageBox.Show( "恢复数据库操作将覆盖数据库,确定是否覆盖?","提示",MessageBoxButtons. YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "备份文件|*.bak" '设置筛选器
dlg. title= "数据恢复"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim cmd,cmd1 As New SQLCommand
cmd.C
cmd1.C
cmd.CommandText = "use master;drop database" & "[" & dlg.filename & "]" '清空指定表数据，是不是这块有问题
cmd.ExecuteNonQuery()
cmd1.CommandText ="use master; RESTORE DATABASE 测试 FROM DISK='"& dlg.filename &"' With REPLACE;"
cmd1.ExecuteNonQuery()
MessageBox.Show("数据恢复完成!!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Question)
End If
Else
Return '点击否终止代码的执行
End If
[此贴子已经被作者于2015/8/27 16:45:35编辑过]
加好友 
发短信
Post By：2015/8/27 16:44:00 [显示全部帖子]
