Este monitor verifica se o espelho do banco de dados está sincronizado.
Knowledge Base article:
Resumo
Este monitor verifica o status da sessão de espelhamento de banco de dados conforme relatado pelo Microsoft® SQL Server™. Isso é feito através da execução de uma consulta no banco de dados mestre da instância do SQL Server e do retorno do estado da sessão de espelhamento do banco de dados. Se você receber um alerta deste monitor, uma ação será necessária para colocar a sessão de espelhamento do banco de dados novamente em estado operacional.
Causas
Um estado não íntegro indica que a sessão de espelhamento de banco de dados do SQL Server™ não está em estado operacional. Os possíveis estados estão detalhados abaixo:
Estado dos Parceiros de Espelhamento
Descrição
Estado de Integridade do MOM
IN_SYNC
Este é o estado operacional normal. Os Parceiros de Espelhamento estão sincronizados e o espelhamento está sendo executado normalmente.
ÍNTEGRO
OUT_OF_SYNC
Os Parceiros de Espelhamento estão fora de sincronia.
CRÍTICO
Resoluções
Para resolver o problema, tente fazer o seguinte:
Verifique se a configuração de espelhamento está completo, e se o processo de espelhamento está em execução.
Verifique o link físico entre os Parceiros de Espelhamento.
Configure as regras de firewall nos dois Parceiros de Espelhamento de acordo com a configuração dos pontos de extremidade.
Parâmetros Substituíveis
Nome
Descrição
Valor Padrão
Prioridade do Alerta
Define a Prioridade do Alerta.
Normal
Severidade do Alerta
Define a Severidade do Alerta.
Erro
Habilitado
Habilita ou desabilita o fluxo de trabalho.
Sim
Gerar Alertas
Define se o fluxo de trabalho gera um Alerta.
Sim
Intervalo (segundos)
O intervalo de tempo recorrente em segundos no qual executa-se o fluxo de trabalho.
900
Hora da Sincronização
A hora da sincronização especificada usando um formato de 24 horas. Pode ser omitido.
Tempo Limite (segundos)
Especifica o tempo que o fluxo de trabalho pode funcionar antes de ser fechado e marcado como com falha.
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 state, serviceName
serviceName = GetSQLServiceName(WScript.Arguments(2))
state = GetServiceState(WScript.Arguments(1), serviceName)
if (state <> "Running") And (state <> "Unknown") Then
Call oAPI.Return(oBag)
WScript.Quit()
End If
Dim nResult
nResult = PartnersStatus(WScript.Arguments(0), oBag, WScript.Arguments(1), WScript.Arguments(2), WScript.Arguments(3))
Call oAPI.Return(oBag)
Call GlobalErrorListToEventLog()
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
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", 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
PTB