.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
VB.NET DMO SQL SERVER备份恢复

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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




相关文章

相关软件