【備忘録】SQLServer生存確認⇒起動（簡易） 【VB.NET】

めっちゃ雑だけど。

Imports System.ServiceProcess

  ’サービス起動確認
  Dim sc As New ServiceController(“サービス名” “サーバー名”)    
  ’例  ”MSSQL$TESTDB”,”192.168.xx.xxx”
  ’ サービス状態の確認

  Select Case sc.Status
    Case ServiceControllerStatus.Paused ‘一時停止
      sc.Continue() ‘ 再開
    Case ServiceControllerStatus.Stopped ‘停止
      sc.Start() ‘ スタート
    Case Else ‘その他
      動いてないよ的なアラート。（エラー処理）
  End Select
  Try
    SQLServer接続確認(通常通りコネクションオープン）
  Catch
    繋がらないよなアラート。（エラー処理） 
   ⇒スリープして再接続（再帰）
  End Try

参考にしたサイト

エラー処理はメールを飛ばすようにした。
夜間にSQLServerが入ってるサーバーに対し
チェックをするようにした。

これで再起動後にサービスが立ち上がってないから
といったエラー報告が無くなった。
（まぁサービスが起動してない事はよくないんだが。。）