スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文     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