即効テクニック |
●概要● 構文 expression.Open ConnectionString, UserID, Password, Options expression.Close 設定項目 内容 expression Connectionオブジェクトを指定[省略不可] ConnectionString 接続文字列を文字列型で指定[省略可能] UserID ユーザーIDを文字列型で指定[省略可能] Password パスワードを文字列型で指定[省略可能] Options 同期または非同期を表す定数を指定[省略可能] Openメソッドはデータベースに接続します。Closeメソッドはデータベースへの接続を切断します。 引数には次の定数を指定します。 ・引数 に指定する定数 定数 説明 adConnectUnspecified 同期で接続(既定値) adAsyncConnect 非同期で接続 次のコードは、「D:\AccessVBA」フォルダの「Sample1.mdb」データベースに接続しています。このサンプルを実行する場合は、フォルダ名とデータベース名をお使いの環境に合わせてください。 ●サンプル1● Sub DBOpenSample1() Dim myCN As New ADODB.Connection Dim myCNStr As String myCNStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\AccessVBA\Sample1.mdb" 'データベースに接続する myCN.Open myCNStr 'ここにDB操作の処理を記述する '接続を切断する myCN.Close End Sub ●サンプル2● 次のコードは、ConnectionStringプロパティを最初に設定し、Openメソッドでは引数を省略してデータベースに接続しています。 Sub DBOpenSample2() Dim myCN As New ADODB.Connection myCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\AccessVBA\Sample1.mdb" 'データベースに接続する myCN.Open 'ここにDB操作の処理を記述する '接続を切断する myCN.Close End Sub