如何解决如何使用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 举报,一经查实,本站将立刻删除。