Überprüft, ob die Datenbankspiegelung synchronisiert wird.
Knowledge Base article:
Zusammenfassung
Dieser Monitor überprüft die von Microsoft® SQL Server™ gemeldete Datenbank-Spiegelungssitzung. Dazu wird eine Abfrage für die master-Datenbank der SQL Server-Instanz ausgeführt und der Status der Datenbankspiegelungssitzung zurückgegeben. Wenn Sie eine Warnung von diesem Monitor erhalten, ist eine Aktion erforderlich, um die Datenbankspiegelungssitzung in einen funktionsfähigen Zustand zurückzuversetzen.
Ursachen
Ein fehlerhafter Zustand gibt an, dass die SQL Server™-Datenbankspiegelungssitzung sich nicht in einem funktionsfähigen Zustand befindet. Die möglichen Statusangaben werden unten genauer beschrieben:
Status der Spiegelungspartner
Beschreibung
MOM Integritätsstatus
IN_SYNC
Dies ist der normale Betriebszustand. Spiegelungspartner sind synchronisiert und die Spiegelung wird normal ausgeführt.
GRÜN
OUT_OF_SYNC
Spiegelungspartner sind nicht synchronisiert.
ROT
Lösungen
Versuchen Sie Folgendes, um das Problem zu lösen:
Stellen Sie sicher, dass die Spiegelungskonfiguration abgeschlossen ist und der Spiegelungsprozess ausgeführt wird.
Überprüfen Sie die physische Verbindung zwischen den Spiegelungspartnern.
Konfigurieren Sie Firewallregeln für beide Spiegelungspartner entsprechend der Endpunktkonfiguration.
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
DEU