vb@rchiv · Tipps & Tricks · Prüfen, ob eine SQL-Datenbank offline ist und gegbenenfalls online setzen

Rubrik: Datenbanken · ADO.NET Allgemein | VB-Versionen: VB2008 - VB2015

21.02.17

Prüfen, ob eine SQL-Datenbank offline ist und gegbenenfalls online setzen Es werden Funktionen gezeigt, die die im Titel angesprochene Prüfung gestattet und die entsprechend reagieren können.
Autor: Dietrich Herrmann	Bewertung:	Views: 9.153
ohne Homepage	System: Win7, Win8, Win10, Win11	kein Beispielprojekt

Zunächst ein Link zu den Definitionen von sys.databases:
https://msdn.microsoft.com/de-de/library/ms178534(v=sql.120).aspx

Manchmal kann es vorkommen, dass eine SQL-Datenbank bei Computerstart zum SQL-Server nicht verbunden wird, also den Staus OFFLINE erhält. Eine Anwendung, die mit dieser DB arbeiten soll kann diesen Zustand mit den im Folgenden dargestellten Funktionen feststellen und reagieren.

Zunächst benötigt man beim Start der Anwendung eine Verbindung zum Server, DB master.

Dim proofConn As New SqlConnection With {.ConnectionString = "Data Source=.\" _
  + serverName + ";Initial Catalog=master" _
  + ";Integrated Security=SSPI;Asynchronous Processing=True"}

(mit serverName ist deine SQL-Server-Instanz gemeint)

Dann kann man bei Start der Anwendung die Funktion zum Prüfen des DB-Status anwenden:

Die Funktion:

''' <summary>
'''    Prüfen des Datenbank-Status am SQL-Server
''' </summary>
''' <param name="conn">die SQL-Connection</param>
''' <param name="DBName">der Datenbankname</param>
''' <returns>Rückgabe des Status als String</returns>
Public Function ProofTableState(conn As SqlConnection, DBName As String) As String
  Dim sqlStr As String =
    "SELECT state_desc FROM sys.databases WHERE name='" + DBName + "'"
  Dim st As String
  Dim cmd As New SqlCommand
  With conn
    .Open()
    cmd = New SqlCommand(sqlStr, conn)
    st = cmd.ExecuteScalar
    cmd.Dispose()
    .Close()
  End With
  Return st
End Function

Verwendung der Funktion:

Dim dbOffOn As String = ProofTableState(proofConn, databankName)

Man erhält als Rückgabe den Status der Datenbank als String.
Mithilfe einer Fallunterscheidung kann man auf das Statusergebnis reagieren:

Select Case dbOffOn
  Case "OFFLINE"
    DB_SetOnline(proofConn, databankName)
  Case "ONLINE"
  Case "RECOVERY_PENDING"    ' Wiederherstellung steht aus
    DB_SetOffline(proofConn, databankName)
    DB_SetOnline(proofConn, databankName)
End Select

Speziell ist hier der Fall "RECOVERY_PENDING" (bedeutet: Wiederherstellung der Datenbank steht aus).
In dem Fall kann die Datenbank durch zunächst Offline setzen und anschließendes Online setzen verfügbar gemacht werden.

In der Fallunterscheidung werden die folgenden zwei Funktionen für das OFF- bzw. ONLINE-Setzen der Datenbank benötigt:

''' <summary>
'''   Setzen des Datenbank-Status auf OFFLINE
''' </summary>
''' <param name="oConn">die SQL-Connection</param>
''' <param name="DBName">der Datenbankname</param>
''' <returns></returns>
Public Function DB_SetOffline(ByRef oConn As SqlConnection, ByVal DBName As String) As Boolean
  Dim sqlStr As String = "ALTER DATABASE [" + DBName + "] SET OFFLINE WITH ROLLBACK IMMEDIATE"
  Return ActionWithTable(oConn, DBName, sqlStr)
End Function

''' <summary>
'''   Setzen des Datenbank-Status auf ONLINE
''' </summary>
''' <param name="oConn">die SQL-Connection</param>
''' <param name="DBName">der Datenbankname</param>
''' <returns></returns>
Public Function DB_SetOnline(ByRef oConn As SqlConnection, ByVal DBName As String) As Boolean
  Dim sqlStr As String = "ALTER DATABASE [" + DBName + "] SET ONLINE"
  Return ActionWithTable(oConn, DBName, sqlStr)
End Function

Außerdem wird noch diese Hilfsfunktion benötigt:

''' <summary>
''' Aktion mit Datentabelle ausführen, bspw. DELETE, TRUNCATE o.ä.
''' </summary>
''' <param name="conn">SQL-Verbindung</param>
''' <param name="tblName">Tabellenname</param>
''' <param name="query">Query-String für die Aktion</param>
''' <param name="flag">Message zeigen ja|nein</param>
Public Function ActionWithTable(ByVal conn As SqlConnection, ByVal tblName As String,
  query As String, Optional flag As Boolean = True)
 
  Try
    Dim cmd As New SqlCommand
    With cmd
      .Connection = conn
      .CommandType = CommandType.Text
      .CommandText = query
      If conn.State <> ConnectionState.Open Then conn.Open()
      .ExecuteNonQuery()
      conn.Close()
    End With
  Catch ex As Exception
    MessageBox.Show(ex.Message.ToString, "FEHLER", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Clipboard.SetText(ex.Message.ToString)
    conn.Close()
  Finally
    If flag Then
      Dim t As String = "Aktion mit " + tblName + " erfolgreich!"
      MessageBox.Show(t, "ACTION", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End If
  End Try
End Function