Home > 即効テクニック > AccessVBA > データベース・データ保護 > データベースに接続しているか否かを調べる

即効テクニック
データベース・データ保護

データベースに接続しているか否かを調べる

(Access 2000/2002/2003)
●概要●
構文  expression.State     取得のみ

設定項目        内容
expression      Connectionオブジェクトを指定［省略不可］

ConnectionオブジェクトのStateプロパティはデータベースに接続しているかどうかを表します。Stateプロパティには次の表の定数が設定されます。
・Stateプロパティの値

定数            説明
adStateClosed   データベースに接続していない（既定値）
adStateOpen     データベースに接続している

次のコードは、「D:\AccessVBA」フォルダの「Sample1.mdb」データベースに接続してから、接続状況を調べて結果を［イミディエイト］ウィンドウに表示しています。
このサンプルを実行する場合は、フォルダ名とデータベース名をお使いの環境に合わせてください。

●サンプル●
Sub CheckStateSample()
    Dim myCN As New ADODB.Connection
    myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=D:\AccessVBA\Sample1.mdb"
    myCN.Open
    '接続状況をチェック
    If myCN.State = adStateOpen Then
        Debug.Print "Sample1.mdbに接続しています。"
    Else
        Debug.Print "Sample1.mdbに接続していません。"
    End If
    myCN.Close
End Sub