|
.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
上一页 [1] [2]
[Access]sql随机抽取记录 [Access]ASP&SQL让select查询结果随机排序的实现方法
[系统软件]SQL语句性能优化--LECCO SQL Expert [C语言系列]SQL Server到DB2连接服务器的实现
[C语言系列]SQL Server到SYBASE连接服务器的实现 [C语言系列]SQL Server到SQLBASE连接服务器的实现
[C语言系列]SQL Server连接VFP数据库的实现 [C语言系列]ASP+SQL Server之图象数据处理
[C语言系列]SQL Server连接ACCESS数据库的实现 [C语言系列]DBA的最佳选择—图形界面还是T-SQL命令？
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
