restoreform.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 26 行

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