Este monitor comprueba si el reflejo de la base de datos está sincronizado.
Knowledge Base article:
Resumen
Este monitor comprueba el estado de la sesión de creación de reflejo de la base de datos devuelto por Microsoft® SQL Server™. Esto se hace ejecutando una consulta en la base de datos maestra de la instancia de SQL Server y devolviendo el estado de la sesión de creación de reflejo de la base de datos. Si recibe una alerta de este monitor, se requiere la intervención del usuario para devolver la sesión de la creación de reflejo de la base de datos a un estado operativo.
Causas
Un estado incorrecto indica que la sesión de creación de reflejo de la base de datos de SQL Server™ no está en estado operativo. A continuación, se indican los posibles estados:
Estado de los asociados de creación de reflejo
Descripción
Estado de mantenimiento de MOM
EN_SINC
Es el estado operativo normal. Los asociados de creación de reflejo están sincronizados y la creación de reflejo se realiza con normalidad.
VERDE
FUERA_DE_SINC
Los asociados de creación de reflejo están fuera de sincronización.
ROJO
Soluciones
Para solucionar el problema, pruebe lo siguiente:
Asegúrese de que la configuración de la creación de reflejo se haya completado y el proceso de creación de reflejo esté ejecutándose.
Compruebe los vínculos físicos entre los asociados de creación de reflejo.
Configure las reglas de firewall en ambos asociados de creación de reflejo conforme a la configuración de los extremos.
Dim GetPartnersStatusQuery
GetPartnersStatusQuery = "SELECT " &_
" mirroring_guid, " &_
" partner_sync_state_desc " &_
" FROM sys.database_mirroring_witnesses "
Call GetPartnersStatus()
Sub GetPartnersStatus()
If WScript.Arguments.Count = 4 Then
Dim oBag
Set oBag = oAPI.CreatePropertyBag()
Dim nResult
nResult = PartnersStatus(WScript.Arguments(0), oBag, WScript.Arguments(1), WScript.Arguments(2), WScript.Arguments(3))
Call oAPI.Return(oBag)
Else
Wscript.Quit()
End If
End Sub
Function PartnersStatus(ByVal sSQLConnectionString, ByRef oBag, ByVal sComputerName, ByVal sInstanceName, ByVal sTcpPort)
Dim e
Set e = New Error
Dim cnADOConnection
Set cnADOConnection = SmartConnectWithoutSQLADODB(sSQLConnectionString, sTcpPort, sComputerName, sInstanceName, "master")
if cnADOConnection Is Nothing Then
PartnersStatus = SQL_MONITORING_CONNECT_FAILURE
ThrowScriptErrorNoAbort "Cannot connect to '" & sSQLConnectionString & "' SQL Server", e
Exit Function
End If
Dim oResults
e.Clear
On Error Resume Next
Set oResults = cnADOConnection.Execute(GetPartnersStatusQuery)
e.Save
On Error Goto 0
If e.Number <> 0 Then
PartnersStatus = SQL_MONITORING_QUERY_FAILURE
ThrowScriptErrorNoAbort "Query execution failed for '" & sSQLConnectionString & "' SQL Server", e
If (oResults <> null) Then oResults.Close
cnADOConnection.Close
Exit Function
End If
Do While Not oResults.EOF
Call oBag.AddValue(oResults(0), CStr(oResults(1)))
oResults.MoveNext
Loop
Home
ESN