VB.NET DMO SQL SERVER备份恢复

 

VB.NET DMO SQL SERVER 备份恢复

 

Public Class Form1

 

    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        ' 该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    ' 窗体重写处置以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    ' 注意：以下过程是 Windows 窗体设计器所必需的
    ' 可以使用 Windows 窗体设计器修改此过程。
    ' 不要使用代码编辑器修改它。
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.ProgressBar1.Location = New System.Drawing.Point(8, 8)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(384, 23)
        Me.ProgressBar1.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Location = New System.Drawing.Point(160, 40)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 24)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = " 备份 "
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.CornflowerBlue
        Me.ClientSize = New System.Drawing.Size(400, 74)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.ProgressBar1})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "Form1"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.ResumeLayout(False)

    End Sub

#End Region

    ' 此处由于嫌麻烦未按属性来处理 …… 应改进
    Public sa As String                 
    Public passerd As String
    Public file As String
    Public database As String
    Public sqlserver As String

    Public flag As Boolean = True

    Private WithEvents PBackup As New SQLDMO.Backup()
    Private WithEvents oRestore As New SQLDMO.Restore()

 

    ' Property SQLServerName() As String
    '    Get
    '       Return sqlserver
    '   End Get
    '   Set(ByVal Value As String)
    '      sqlserver = Value
    '   End Set
    '  End Property

    ' 备份
    Public Function BACKUP(ByVal DATABASENAME As String, ByVal SQLServe As String, ByVal ROLE As String, ByVal PASSWORD As String, ByVal backfilename As String)

        Me.ProgressBar1.Value = 0
        Me.BackColor = System.Drawing.Color.RoyalBlue
        Me.Button1.Text = " 备份 "
        Me.Show()
        On Error GoTo ErrHandler

        Dim SQLSER As New SQLDMO.SQLServer

        SQLSER.Connect(SQLServe, ROLE, PASSWORD)
        PBackup.Database = DATABASENAME

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor

        PBackup.Files = backfilename
        PBackup.SQLBackup(SQLSER)

        SQLSER.DisConnect()
        SQLSER = Nothing
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        Exit Function

ErrHandler:

        MsgBox(" 备份失败，请检查源数据库是否存在、角色权限是否足够或 SQL SERVER 服务是否被打开 " & Chr(13) & " 信息： " & Err.Description)
        Resume Next
    End Function

    ' 恢复
    Public Function RSTORE(ByVal DATABASENAME As String, ByVal SQLServe As String, ByVal ROLE As String, ByVal PASSWORD As String, ByVal restfilename As String)

 

        Me.ProgressBar1.Value = 0

        Me.BackColor = System.Drawing.Color.OliveDrab
        Me.Button1.Text = " 恢复 "
        Me.Show()
        On Error GoTo ErrHandler

        Dim SQLSER As New SQLDMO.SQLServer

 

        SQLSER.Connect(SQLServe, ROLE, PASSWORD)

        oRestore.Database = DATABASENAME
        oRestore.Files = restfilename

        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        oRestore.SQLRestore(SQLSER)
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

 

        SQLSER.DisConnect()
        SQLSER = Nothing

 

        Exit Function

ErrHandler:
        MsgBox(" 恢复失败，请检查恢复数据库是否存在、角色权限是否足够或 SQL SERVER 服务是否被打开 " & Chr(13) & " 信息： " & Err.Description)
        Resume Next
    End Function

    Private Sub PBackup_Complete(ByVal Message As String) Handles PBackup.Complete

        Me.ProgressBar1.Value = 100
        PBackup = Nothing
        Me.oRestore = Nothing
        Me.Close()

    End Sub
    Private Sub PBackup_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles PBackup.PercentComplete
        Me.BackColor = System.Drawing.Color.RoyalBlue

        Me.ProgressBar1.Value = Percent
        If Percent = 100 Then

            Me.ProgressBar1.Value = 100
            PBackup = Nothing
            Me.oRestore = Nothing
            Me.Close()

        End If
    End Sub
    Private Sub oRestore_Complete(ByVal Message As String) Handles oRestore.Complete

        Me.ProgressBar1.Value = 100
        PBackup = Nothing
        Me.oRestore = Nothing
        Me.Close()
    End Sub
    Private Sub oRestore_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles oRestore.PercentComplete
        Me.BackColor = System.Drawing.Color.OliveDrab

        Me.ProgressBar1.Value = Percent
        If Percent = 100 Then

            Me.ProgressBar1.Value = 100
            PBackup = Nothing
            Me.oRestore = Nothing
            Me.Close()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If flag = True Then

            Me.BACKUP(Me.database, Me.sqlserver, Me.sa, Me.passerd, Me.file)

        Else
            Me.RSTORE(Me.database, Me.sqlserver, Me.sa, Me.passerd, Me.file)

        End If

    End Sub

End Class