📄 restoreform.vb
字号:
Imports Microsoft.SqlServer.Management.Smo
Public Class RestoreForm
Public rServer As Server
Private Sub btBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBrowse.Click
OpenFileDialog1.DefaultExt = "bak"
OpenFileDialog1.Filter = "(数据库备份文件)*.bak|*.bak"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
MsgBox("请输入要备份的文件")
Exit Sub
End If
End Sub
Private Sub btRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRestore.Click
Dim bdi As New BackupDeviceItem(OpenFileDialog1.FileName, DeviceType.File)
Dim rt As New Restore
rt.Database = tbDbName.Text
rt.ReplaceDatabase = True
rt.Devices.Add(bdi)
MsgBox("数据库恢复完毕")
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -