即効テクニック |
●概要● 構文 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