如何使用vb.net创建AutoBackup SQL数据库？

问题描述

我有一个连接到MySQL服务器的vb.net代码，我希望能够在特定时间段后自动备份数据库。我已经尝试了以下代码，但是无法正常工作。

Private Sub ProcessAutoBackup()
    If Me.cboServerName.Text.Trim.Length > 0 Then
        clsSQL.ConnectServer(Me.cboServerName.Text,True)

        For Rec As Integer = 0 To Me.cboDatabaseName.Items.Count - 1
            Select Case Me.cboDatabaseName.Items(Rec).ToString.ToUpper
                Case "MASTER","TEMPDB","MODEL","MSDB","REPORTSERVER","REPORTSERVERTEMPDB" 'Dont include System Databases
                Case Else
                    cirProgStatus.Visible = True
                    If Me.chkUseWinRar.Checked = True Then
                        clsSQL.Backup(Me.cboDatabaseName.Items(Rec).ToString,True)
                    Else
                        clsSQL.Backup(Me.cboDatabaseName.Items(Rec).ToString,False)
                    End If

                    Do While clsSQL.theThread.ThreadState = Threading.ThreadState.Running
                        'Wait to finished...
                        cirProgStatus.Value += 1

                        Application.DoEvents()

                        If cirProgStatus.Value = 100 Then
                            cirProgStatus.Value = 0
                        End If

                        Me.cirProgStatus.Enabled = False
                        Me.Refresh()
                        Me.cirProgStatus.Enabled = True
                    Loop
            End Select
        Next
        cirProgStatus.Visible = False
    End If
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）