SqlServer2000 备份控件

Rai Shahid

1.80/5 (3投票s)

2008 年 9 月 24 日

CPOL

21695

247

此控件允许用户备份 SqlServer。

下载 VBUserControls - 125.62 KB

引言

此控件将允许用户备份 SQLServer2000

背景

我第一次制作 SQLServer2000 备份实用工具时遇到了问题。
在阅读了许多文章后，我最终创建了一个用于此目的的窗体

但是，当我开始下一个项目时，我又遇到了问题，我通过将现有的代码和控件复制粘贴到新窗体中来解决它。
然后，我决定为此目的准备一个用户控件。现在，我可以轻松地将此控件拖放到我需要的窗体上。

使用代码

首先，创建一个用于连接字符串的属性。

Public Property ConnectionString() As String
    Get
        Return _ConnectionString
    End Get
    Set(ByVal value As String)
        _ConnectionString = value
    End Set
End Property


在按钮单击事件中编写以下代码

Try
    Dim conn As New OleDbConnection(_ConnectionString) 
    Dim cm As New OleDbCommand


    cm.CommandText = "backup database master to disk='" & Me.uitxtLocation.Text & "\" & Me.uitxtFileName.Text & ".BAK '"
    cm.Connection = conn
    conn.Open()
    cm.ExecuteNonQuery()
    conn.Close()
    MsgBox("Backup done successfully")


Catch ex As Exception
    MsgBox("An error occured while taking backup: " & ex.Message)
End Try       

历史

2008年9月25日 首次上传

2008年9月25日 添加图片