下面是我在做SQLSERVER 备份时的一段代码;Dim gSQLServer As SQLDMO.SQLServer
Dim WithEvents oBackupEvent As SQLDMO.Backup
Dim gDatabaseName As String
Dim gBkupRstrFileName As String
Dim gBkupRstrFilePath As StringPrivate Sub Form_Load()
Set gSQLServer = Nothing
gbConnected = False
buttonsConnectClosed Dim ServerName As String
Dim UserName As String
Dim Password As String
On Error GoTo errhandler:
If gSQLServer Is Nothing Then
Set gSQLServer = New SQLDMO.SQLServer
End If
ServerName = txtDataSource
UserName = txtUserId
Password = txtPassword
gSQLServer.Connect ServerName, UserName, Password
gbConnected = True
FillDatabaseList
buttonsConnectOpen
Exit Sub
errhandler:
MsgBox "Error " & Err.Description
If Screen.MousePointer = vbHourglass Then
Screen.MousePointer = vbDefault
End If
End SuboBackupEvent 有三个事件 如下;Private Sub oBackupEvent_Complete(ByVal Message As String) PrintStat "oBackupEvent_Complete -- " & Message
End SubPrivate Sub oBackupEvent_PercentComplete(ByVal Message As String, ByVal Percent As Long)
ProgressBar2.Value = ProgressBar2.Max * (Percent / 100)
PrintStat "oBackupEvent_PercentComplete -- " & Message & " " & Percent
End Sub
Private Sub oBackupEvent_NextMedia(ByVal Message As String)
PrintStat "oBackupEvent_NextMedia -- " & Message
End Sub我想问的是 oBackupEvent_NextMedia 事件在什么情况下 触发,我在调试时设了断点 但是不执行呀!!可以给解释一下关于 oBackupEvent_NextMedia !!
Dim WithEvents oBackupEvent As SQLDMO.Backup
Dim gDatabaseName As String
Dim gBkupRstrFileName As String
Dim gBkupRstrFilePath As StringPrivate Sub Form_Load()
Set gSQLServer = Nothing
gbConnected = False
buttonsConnectClosed Dim ServerName As String
Dim UserName As String
Dim Password As String
On Error GoTo errhandler:
If gSQLServer Is Nothing Then
Set gSQLServer = New SQLDMO.SQLServer
End If
ServerName = txtDataSource
UserName = txtUserId
Password = txtPassword
gSQLServer.Connect ServerName, UserName, Password
gbConnected = True
FillDatabaseList
buttonsConnectOpen
Exit Sub
errhandler:
MsgBox "Error " & Err.Description
If Screen.MousePointer = vbHourglass Then
Screen.MousePointer = vbDefault
End If
End SuboBackupEvent 有三个事件 如下;Private Sub oBackupEvent_Complete(ByVal Message As String) PrintStat "oBackupEvent_Complete -- " & Message
End SubPrivate Sub oBackupEvent_PercentComplete(ByVal Message As String, ByVal Percent As Long)
ProgressBar2.Value = ProgressBar2.Max * (Percent / 100)
PrintStat "oBackupEvent_PercentComplete -- " & Message & " " & Percent
End Sub
Private Sub oBackupEvent_NextMedia(ByVal Message As String)
PrintStat "oBackupEvent_NextMedia -- " & Message
End Sub我想问的是 oBackupEvent_NextMedia 事件在什么情况下 触发,我在调试时设了断点 但是不执行呀!!可以给解释一下关于 oBackupEvent_NextMedia !!
当备份或者还原操作用尽目标设备或者源设备媒体资源的时候会发生这个事件。
多谢 各位!!