SQL ServerへのVBAテスト接続

Question

フロントエンドが接続する複数のSQLサーバーがあります。一度にどのサーバーがオフラインであるかを確認するテストが必要です。

以下のコードは、オンラインSQLサーバーでは問題なく動作しますが、オフラインのテストでは30秒以上タイムアウトします。これは定期的に

Function ConTEST() 

Dim conn As ADODB.Connection 
Set conn = New ADODB.Connection 
Dim strConnect As String 

strConnect = "DRIVER={SQL Server};SERVER=SERVER;UID=UID;PWD=PWD;APP=Microsoft® Windows® Operating System;DATABASE=DB_NAME" 

With conn 
.ConnectionString = strConnect 
.CommandTimeout = 5 
.ConnectionTimeout = 5 
.Open 
End With 

End Function 

いただければ幸いです。このタイムアウトの問題を解決する方法上の任意の提案を実行されるチェックがあるとして、これは非常に迅速にタイムアウトする必要があります。

Answer 1

オフラインになっているサーバー上のデータベースの場合は、接続の「マスター」データベースに接続し、「DATABASEPROPERTYEX」関数を実行して確認するデータベースのステータスを取得します。

Dim rs As New ADODB.Recordset 

With conn 
.ConnectionString = strConnect 
.CommandTimeout = 5 
.ConnectionTimeout = 5 
.Open 
Set rs = .Execute("select DATABASEPROPERTYEX('yourdb', 'Status') as db_status") 
Debug.Print rs(0).Value 
.Close 
End With 

サーバー全体がオフラインになっている場合は、コマンドラインからサーバーにpingを実行することができます。