Excel VBA ADOを使用して外部データベースのレコードを参照する

• オブジェクト変数（省略可）
  Recordsetオブジェクトのインスタンスが格納されたオブジェクト変数を指定します。
• Source【ｿｰｽ】（省略可）
  参照したいテーブル名、またはSQLのSELECT【ｾﾚｸﾄ】文を指定します。
• ActiveConnection【ｱｸﾃｨﾌﾞｺﾈｸｼｮﾝ】（省略可）
  外部データベースへの接続が確立されているConnection【ｺﾈｸｼｮﾝ】オブジェクトを指定します。
• CursorType【ｶｰｿﾙﾀｲﾌﾟ】（省略可）
  レコードを参照するカーソルの種類をCursorTypeEnum列挙型の定数で指定します。

• LookType【ﾛｯｸﾀｲﾌﾟ】（省略可）
  複数のユーザーによって同じテーブルが操作されたときのロックの種類をLookTypeEnum列挙型の定数で指定します。

• Options【ｵﾌﾟｼｮﾝｽﾞ】（省略可）
  引数Sourceに指定した内容の種類をCommandTypeEnum列挙型の定数で指定します。

• オブジェクト（必須）
  レコードの貼付け先のセル範囲の左上端のセルをRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• Data【ﾃﾞｰﾀ】（必須）
  レコードが格納されているRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクト変数を指定します。
• MaxRows【ﾏｯｸｽﾛｳｽﾞ】（省略可）
  ワークシートにコピーするレコードの最大数を指定します。省略した場合はすべてのレコードをコピーします。
• MaxColumns【ﾏｯｸｽｶﾗﾑｽ】（省略可）
  ワークシートにコピーするフィールドの最大数を指定します。省略した場合はすべてのフィールドをコピーします。

Sub レコード読み込み()
Dim コネクション As New ADODB.Connection
Dim レコード As New ADODB.Recordset
コネクション.Open ConnectionString:= _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:¥Users¥Desktop¥Database1.accdb;"
レコード.Open Source:="商品マスター", ActiveConnection:=コネクション
Range("A1").CopyFromRecordset Data:=レコード
レコード.Close: Set レコード = Nothing
コネクション.Close: Set コネクション = Nothing
End Sub

3行目【Dim レコード As New ADODB.Recordset】
Dim【ﾃﾞﾑ】ステートメントでNew【ﾆｭｰ】キーワード使用して外部データベースのレコードを参照するRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスを生成してオブジェクト変数「レコード」に格納します。

4行目～6行目【コネクション.Open ConnectionString:= _
“Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=C:¥Users¥Desktop¥Database1.accdb;”】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのOpen【ｵｰﾌﾟﾝ】メソッドを使用して外部データベースの接続をします。

7行目【レコード.Open Source:=”商品マスター”, ActiveConnection:=コネクション】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのOpen【ｵｰﾌﾟﾝ】メソッドを使用して外部データベースのレコードを参照します。

8行目【Range(“A1”).CopyFromRecordset Data:=レコード】
CopyFromRecordset【ｺﾋﾟｰﾌﾛｰﾑﾚｺｰﾄﾞｾｯﾄ】メソッドで参照したレコードをコピーしてA1セルに貼り付けます。

9行目【レコード.Close: Set レコード = Nothing】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドで外部データのレコードの参照を切断します。外部データ接続の切断前に実行します。

10行目【コネクション.Close: Set コネクション = Nothing】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドで外部データ接続を切断します。