数据库的备份与还原

最新推荐文章于 2022-07-17 20:07:05 发布

量变决定质变

最新推荐文章于 2022-07-17 20:07:05 发布

阅读量811

点赞数

分类专栏： ————SqlServer

本文链接：https://blog.csdn.net/nangeali/article/details/51436517

版权

————SqlServer 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

数据库的备份与还原

在人力系统中，由于这个软件主要的任务就是统计数据的，所以，需求中有一个从系统中直接对数据库进行备份和还原的功能，注意我们这里使用的是access数据库，是存放在工程文件中的，不是对SQL数据库进行备份和还原，这个备份和还原也适用于文件的备份和还原。

具体的代码实现，也非常的简单，就是两个过程，一个备份一个还原就可以直接实现了，具体的代码如下：

数据库备份

'数据库备份
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '异常处理
        Try
            Dim TargetFileName As String     '目标文件名
            Dim spath As String              '文件备份路径
            Dim ssource As String            '源文件名
            Dim se As DialogResult           '表示窗体关闭后，返回窗口的一个结果

            se = Me.FolderBrowserDialog1.ShowDialog()
            '选择路径
            If se = DialogResult.OK Then
                'MessageBox.Show("你选择的文件夹路径为：" & FolderBrowserDialog1.SelectedPath)
                TargetFileName = FolderBrowserDialog1.SelectedPath & "/HumanResourcesSystem.mdb"

                '如果该路径不为空
                If Microsoft.VisualBasic.Right(Application.StartupPath, 1) <> "/" Then
                    '路径，文件名
                    spath = Application.StartupPath & "/"
                    ssource = spath & "HumanResourcesSystem.mdb"

                    '文件是否已经存在
                    If Dir$(TargetFileName) <> "" Then
                        If MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion) = vbNo Then Exit Sub
                        Kill(TargetFileName)     '删除文件
                        FileCopy(ssource, TargetFileName)    '复制文件
                        'DBEngine.CompactDatabase ssource, TargetFileName    '压缩文件
                        MsgBox("数据备份成功！", vbInformation, "提示")
                    Else
                        FileCopy(ssource, TargetFileName)    '复制文件
                        MsgBox("数据备份成功！", vbInformation, "提示")
                    End If
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub

数据库还原

'数据库还原
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '异常处理
        Try
            Dim TargetFileName As String     '目标文件名
            Dim spath As String              '文件备份路径
            Dim ssource As String            '源文件名
            Dim se As DialogResult           '表示窗体关闭后，返回窗口的一个结果

            OpenFileDialog1.Filter = "数据库文件|*.mdb"
            se = OpenFileDialog1.ShowDialog()
            '选择路径
            If se = DialogResult.OK Then
                'MessageBox.Show("你选择的文件夹路径为：" & FolderBrowserDialog1.SelectedPath)
                TargetFileName = OpenFileDialog1.FileName
                TargetFileName = TargetFileName.Replace("\HumanResourcesSystem.mdb", "/HumanResourcesSystem.mdb")

                '选择的路径是否为空
                If Microsoft.VisualBasic.Right(Application.StartupPath, 1) <> "/" Then
                    '路径，文件名
                    spath = Application.StartupPath & "/"
                    ssource = spath & "HumanResourcesSystem.mdb"

                    '判断数据库中是否已存在该同名数据库
                    If Dir$(ssource) <> "" Then
                        If MsgBox("是否要还原数据,确认替换它！", vbYesNo + vbQuestion, "提示") = vbNo Then Exit Sub
                        Kill(ssource)     '删除文件
                        FileCopy(TargetFileName, ssource)    '复制文件
                        MsgBox("数据还原成功！", vbInformation, "提示")
                    Else
                        FileCopy(TargetFileName, ssource)    '复制文件
                        MsgBox("数据还原成功！", vbInformation, "提示")
                    End If
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub

上面备份和还原是对access数据库来说的，没有任何的问题。

但是，如果是对SQL数据库进行备份和还原，备份肯定没有问题，就是从数据库中复制一份该数据库文件，然后存放到一个选定的位置即可，但是，在还原的时候遇到了问题。

当程序开始运行的时候，用户使用用户名和密码登录，此时改程序已经连接了数据库，就是当前的数据库正在使用中，此时的还原肯定需要断开数据库的连接，把该数据库先删除，然后再从指定的位置还原，那么问题来了。

登录到系统之后，使用的是当前数据库的用户名和密码，而且需要还原的数据库中不一定存在当前登录用户，此时就会报错。

第一种解决方法，强行断开数据库连接，删除当前数据库，并且在选择进行数据库还原的时候，提示数据库还原成功之后，系统将自动关闭，就是备份完成之后，关闭该系统进程，如果用户需要接着使用，必须重新登录，使用新数据库中的用户名和密码登录。

第二种解决方法，就是把数据库备份和还原的功能放到登录的界面，在该用户并没有使用数据库的情况下进行备份和还原，就不会出现问题了。

这里，直接从登录窗体连接到另外一个界面，并且提供给用户一个对数据库进行操作的密码，为了灵活性这里把密码写到了配置文件中，但是安全性就不太好了。