2023/12/13

ADOでAccess･Excel･CSVへ接続・操作
- MSDASQLプロバイダー編 -

• １．データベースへの接続方法
• ２．ODBCについて
• 　２－１．ODBCドライバー
• 　２－２．DSN
• 　　よりみち（DSNの名前）
• 　　２－２－１．AccessのDSN
• 　　２－２－２．ExcelのDSN
• 　　２－２－３．テキスト（CSV）のDSN
• 　　　よりみち（テキストの列情報の編集）
• ３．ADOのオブジェクトについて
• 　３ー１．ADOオブジェクトの種類
• 　３ー２．ADOオブジェクト生成
• 　　３ー２ー１．事前バインディング
• 　　３ー２ー２．実行時バインディング
• ４．Connectionオブジェクト
• 　４ー１．Openメソッド他（データベース接続関係）
• 　　４ー１ー１．第１パラメータ（ConnectionString：接続情報）
• 　　　４ー１ー１ー１．プロバイダー名
• 　　　４ー１ー１ー２．ドライバー名
• 　　　４ー１ー１ー３．データベース名
• 　　　　よりみち（テーブル名）
• 　　　４ー１ー１ー４．DSN名
• 　　　４ー１ー１ー５．ユーザー名、パスワード
• 　　　４ー１ー１ー６．URL名
• 　　　４ー１ー１ー７．読取／書込
• 　　　　よりみち（Modeプロパティ）
• 　　　　よりみち（HDRなどの設定）
• 　　４ー１ー２．第２・第３パラメータ（UserID、Password）
• 　　４ー１ー３．第４パラメータ（Options：同期／非同期）
• 　　４ー１ー４．データベース接続までのコード例
• 　４ー２．Executeメソッド（コマンドの実行）
• ５．Recordsetオブジェクト
• 　５ー１．Openメソッド（レコードセット取得）
• 　　５ー１ー１．各パラメータの値
• 　　５ー１ー２．各パラメータの組み合わせ
• 　　　５ー１ー２ー１．Accessの場合（Openメソッドにはテーブル名を指定）
• 　　　　よりみち（CursorType=adOpenForwardOnlyでの不具合）
• 　　　５ー１ー２ー２．Accessの場合（OpenメソッドにはSQL文を指定）
• 　　　５ー１ー２ー３．ExcelシートDBの場合（OpenメソッドにはSQL文を指定）
• 　　　５ー１ー２ー４．CSVの場合（OpenメソッドにはSQL文を指定）
• ６．Commandオブジェクト
• 　６ー１．ActiveConnectionプロパティ（データベースとの結び付け）
• 　６ー２．CommandTextプロパティ（実行コマンドの格納）
• 　６ー３．Executeメソッド（コマンドの実行）
• 　　よりみち（Optionsパラメータの指定方法）
• 　６ー４．Commandオブジェクトの使用例
• 　　６ー４ー１．実行コマンドの格納
• 　　６ー４ー２．コマンドの実行
• ７．データベースに接続する為のコード例
• 　７ー１．テーブルを操作
• 　　７ー１ー１．Connectionでテーブル名を実行し、レコードセット取得後に処理
• 　　７ー１ー２．Commandでテーブル名を実行し、レコードセット取得後に処理
• 　　７ー１ー３．Commandにテーブル名を格納後Recordset実行し、レコードセット取得後に処理
• 　　７ー１ー４．Recordsetでテーブル名を実行し、レコードセット取得後に処理
• 　７ー２．SQL（Select）文で操作
• 　　７ー２ー１．ConnectionでSQL文を実行しレコードセット取得
• 　　７ー２ー２．CommandでSQL文を実行しレコードセット取得
• 　　７ー２ー３．CommandにSQL文を格納後Recordsetで取得
• 　　７ー２ー４．Recordsetに直接SQL文を指定しレコードセット取得
• 　７ー３．SQL（Insert等）文で操作
• 　　７ー３ー１．ConnectionでSQL文を実行しデータ変更
• 　　７ー３ー２．CommandでSQL文を実行しデータ変更
• 　　７ー３ー３．CommandにSQL文を格納後Recordsetで実行しデータ変更
• 　　７ー３ー４．SQL文を直接ecordsetで実行しデータ変更
• ８．データの一括処理
• アプリ実例・関連する項目
• サンプルファイル

１．データベースへの接続方法

「DAOでAccess･Excel･CSV等へ接続・操作」でも説明しましたが、ExcelのVBAから「Microsoft Access」「Excelのワークシート」「CSV等のテキストファイル」のデータベースに接続・操作する方式には、主に「ODBC」「DAO」「ADO」の３種があります。
今回はADO方式の内、ODBC用のMSDASQLプロバイダーを使ったルート（図０１では、黒線のルート）について説明します。

図０１別窓
これ以外の接続・操作については、以下を参照下さい。
　・DAOでAccess･Excel･CSVに接続・操作
　・ADOでAccess･Excel･CSVへ接続・操作(JET･ACEプロバイダー編)
　・ADOでAccess･Excel･CSVへ接続・操作(MSDASQLプロバイダー編)　　　　←今回
　・ODBCでAccess･Excel･CSVへ接続・操作
なお、今回は「ADOでAccess･Excel･CSVへ接続・操作(JET･ACEプロバイダー編)」と同じADO法であるため、重複する部分が多くあることをご了承下さい。

２．ODBCについて

まず、ODBC（Open Database Connectivity）について説明をします。
ODBCとは、Microsoftが作ったデータベースに接続する手順です。データベースには多くの種類がありますが、それぞれに対応したODBCドライバーを使うことで、ユーザー側は同じようなコードで様々なデータベースにアクセスできます。
ODBCの設定をするには、Windowsの「コントロールパネル」から入ります。
図０２のように、コントロールパネルの「システムとセキュリティ①」→「Windowsツール②」を選択すると、その中にODBCのアイコン③が現れます。（Windowsのバージョンにより、少し違うかもしれません）

図０２別窓
また、コントロールパネルの右上の検索ボックスに「ODBC」と入力④する事で、図０３の右図のようにODBC⑤を絞り込む事ができます。

図０３別窓
ODBCの設定アイコンには、図０２の③・図０３の⑤のように、最近では32ビット版と64ビット版の２つがありますが、どちらを使うかは「使用するアプリケーション（今回だとExcel）のビット版」で決まります。つまり、Excel（≒Office）が64ビット版であれば「ODBC（64ビット）」を、32ビット版であれば「ODBC（32ビット）」を選択します。
ODBCの設定アイコンを開くと、図０４のように、いくつかのタブが並んでいます。今回は「ユーザーDSN」タブと「ドライバー」タブを使用します。

図０４別窓
なお「ユーザーDSN」と「システムDSN」は内容的には同じですが、PC内に複数のユーザーがいる場合「ユーザーDSN」は現在ログインしているユーザーのみが使え、「システムDSN」は全ユーザーが共通して使えるもの　という違いがあります。
図０４は64ビット版のものですが、32ビット版でもほぼ同じ内容です。
また、64ビット版Excelの入ったPCで32ビット版のODBCを調べると、昔のファイル（例えば、Accessの *.mdb）にしかアクセスできないように見えます。しかし32ビット版Excelの入ったPCで32ビット版ODBCを調べると、ちゃんと最近のファイル（*.mdb と *.accdb）にもアクセスできるドライバーが入っていることがわかります。つまり「Excelのビット版に合わせたドライバーがインストール」されていますので心配ありません。
（必要なドライバーが入っていない場合もあるようなので、確認は必要と思います。）

２－１．ODBCドライバー

使用可能なODBCドライバーは、図０４の右側のようにリストになっていますので、その中から選択し、Connectionオブジェクトへ指定します。
Connectionオブジェクトに対してどのように指定するかは様々な方法があり、詳細は「データベース接続までのコード例」で説明しますが、「"Driver=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);"」のように「ドライバー名を指定した文字列」を作るところまでは共通です。
なお、ドライバー名をコード上に指定する際には、以下のことに注意します。

・文字列は、カッコ内も含めて正しく書き写す ・スペースの位置と数も正しく書き写す ・大文字小文字は同じ文字と認識される ・半角と全角は異なる文字と認識される

基本的にドライバー名には全角文字は使われていないと思いますが、スペースが入っているか否かは見落とし勝ちです。レジストリエディタで検索をすればコピペも可能ですが、普通の方法ではコピペが出来ないので、良く見て書き写すことが必要です。

２－２．DSN

DSN（Data Source Name）は、簡単に言えば「ODBCドライバーとデータベースファイル名をセット」にしたものです。ODBCでデータベースに接続する際は、最低でもドライバー名とデータベースファイル名を指定する必要がありますが、この代わりにDSNを指定すれば接続できることになります。
図０４の左図のように「DSNタブ」を開くと、すぐに使用可能なDSNが並んでいます（但し、データベースファイル名は未設定）。このダイアログでは、図０５のようにDSNを新作したり、内容を修正したりすることができます。

図０５別窓
DSNリストの右には３個のボタンが並んでいます。
一番上の「追加①」ボタンは、新たなDSNを作成するものです。まず最初にODBCドライバーを指定④（図０５の右上）し完了ボタンをクリックすると、次にDSN（データソース名）を入力⑤するダイアログ（図０５の右下）になります。
リストからDSNを選択した後「構成③」ボタンを押しても、名前を変更⑤できます。
二番目の「削除②」ボタンは、リスト選択したDSNを削除するものです。
三番目の「構成③」ボタンをクリックすると、以下（図０６など）で説明するように、データベースファイル名などを設定することができます。
なおこの構成ダイアログの内容はドライバー毎に異なります。

（DSNの名前） 図０５の⑤に設定するDSN（データソース名）ですが、プログラム側から呼び出す際は「大文字小文字は同一」と判断されるようです。 また名前の区切り等に使う「スペース」は、図０５の左図のリストでも分かるように「名前の文字列の間」に入れることは大丈夫そうです。しかしスペースを文字列の先頭や末尾に入れてしまうと、構成のダイアログが開かなくなり編集不可となりますので注意が必要です。 （レジストリエディタで削除する事は可能ですが、失敗するとWindowsが起動しなくなる危険性があります。）

２－２－１．AccessのDSN

Accessのドライバーを選定した時の構成ダイアログは、下図（図０６）のようになります。

図０６別窓
Access構成ダイアログでは、まずデータベースの「選択①」ボタンをクリックし、データベースファイルを設定⑤します。
また「詳細設定③」ボタンをクリックすると、新たなダイアログ⑧が開き、Accessファイルに対するログイン名・パスワード設定や、各設定値の変更が可能です。リスト⑨の各項目を選択すると、下部⑩に項目名と値のボックスが出ますので編集できるようになっています。
右下部の「オプション④」ボタンではダイアログが下に伸び、ページタイムアウトやバッファサイズ等の変更ができます。
なお、「作成②」ボタンから、新しいAccessデータベースファイルを作成⑥することも可能です。その際は、バージョンを指定⑦する必要があり、「バージョン4.xでは、*.mdbファイル」が作成され、「バージョン12.xでは、*.accdb」ファイルが作られます。
mdbファイルにはJetエンジンで作られるものと、ACEエンジンで作られるものの２種がありますが、試してみたところ「Jetエンジンで作られるmdbファイル」のようです。
また、ワークグループ情報（データベースへアクセスするためのIDやPWなど）をファイル化したシステムデータベース（System.mdw）がある場合は、システムデータベースの「データベース⑬」のラジオボタンをクリックし「システムデータベース⑫」ボタンをクリックすることで、新たなダイアログ⑬が表示されファイル選択ができます。

２－２－２．ExcelのDSN

ExcelのDSNについて下図（図０７）で説明します。

図０７別窓
Excelの構成ダイアログでは、まずデータベースのバージョン①をドロップボックス④から選択します。既定はExcel 12.0（Excel2007～）のようです。
それ以前のバージョンも選択できますが、「Excel 3.0、及び Excel 4.0」では、ブックの選択ボタンが「フォルダーの選択」ボタンへと名称が変わり、フォルダーしか選択できなくなります。ちょうど現在のCSVファイルのような立場だったのかもしれません。またExcel2003が抜けていますが、「Excel 97-2000」「Excel 12.0」のどちらでも大丈夫そうです。
バージョンの選択が完了したら「ブックの選択②」ボタンをクリックし、ダイアログ内⑤を操作してExcelブックを選択します。
もしかしたらバージョン選択④の目的は、このダイアログ⑤に於ける表示拡張子を決める役目なのかもしれません。
右下の「オプション③」ボタンをクリックすると、ダイアログが下に伸び⑥、「スキャンする行数」の入力と「読み取り専用」有無の選択が可能です。
この「読み取り専用」にレ点を入れると、Insert文などの実行時にエラーが発生します。但し、読み取り専用に設定したDSNを指定するのと同時にコード側で「ReadOnly=0（＝False）」 の指定をすると、Insert等も可能になります。逆はダメなので、コード側の指定が優先されるようです。
「スキャンする行数」は、データ列のデータ型を判定するためのスキャン行数（MaxScanRows）です。既定値は「8」ですが、値を変更しても処理内容は変わりません（他の複数サイトでも解説されていますが、このMaxScanRows設定はバグにより無効となっているようです）。
また「ゼロを設定すると全行をスキャン」との説明も見受けられますが、ここではゼロを入力する事はできません。

２－２－３．テキスト（CSV）のDSN

CSV（テキストファイル）を選定した時の構成ダイアログは、下図（図０８）のようになります。

図０８別窓
テキストファイルの場合は、データベース相当は「テキストファイルがあるフォルダー」となります。ですので、テキストの構成ダイアログでは「現在のフォルダーを使用する①」というチェックボックスをまず確認します。
チェックボックスにレ点がついていると、ODBCが置いてある「C:¥windows¥system32」辺りになってしまいますので、通常はレ点を外し「フォルダーの選択②」ボタンをクリックすることでダイアログ④が表示され、フォルダーを選択します。
右下の「オプション③」ボタンをクリックするとダイアログが下に伸び、テキストファイルの拡張子の追加／削除ができるようになります。
テキストファイルのあるフォルダーを指定④し、ファイルの拡張子を指定⑤した後で「書式の定義⑥」ボタンをクリックすると、テキスト形式の定義ダイアログ⑦が現れます。そのダイアログの左上リストボックス（「テーブル」と表示されている）には「指定したフォルダー内に存在する、指定した拡張子のファイル」が一覧表示されます。テキストデータベースにしてみれば、これが「テーブル」相当になります。
リスト上のファイル（テーブル相当）を選択し、右側の「推量⑨」ボタンをクリックすると、右のリストボックスに「列の一覧」が表示されます。先頭行が列名である場合には「列名の見出し⑧」にレ点を付けておけば、ちゃんとした列名となります（列名の見出し⑧にレ点が付いていないと、F1・F2 ･･･等と表示されます）。
列のリストを選択すると、右リスト下にデータ型・名前・幅が表示されます。データ型は、左側の「スキャンする行数⑩」の行数だけ読み込んで、数の多いデータ型を表示しているようです。ちょっと便利そうな機能です。

（テキストの列情報の編集） 図０８のダイアログ⑦の右下の「列情報」の右端には、列を追加・変更・削除できるボタンも並んでいます。実際に追加ボタン等を使ってみると変更されているように見えますが、実際のファイル内で列が追加できたり、削除されたりは無さそうです。しかしその情報は、指定したフォルダー内の「schema.ini」内に保存されている（存在しなければ新規作成される）ようで、再度呼び出すと変更内容は記憶されています。 但し、データ型などを一旦変更をしてしまうと、その保存された情報による悪影響が発生し、データを操作しようとすると「抽出条件でデータ型が一致しません」などのエラーが発生する事があります。もしそうなってしまった場合は「schema.ini」を削除するのが良いと思います（編集も出来そうですが、今回は省略します）。

３．ADOのオブジェクトについて

ADOでのデータベースへの接続・操作には、ADOの「Connection」「Command」「Recordset」の各オブジェクトを図０９のように組み合わせて行います。表内の指定内容の「テーブル」と「SQL文」は、Recordset.OpenメソッドやCommand.CommandTextプロパティ、Connection.Excecuteメソッドのパラメータとして指定する内容を指しています。

図０９別窓
まず「各オブジェクト、及びそのメソッド・プロパティ」について説明をした後、図０９で示した各ルートの実際のコードを紹介します。とりあえず接続するコードを知りたい場合は、先に「データベースに接続・操作するためのコード例」を確認下さい。

３ー１．ADOオブジェクトの種類

ADO直下には図０９で示した以外にも、多くのオブジェクトが存在します。図１０はそのオブジェクトが、バージョンにより使えるか否かと、実行時バインディング時にCreateObjectで生成可能か否かをまとめたものです。

ｵﾌﾞｼﾞｪｸﾄ	内容	事前ﾊﾞｲﾝﾃﾞｨﾝｸﾞ		実行時ﾊﾞｲﾝﾃﾞｨﾝｸﾞ
		Ver 2.8	Ver 6.1	CreateObject可
Command	ﾃﾞｰﾀｿｰｽに対して実行する特定ｺﾏﾝﾄﾞの定義	〇	〇	〇
Connection	ﾃﾞｰﾀｿｰｽへの接続	〇	〇	〇
Error	発生するｱｸｾｽｴﾗｰの詳細情報	〇	〇	〇
Errors		〇	〇	×
Field	ﾃﾞｰﾀ列	〇	×	×
Fields		〇	×	×
Parameter	Commandｵﾌﾞｼﾞｪｸﾄに関連付けられた引数	〇	〇	〇
Parameters		〇	〇	×
Property	ADOの動的特性	〇	〇	×
Properties		〇	〇	×
Record	Recordsetの行､又はﾌｧｲﾙｼｽﾃﾑ内のﾃﾞｨﾚｸﾄﾘやﾌｧｲﾙ	〇	〇	〇
Recordset	ｺﾏﾝﾄﾞ実行により返された結果	〇	〇	〇
Stream	ﾃﾞｰﾀの流れ	〇	〇	〇

図１０別窓
これらのオブジェクトの内、データベースとの接続・操作にかかわる「Connection」「Recordset」「Command」オブジェクトについて、今回説明していきます。
なお後述する参照設定（図１１）で「バージョン6.1」を選択した場合、図１０の「Ver6.1」列で分かるように、Field（Fields）オブジェクトは存在しません。ですので「RecordsetのFieldsをADOのFieldsオブジェクトで受け取る（今回は、その手法については説明を省略しています）」場合は、バージョンを2.8とする必要があります。
但し実行時バインディング（CreateObject使用）の場合は、Fieldsオブジェクトは単なるObject（総称オブジェクト型）として宣言しますので、RecordsetのFieldsを「一般のObject型」として受け取る事が可能です。

３ー２．ADOオブジェクト生成

ADOでデータベースとやり取りするには、まずADOオブジェクトを生成する必要があります。その生成方法には以下の２種類があります。
　・「事前バインディング」・・・コードを実行する前に生成
　・「実行時バインディング」・・コードを実行した時に初めて生成
事前バインディングの特徴は、コード作成時にインテリセンス（コード補完機能＝使用可能なプロパティ等が表示され、選択することが可）が使えることと併せ、効率が良い（≒実行速度が速い）ことです。
一方実行時バインディングは、実行しているPCに合わせたライブラリを呼び出すため、PC環境の異なる複数ユーザーにマクロを配布する時でも安全度は高いです。

３ー２ー１．事前バインディング

事前バインディングでは、VBE（コードを書くウィンドウ）上部の「ツール」→「参照設定」から、図１１のように「Microsoft ActiveX Data Objects X.X Library」にチェックをし有効にします。

図１１別窓
X.Xの部分はバージョンを表していますが、最新Excelでは「2.8」①までと、少し飛んで「6.1」②が選択できるかと思います。
通常は「最新のもの」を選択するのが良いとされています。しかし複数のPCを対象に動かすようなシステムの場合に「最新バージョン」を選択して作ってしまうと、もしその「最新バージョン」がインストールされていないPCが存在する場合は、うまく動かない可能性が出てきます。ライブラリを選択する際には「どのPCにも入っているバージョン」を選ぶのが良いと思います。
なお、バージョンの2.8と6.1では、図１０のようにADO直下のオブジェクトが異なります。最新の6.1にはField（Fields）オブジェクトがありません。但し、図５７の２３４行目のような「カーソル行の対象列」を示すFieldsプロパティは大丈夫です。このFieldsはRecordsetオブジェクトのFieldsだからです。
プログラム的には、図１１のようにADOのライブラリーを参照設定した上で、図１２のように「オブジェクト変数をADOオブジェクトとして宣言」→「New句を使って生成」した後、オブジェクト変数を処理に使用します。

0. '==========　⇩(1)　事前バインディングでの宣言と生成 ============
1. 　Dim cn As ADODB.Connection 　 '←Connectionオブジェクトの宣言
2. 　Dim rs As ADODB.Recordset 　　 '←Recordsetオブジェクトの宣言
3. 　Dim cmd As ADODB.Command 　 '←Commandオブジェクトの宣言
5. 　Set cn = New ADODB.Connection 　 '←Connectionオブジェクトの生成
6. 　Set rs = New ADODB.Recordset 　　 '←Recordsetオブジェクトの生成
7. 　Set cmd = New ADODB.Command 　 '←Commandオブジェクトの生成
8. 　
9. 　（ 生成したcn,rs,cmdオブジェクト変数を使い、接続やデータ取得・変更の処理･･･等）

図１２別窓
０１～０３行目では、各オブジェクト型毎に変数宣言をします。
０５～０７行目では、New句を使ってオブジェクトを生成します。
オブジェクト生成後は、そのオブジェクト変数（図１２では、cn,rs,cmd ）を使って処理作業を行います。

３ー２ー２．実行時バインディング

実行時バインディングの場合は、使用するオブジェクト毎にCreateObjectを使って生成します。
なおCreateObjectで生成できるADOオブジェクトは、図１０で示したように一部分のみになります。

20. '==========　⇩(2)　実行時バインディングでの宣言と生成 ============
21. 　Dim cn As Object 　 '←Connectionオブジェクトの宣言
22. 　Dim rs As Object 　　 '←Recordsetオブジェクトの宣言
23. 　Dim cmd As Object 　 '←Commandオブジェクトの宣言
25. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトの生成
26. 　Set rs = CreateObject("ADODB.Recordset") 　　 '←Recordsetオブジェクトの生成
27. 　Set cmd = CreateObject("ADODB.Command") 　 '←Commandオブジェクトの生成
28. 　
29. 　（ 生成したcn,rs,cmdオブジェクト変数を使い、接続やデータ取得・変更の処理･･･等）

図１３別窓
２１～２３行目では、単なるObject型として変数宣言をします。
２５～２７行目では、CreateObject関数を使って各オブジェクトを生成します。オブジェクト生成後は、そのオブジェクト変数（図１３では、cn,rs,cmd ）を使って処理作業を行います。

４．Connectionオブジェクト

Connectionオブジェクトには複数のプロパティ・メソッドが存在します。
データベースに接続するためには、接続条件を指定したOpenメソッドの実行が必須ですが、Openの前にConnectionStringプロパティ、Providerプロパティなどに接続条件を事前設定させる手法も使えます。
またConnectionオブジェクトのExecuteメソッドを使えば、コマンドが実行できます。

４ー１．Openメソッド他（データベース接続関係）

データベースに接続するには、下記のようにConnectionオブジェクトのOpenメソッドを使います。
　Connection.Open (ConnectionString, UserID, Password, Option)
ConnectionのOpenメソッドには、４つのパラメータ設定が可能です。全て省略可です（図１４）。

Connection.Openメソッドのパラメータ

パラメータ		内容
ConnectionString	省略可	接続情報（図１５）
UserID	省略可	接続時のユーザー名
Password	省略可	接続時のパスワード
Options	省略可	接続の同期/非同期（図２６）

図１４別窓
なお、第４パラメータのOptionsは、ExecuteメソッドのOptionsとは全く別なので混同に注意です。

４ー１ー１．第１パラメータ（ConnectionString：接続情報）

図１４の第１パラメータ（ConnectionString）には、図１５のような情報を「文字列」として組み込みます。各項目の区切りは「;（セミコロン）」です（最後の項目の末尾には、セミコロンは必須ではありません）。
図１５では「ODBC列」と「JET・ACE列」の２通りを併記していますが、「ODBC列」の情報を使うことで、今回の図０１のように「MSDASQLプロバイダー」→「各ODBCドライバー」→「各データベース」という流れで接続・操作ができます。
なお「ODBC列とJET・ACE列の混在」はできません。

ADOのConnectionStringの接続情報

内容	ODBC	JET・ACE
ﾌﾟﾛﾊﾞｲﾀﾞｰ	Provider=MSDASQL	Provider=Microsoft.ACE.OLEDB.12.0 等
ﾄﾞﾗｲﾊﾞｰ	Driver={ODBCのﾄﾞﾗｲﾊﾞｰ名}	ー
ﾃﾞｰﾀﾍﾞｰｽ名	DBQ=ﾃﾞｰﾀﾍﾞｰｽ名	Data Source=ﾃﾞｰﾀﾍﾞｰｽ名
DSN名	DSN=DSN名	ー
ﾕｰｻﾞｰ名	UID=ﾕｰｻﾞｰ名	User ID=ﾕｰｻﾞｰ名
ﾊﾟｽﾜｰﾄﾞ	PWD=ﾊﾟｽﾜｰﾄﾞ	Password=ﾊﾟｽﾜｰﾄﾞ
URL名	(URL=URL名)	ー
読取/書込	ReadOnly=1(True)/0(False)	ー
拡張ﾌﾟﾛﾊﾟﾃｨ	ー	Extended Properties=拡張情報

図１５別窓
ODBC接続に必須な第１パラメータの内容は「プロバイダー」と「ドライバー名」「データベース（DB）名」です。しかし、ドライバーとデータベースの代わりに「DSN」を指定する方法もあります。まとめると、図１６のように３通りが考えられます。

図１６別窓
まず、プロバイダーの指定は必須ですが、既定値が「MSDASQL」ですので省略も可能です。
１つ目の方法（図１６の①）は、「ODBCドライバー」と「データベース」を指定する方法です。ODBCドライバーには、図０４の右側で示したドライバーリストから種類に合った１つを指定します。データベースには、AccessやExcelのファイル名を、CSVファイルの場合はフォルダー名を指定します。
２つ目の方法（②）は、「DSN」で説明したDSN（Data Source Name）を指定する方法です。DSNを作成するにはドライバーの指定が不可欠ですので、それに加えてデータベースを事前に設定しておけば、ドライバーとデータベースの両方が指定されている事になり、DSNの指定のみでOKとなります。
３つ目の方法（③）は、データベースが未設定のDSNの指定と合わせて、データベース設定を別個に指定する方法です。この手法でも、ドライバーとデータベースの両方が指定されていることになるのでOKです。
なお、データベース設定済みのDSNに対してこの方法を使うと、DBQ=で設定するデータベースの方が優先されます。

４ー１ー１ー１．プロバイダー名

ODBCを使用する際は、プロバイダー名には「MSDASQL」を使用します。なお、ADOではプロバイダーの既定値は「MSDASQL」ですので、省略も可能です。
このプロバイダーは標準でWindowsにインストールされていますが、それを確認するには「WindowsのPowerShell」で下記コマンドを実行します。
「 (New-Object data.oledb.oledbenumerator).getElements() | select SOURCES_NAME, SOURCES_DESCRIPTION 」
結果は、例えば図１７のようになり、MSDASQLプロバイダー（赤矢印）が入っている事が確認できます。

図１７別窓
なおPowerShellには何種類かがありますが、ビット版で考えると「PowerShell」と「PowerShell(x86)」の２種類です。最近のWindows（64ビット）で考えると、単なる「PowerShell」が64ビット版で、「PowerShell(x86)」が32ビット版です。
インストールされている（＝使用可能）なプロバイダーを調べるには、以下のようにします。
　・Windowsが64ビット版 ＋ Officeが64ビット版　→　「PowerShell」で上記コマンドを実行
　・Windowsが64ビット版 ＋ Officeが32ビット版　→　「PowerShell(x86)」で上記コマンドを実行
　・Windowsが32ビット版 ＋ Officeが32ビット版　→　「PowerShell」で上記コマンドを実行
Windowsが32ビット版の場合、そのPowerShellは32ビット版となります。また、Officeは32ビット版に限りられます。
つまり「Officeのビット版と同じビット版のPowerShellを使用」すると、使用可能なプロバイダーが分かるようです。
図１７は「Windowsが64ビット版 ＋ Officeが64ビット版」の時のもので、PowerShellも64ビット版ですが、32ビット版のPowerShell(x86)でコマンドを実行してみても、以下のようにMSDASQLが入っている事が分かります。

図１８別窓
プロバイダー名をConnectionStringに指定する場合は、"Provider=MSDASQL;" とします。
また、Providerプロパティに直接指定する場合は、Connection.Provider="MSDASQL"とします。

４ー１ー１ー２．ドライバー名

ドライバーは、対象となるデータベース種に対応したものを選択します。且つ、そのドライバーを使うアプリ（今回だとExcel）のビット数に合ったものにする必要があります。
64ビット版のWindowsには、64ビット版ODBCと32ビット版ODBCがありますが、例えば私の64ビット版Officeが入っているPCでは、図１９のように、ドライバー種はかなり違います。

図１９別窓
一方、32ビット版Officeが入っているPCでは図２０のようになります。

図２０別窓
図１９と図２０を比較してみると、Officeのビット版と同じビット版のドライバー側に「必要とするドライバー」が入っていることが分かります。Officeがインストールされる際に、それに関連するドライバーもインストールされている様です。
且つ「ドライバーの名称は、32ビット版も64ビット版も同じ」ようなので、ビット版が混在する複数のPCに対してのプログラムでも、ビット版を意識せずに同じコードで動くと言えます。
なお、ExcelとAccessについては、ドライバーは下記の１種類ずつなので、一意に決まりそうです。
　・Excel ：Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)
　・Access：Microsoft Access Driver (*.mdb, *.accdb)
一方CSVファイル用のドライバーは、色々な種類がありそうですが、CSVと言えども「Officeのビット版と同じビット版のODBCに入っているドライバー」のみが対応できます。つまりCSV（テキストファイル）には、以下のドライバーを使うのが安全です。
　・CSV ：Microsoft Access Text Driver (*.txt, *.csv)
なお、32ビット版のOfficeであるならば「Driver da Microsoft para arquivos texto (*.txt; *.csv)」等でも動きます。但しスペルに気を付ける事と、カンマの代わりに「;（セミコロン）」を使っている事にご注意下さい。
このドライバー名をConnectionString等に指定する場合は、ドライバー名を波かっこ（ { } ）で括り、「Driver=」の後ろに続けます。
　"Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"　など

４ー１ー１ー３．データベース名

データベース名は、対象とするデータベースの種類により図２１のように変わります。

	データベース名
Access	ファイル名（*.accdb, *.mdb）
Excel	ファイル名（*.xlsx 等）
CSV等	CSVﾌｧｲﾙがあるフォルダー名

図２１別窓
AccessやExcelのように、ファイル内に複数のテーブルを持てるタイプでは「ファイル名」がデータベース名となりますが、CSVファイルのようにファイル＝テーブルのようなものは「フォルダー名」がデータベース名となります。
データベースを指定するには「DBQ=」を使用し、例えば以下のようにします。
　・Access："DBQ=C:¥Data¥its-041.accdb;"
　・Excel ："DBQ=C:¥Data¥its-041.xlsm;"
　・CSV ："DBQ=C:¥Data¥;"
なお、CSVの文字列最後の¥印は、あっても無くても変わりません。

(テーブル名) 各データベースに於ける「テーブル」について図２２に示します。 テーブル 例 操作するﾃｰﾌﾞﾙ SQLのテーブルとして Access テーブル名 TestTable "TestTable" "Select * from TestTable" Excel ﾜｰｸｼｰﾄ名 Sheet1 "Sheet1$" "Select * from [Sheet1$]" CSV等 CSVﾌｧｲﾙ名 its-041.csv "its-041.csv" "Select * from [its-041.csv]" 図２２別窓 Accessに於けるテーブルは、通常のデータベースとしてのテーブルと同じ扱いになります。 Excelでは、ワークシートがテーブル扱いとなります。例えばSheet1にデータがあるとし、Recordset.Openの第１パラメータにテーブル名を指定するような場合は、「"Sheet1$"」のように「シート名＋$マーク」とします。またSQL文の中で使用する場合は、更に角カッコで囲み「Select * from [Sheet1$] 」のようにします。 CSVでは、CSVファイルそのものがテーブル扱いとなります。ファイル名がits-041.csvとすれば、テーブル名指定の場合はファイル名をそのまま使用して「"its-041.csv"」とし、SQL文の中で使う場合は角カッコで囲み「Select * from [its-041.csv] 」とします。

なおAccess,Excel,CSVはでは、上記のように「DBQ=」を使用してデータベースを指定しますが、SQL Serverでは「DATABASE=」を使用するようです。

４ー１ー１ー４．DSN名

ドライバーとデータベースの情報を１つにまとめた「DSN」名をODBCダイアログから選んで指定します。
図２３は左右図とも私のPCのものですが、64ビット版OfficeがインストールされたPCですので、同じ64ビット版のODBC（左側）からDSNを選ぶことになります。

図２３別窓
ODBCを初めて使用する状態では、図２３のように「Excel File」と「MS Access Database」は既定で作られています（違う場合もあるとは思います）ので、データベースファイルを設定すれば、すぐ使えることになります。しかしCSV等のテキストファイルについては「テキストのDSN」などを参考に元から作る必要があります。
一方、32ビット版Officeが入っているPCでは図２４のようになります。

図２４別窓
図２３と図２４を比較してみると、64ビット版も32ビット版も、同じ名前でExcelとAccessのDSN（データベースは未設定）は作られている事が分かります。ですので図１６の③のパターンであれば、面倒なドライバー名を書き写さなくても、複数人に配布するプログラムに盛り込めるとも言えます。
しかし、このDSNはユーザー自身が簡単に名前変更などが可能ですので、「DSNの変更禁止」を徹底しておく必要があります。
また同様に、データベースを設定したDSNを使う場合も、１台１台のPCへのDSN設定が必要になりますし、例えそれが可能だったとしても、ユーザー自身によるDSN変更の懸念は無くなりません。
まとめると、DSNを使うとプログラムが単純になりますし、オプション設定等もありますので、個人で使うにはメリットが大きいと思います。しかし複数人で同じプログラムを使う場合は、図１６の①の「ドライバー設定 ＋ データベース設定」の方が安全だと考えます。
ConnectionオブジェクトへのDSNの設定時は、ConnectionStringに"DSN=Excel Files;" 等と指定します。

４ー１ー１ー５．ユーザー名、パスワード

データベースに「ユーザー名」や「パスワード」が設定されている場合は、ConnectionStringに指定します。
なお、Excelの「ブックの保護」で設定したパスワードは対象外です（「Password=ブック保護のパスワード」を指定しても、データは取得できません）。
このユーザー名・パスワードを「ExcelのVBA側で作成したAccessファイル」に設定しようと試みました。やり方としては、ADOXのUsersコレクションから、NameプロパティとChangePasswordメソッドを使うと思われますが、残念ながらExcel VBAからは操作できませんでした。
実際のAccessで作成されたデータベース（*.accdb, *.mdb）の場合は当然設定が可能だと思います。
またこの内容は、Openメソッドの第２・第３パラメータと同じと思われます。

４ー１ー１ー６．URL名

URL名は、例えば「https://www.〇〇/sample.xlsx」のようなものはプロトコル上から無理だとは思いましたが、LANの共有サーバーのような「¥¥Server1¥Excel¥sample.xlsx」であれば大丈夫かな？と考えて試してみましたが、ダメでした。共有サーバーの場合はDBQを使い「DBQ = ¥¥Server1¥Excel¥sample.xlsx」等とすれば動くようです。
それならば「URLはどういう場面で使うのか」については、結局わかりませんでした。ですので図１５ではカッコ付きとしてあります。

４ー１ー１ー７．読取／書込

読取／書込の「ReadOnly=」については、私もずっと勘違いしていましたが、「"ReadOnly=True"」や「"ReadOnly=" & True （文字列としては "ReadOnly= -1" になる）」では、読み取り専用の状態にはならない事がわかりました。
読み取り専用にするには「"ReadOnly=1"」とすることが必要です。
それ以外は全て「"ReadOnly=0"（書き込みもOK）」となり、注意しなければいけないのはスペースで「"ReadOnly =1"」のように「イコール記号の前にスペースを入れる」と「ReadOnly=0（書き込みOK）」となってしまいます。ちなみに「"ReadOnly=False"」と指定すると、"False"は文字列なのでゼロ値とみなされるため、ReadOnly=0 と解釈されるようです。
またReadOnlyを省略したときの既定値ですが、以下のようにドライバー毎に異なります。

ドライバー	ReadOnly= 省略時
Access	False（書込可）
Excel	True（読込のみ）
Text(CSV)	False（書込可）

図２５別窓
Excelだけは「省略するとReadOnly=1（True）」なので、書き込みが必要な場合は「ReadOnly=0;」の記述が必要です。
またAccessとCSVは、省略すると書き込み可となります。ですので書き込みさせたくない場合は「ReadOnly=1;」とすれば良いのですが、基本的には「常にReadOnly=〇〇; を記述」し、データベースへの処理を明確にするのが大切と思います。

（Modeプロパティ） ADOでは、ConnectionオブジェクトのModeプロパティを操作する接続文字列として「Mode=Read;」や「Mode=RadWrite;」も存在するようです。しかしExcelのVBAでは「Mode=Read;」は使えそうですが、「Mode=RadWrite;」ではエラーが出てしまいます。 やはりExcelでは「ReadOnly=0／1」を使うしかなさそうです。

（HDRなどの設定） HDR（データの先頭行がタイトルか否か）、IMEX（読取／書込）、FMT（データ区切り記号）の設定等は、ACE・Jetプロバイダーでは「拡張プロパティ（Connection.Properties("Extended Properties")= ）」から可能でした。しかしMSDASQLプロバイダーでは、同じように指定しても機能してくれず、その設定方法が分かりません。 但し、DSNの中では図０８の⑧「列名の見出し」をOFFにすれば、１行目もデータとして読み込んでくれるようです。しかしExcelのDSN（図０７）にはそれらしいチェックボックスが見当たらず、「MSDASQLでは、HDRなどの細かい設定は不可能」と考えた方が良さそうです。

４ー１ー２．第２・第３パラメータ（UserID、Password）

Connection.Openの第２、第３パラメータは「UserID」と「Password」です。データベース接続にユーザー名とパスワードが必要な場合は設定をします。なおこの項目は、ConnectionStringのユーザー名（UID）・パスワード（PWD）と同じもののようです。

４ー１ー３．第４パラメータ（Options：同期／非同期）

Connection.Openの第４パラメータ（Options）には、以下の値を指定します。

定数	値	内容
adAsyncConnect	16	接続を非同期で開く
adConnectUnspecified	-1	接続を同期で開く(既定)

図２６別窓
同期で開く（既定）場合は、Openの処理をしている間は他の処理が出来ませんが、非同期の場合はOpen処理をしている間も次の処理に移る事が可能になります。
例えばOpen処理に多くの時間が必要で、且つ併行して行う作業が存在するようなシステムでは非同期での実行も考えられますが、その場合はOpen処理が「完了したか否か」をStateプロパティ等で確認してからレコードセット取得処理やExecute処理に移る必要があります。
それ以外では、既定の「同期で開く」で良いと思われます。
なお同期・非同期の情報保持は、OpenしたConnectionオブジェクトのどのプロパティが担当しているかは分かりませんでした。ですのでOpen前に「同期・非同期をプロパティ設定」する手法は不明です。

４ー１ー４．データベース接続までのコード例

接続情報を指定してデータベースに接続する手順を、簡単な例で紹介します。
まず、Connection.Openメソッドの第１パラメータ（ConnectionString）に「プロバイダー名＋ドライバー名＋データベース名を指定」する書き方を図２７に示します。なおADOオブジェクトは実行時バインディング（以下同様）としています。

40. '==========　⇩(3)　Openメソッド実行時に全て指定 ============
41. 　Dim cn As Object 　 '←実行時バインディングのConnectionオブジェクト
42. 　Dim s As String 　 '←ConnectionStringの内容
44. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトを生成
46. 　s = "Provider=MSDASQL;" 　 '←プロバイダー
47. 　s = s & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　　 '←データソース情報
48. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　　　　　 '←データソース情報
50. 　cn.Open s 　 '←プロバイダー＋ドライバ＋データソースをOpenメソッドの第１パラメータに指定
51. 　　　（処理）

図２７別窓
４４行目「Set cn = CreateObject("ADODB.Connection")」で、Connectionオブジェクトを生成します。
４６～４８行目で、Openメソッドの第１パラメータ（ConnectionString）の文字列を作成しています。プロバイダー（Provider=）としては今回「MSDASQL」を、ドライバー（Driver=）としては図１９・図２０のドライバー名「Microsoft Access Driver (*.mdb, *.accdb)」を波かっこ（ { } ）で括ります。またデータベース（DBQ=）として「ThisWorkbook.Path & "¥" & "its-041.accdb"」を指定します。なお、各項目はセミコロン（ ; ）で区切ります。
パラメータ用の文字列が完成したら、５０行目「cn.Open s」で、Openメソッドの第１パラメータに接続情報を渡して、データベースに接続します。
図２７では、全ての接続文字列をOpenメソッドのパラメータに指定して、データベースに接続させています。しかし、Connectionオブジェクト配下には様々なプロパティ（図２８：接続情報に関するもののみ）があり、そのプロパティに値を直接指定したり、Openメソッドへのパラメータと併行して指定する方法もあります。

プロパティ		内容
ConnectionString		接続情報文字列
Provider		接続するﾌﾟﾛﾊﾞｲﾀﾞ名 (既定：MSDASQL)
Properties ｺﾚｸｼｮﾝ	Password	パスワード
	User ID	ユーザー名
	Extended Properties	接続情報文字列

図２８別窓
なおPropertiesコレクションには「Data Source」プロパティもあるのですが、MSDASQLでのDBQ=の値は「Data Sourceプロパティに格納しても認識されない」のでエラー発生します。この点は、プロバイダーにACEやJetを使った時との大きな違いかもしれません。
この各プロパティに接続情報を格納する前に、まず図１５の接続情報を分類しておく必要があるようです。私が整理したのは図２９のように３種に分ける方法です。

種類	内容	接続情報
Ａ	プロバイダ情報	Provider=
Ｂ	必須情報	Driver=、DBQ=、DSN=
Ｃ	準必須情報	ReadOnly=など（UID=、PWD=はここか？）

図２９別窓
接続情報の内、UIDとPWDがどの分類に入るかは特定できていません。理由は、Excel VBAからデータベース（Access）ファイルに対し、ユーザー名（UID）とパスワード（PWD）が設定できなかったためです。パスワード等を設定していないAccessファイルに対して、UIDとPWDを接続情報として指定しても、どうやら無視されているようで、どこに分類されるのかが判断できませんでした。
またBは「Driver＋DBQ」「DSN」「DSN＋DBQ」と、図１６のように３種ありますが、この組み合わせとしてBに分類されるようです。
これらの接続情報を指定する場所としては、以下の４箇所が考えられます。
　・Connection.Provider= 接続情報
　・Connection.ConnectionString = 接続情報
　・Connection.Properties("Extended Properties")= 接続情報
　・Connection.Open (接続情報)
もちろん、どこに指定しても良いわけでは無く、できる箇所・できない箇所がありますし、「ConnectionString　と　Properties("Extended Properties")を併行して使用してしまうと、後から設定した方のみが有効」となるため、どちらか一方のみの使用が良さそうです。
試してみると指定可能な場所は以下のようになり、これ以外の組み合わせではエラーとなりました。なお表内のA・B・Cは図２９のA・B・Cです。

指定箇所		1	2	3	4	5	6	7	8
Connection.Provider=				A	A	A
Connection.ConnectionString = Connection.Properties("Extended Properties")=		A+B+C		B+C		C	A	C	A+C
Connection.Open			A+B+C		B+C	B	B+C	A+B	B

図３０別窓
なお、MSDASQLプロバイダーをProviderに指定する際は、単純に「Connection.Provider = "MSDASQL"」としますが、それ以外の設定場所の場合は「"Provider = MSDASQL;"」という文字列にします。
例えば図３０のNo5をコードで表現すれば以下（図３１）のようになります。

60. '==========　⇩(4)　接続情報を分割して指定１ ============
61. 　Dim cn As Object 　 '←実行時バインディングのConnectionオブジェクト
62. 　Dim s As String 　 '←ConnectionStringの内容
64. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトを生成
66. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　　 '←ドライバー情報
67. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　　　　　 '←データソース情報
69. 　cn.Provider = "MSDASQL;" 　 '←プロバイダー（A）
70. 　cn.ConnectionString = "ReadOnly=1;" 　 '←読取／書込情報をConnectionStringプロパティに渡す（C）
72. 　cn.Open s '←ドライバ情報＋データソース情報をOpenメソッドに渡して実行（B）
73. 　　　（処理）

図３１別窓
６６～６７行目で、ドライバー情報とデータソース情報の文字列をまとめます。
６９行目「cn.Provider = "MSDASQL;"」でプロバイダーを指定します。なおMSDASQLは既定値なので、６９行目が無くても問題ありません。
７０行目「cn.ConnectionString = "ReadOnly=1;"」で、読取／書込の情報をConnectionStringプロパティに指定します。
７２行目「cn.Open s」で、ドライバー情報とデータソース情報をパラメータに指定してOpenメソッドを実行します。
このコードであれば、データベースに接続できます。
しかし、ＢとＣを逆にしたコード（図３２）では、エラーが出てしまいます（このパターンは、図３０には入れていません）。

80. '==========　⇩(5)　接続情報を分割して指定２（ダメな例） ============
81. 　Dim cn As Object 　 '←実行時バインディングのConnectionオブジェクト
82. 　Dim s As String 　 '←ConnectionStringの内容
84. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトを生成
86. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　　 '←ドライバー情報
87. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　　　　　 '←データソース情報
89. 　cn.Provider = "MSDASQL;" 　 '←プロバイダー（A）
90. 　cn.ConnectionString = s 　 '←ドライバ情報＋データソース情報をConnectionStringプロパティに渡す（B）
92. 　cn.Open "ReadOnly=1;" '←読取／書込情報をOpenメソッドに渡して実行（C）
93. 　　　エラー発生し処理不可

図３２別窓
８９行目までは図３１と同じですが、９０行目「cn.ConnectionString = s」でドライバ情報とデータソース情報をConnectionStringプロパティに渡し、９２行目「cn.Open 　"ReadOnly=1;"」で、←読取／書込情報をOpenメソッドに渡して実行しています。
これだとエラーが発生し、データベースには接続できません。
この結果からルールを見つけるために図３０を良く見てみると、まず「Connection.Provider=」に指定できるのは、当然ながらProvider情報（図２９のＡ）のみです。
その他の情報（図２９のＢとＣ）はConnectionStringに指定する方法とOpenメソッドのパラメータに設定する方法が考えられますが、「Openメソッドのパラメータにする場合、Ｂは必須」となっています。
接続情報の指定の仕方として他のサイトでは、図３０の1～3あたりを紹介することが多いように思いますが、違う組み合わせでも接続できるため、状況に合わせて指定して下さい。
またConnectionStringプロパティに文字列を指定する際、「Cn.ConnectionString = "Extended Properties=""接続文字列"""」のように「Extended Properties=」の後ろ側に指定する手法を紹介しているサイトもあります。しかし、図３１の７０行目のように「Cn.ConnectionString = "接続文字列"」と、直接ConnectionStringプロパティに指定する場合と差は無さそうです。
プロパティ値の動きを確認してみると、動作としては「Extended Properties=」があっても無くても、一旦ConnectionStringプロパティに値が設定され、その値が適切な場所（ConnectionオブジェクトのPropertiesコレクションのExtended Propertiesプロパティ　等）に格納されます。
一般的に良く紹介されている例として、図３０のNo.3に相当するコードを下記（図３３）で紹介します。

100. '==========　⇩(6)　各プロパティに値を直接指定 ============
101. 　Dim cn As Object 　 '←実行時バインディングのConnectionオブジェクト
102. 　Dim s As String 　 '←ConnectionStringの内容
104. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトを生成
106. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　　 '←ドライバー情報
107. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　　　　　 '←データソース情報
108. 　s = s & "ReadOnly=1;" 　　　　　 '←その他の情報
110. 　cn.Provider = "MSDASQL" 　 '←プロバイダーを設定（A）
111. 　cn.ConnectionString = s 　 '←ﾄﾞﾗｲﾊﾞ情報＋ﾃﾞｰﾀｿｰｽ情報＋その他の情報をConnectionStringﾌﾟﾛﾊﾟﾃｨに渡す（B+C）
113. 　cn.Open 　 '←パラメータ無しでOpenメソッドを実行
114. 　　　（処理）

図３３別窓
１１０行目「cn.Provider ="MSDASQL"」で、ConnectionオブジェクトのProviderプロパティに、MSDASQLプロバイダーを設定しています。
１１１行目「cn.ConnectionString = s」で、ConnectionオブジェクトのConnectionStringプロパティに、ドライバ＋ファイル名＋その他の接続情報を設定しています。
１１３行目「cn.Open」で、Openメソッドのパラメータは無しでデータベースに接続します。

４ー２．Executeメソッド（コマンドの実行）

ConnectionオブジェクトのExecuteメソッドの構文は以下のようになります。戻り値は「Recordsetオブジェクト」です。
　Set Recordsetオブジェクト = Connection.Execute( CommandText, RecordsAffected, Options )
Recordsetオブジェクトとして受け取る場面は、第１パラメータのCommandTextに「テーブル名」や「SQL文のSelect文」を指定し、戻ったレコードセットに対して処理を行う時だと思いますが、この時の戻り値（Recordsetオブジェクト）のデータは、「読み取り専用」です。その為、取得したデータの出力等の操作のみが可能で、追加・変更・削除処理は出来ない事になります。
なお第１パラメータに「InsertやUpdate・DeleteのSQL文を指定」した場合は、戻り値を操作する訳では無いので、追加・変更・削除処理は可能です（Excelは削除不可、CSVは変更・削除不可 である事は変わりません）。
このようなInsert文等を指定した時は、変更を目的としたレコードセットを受け取る必要が無いので、以下のように戻り値を受け取らず、そのまま実行します。
　Connection.Execute( CommandText, RecordsAffected, Options )
なおレコードセットを受け取る必要が無くても、ExecuteメソッドはRecordsetオブジェクトを戻してきます。もし、その戻されたRecordsetオブジェクトがデータか否かを調べる必要がある場合には「戻されたRecordsetオブジェクトのStateプロパティ」を確認します。
値が１（adStateOpen）であればデータとしてのレコードセットであり、ゼロ（adStateClosed）であればデータでは無い（例：Insert文を実行した等）事が分かるようです。なお「Recordset.Close メソッド」を実行すると、State値はゼロ（adStateClosed）になります。
Executeメソッドに指定できるパラメータは、以下の内容になります。

パラメータ		内容
CommandText	必須	テーブル名､SQL文 等
RecordsAffected	省略可	Long型の変数に､変更レコード数を戻す
Options	省略可	CommandTextの種類(図３７)

図３４別窓
第１パラメータ（CommandText）は必須で、テーブル名、またはSQL文 等を文字列で指定します。
第２パラメータ（RecordsAffected）には、Long型の変数を指定します。第１パラメータにデータ変更を伴うSQL文（Insert・Update・Delete）を指定しExecuteメソッドを実行すると、変更対象となったレコード数がこの変数に戻されます。コードで示すと、図３５のようになります。

120. '==========　⇩(7)　Connection.Executeで変更対象行数を取得 ============
121. Sub Record_Count()
122. 　Dim cn As Object 　 '←Connectionオブジェクト
123. 　Dim SQL As String 　 '←SQL文
124. 　Dim cnt As Long 　 '←変更対象のレコード数
125. 　Dim s As String 　 '←接続文字列
127. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトの生成
129. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←ドライバー情報
130. 　s = s & "DBQ=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" 　 '←データソース情報
131. 　s = s & "ReadOnly=0;" 　 '←その他の情報
133. 　cn.Provider = "MSDASQL" 　 '←プロバイダーをODBCに設定
134. 　cn.ConnectionString = s 　 '←ドライバ情報＋データソース情報＋その他の情報をConnectionStringプロパティに渡す
136. 　cn.Open 　 '←データベースに接続
137. 　　SQL = "update [db$] set St='XYZ' where DT=#2000/11/20#" 　 '←SQL文にUpdate文を設定
139. 　　cn.Execute SQL, cnt 　 '←SQL文を実行し、変更対象レコード数をcnt変数で取得
141. 　　MsgBox "変更対象のレコード数：" & cnt & "行" 　 '←変更対象レコード数を表示
142. 　cn.Close 　 '←データベースを閉じる
144. 　Set cn = Nothing
145. End Sub

図３５別窓
１３９行目「cn.Execute SQL, cnt」で、Executeメソッドの第２パラメータに指定した「Long型の変数cnt」に、変更対象となったレコード数が戻されますので、それを１４１行目「MsgBox "変更対象のレコード数：" & cnt & "行"」でメッセージ表示をさせています。
出力された様子は図３６のようになります。

図３６別窓
SQL文は１３７行目の「update [db$] set St='XYZ' where DT=#2000/11/20#」ですので、DT列（３列目）が2000/11/20のものを抽出し、St列（１列目）の値をXYZに変更しています。図３６のワークシートで、Dt列が「2000/11/20」なのは６～８行の「３レコード」なので、メッセージ表示も３行となります。
但し、このSQL文で「変更する以前からSt列がXYZ」だった場合でも、値が変更された事は事実なので３行と表示されます。つまり、値が変わったことを表すのでは無い事には注意が必要です。言ってみれば「Select count(*) from [db$] where DT=#2000/11/20#」を実行した時に得られる値になります。
第３パラメータ（Options）は、第１パラメータ（CommandText）に指定したものの種類を指定します。

Options（第１パラメータの種類）

定数	値	内容
adCmdUnspecified or adOptionUnspecified	-1	種類を指定せず
adCmdText	1	SQL文
adCmdTable	2	テーブル
adCmdStoredProc	4	ｽﾄｱﾄﾞﾌﾟﾛｼｰｼﾞｬ
adCmdUnknown	8	不明（既定）
adAsyncExecute	0x10(16)	非同期実行
adAsyncFetch	0x20(32)	残り行を非同期で取得
adAsyncFetchNonBlocking	0x40(64)	取得中にﾌﾞﾛｯｸせず
adExecuteNoRecords	0x80(128)	行を返さないｺﾏﾝﾄﾞ
adCmdFile	256	Recordsetファイル
adCmdTableDirect	512	全列が返るテーブル （ExcelシートDB､CSVファイル）
adExecuteStream	0x400(1024)	ｺﾏﾝﾄﾞ実行結果をｽﾄﾘｰﾑとして返すもの
adExecuteRecord	0x800(2048)	単一行を返すもの

図３７別窓
既定値はadCmdUnknown（値＝8）で、SQL文を指定した場合は既定（第３パラメータを省略）でも正しく判定してくれます。
なお、ACE・Jetプロバイダーの時には「adCmdTableDirect（値＝512）を指定すれば、Excel・CSVでもテーブル名で接続可」でしたが、MSDASQLプロバイダーでは「ExcelとCSVでは、第１パラメータにテーブル名を指定した時には、Optionsパラメータに何を指定してもエラー」が発生してしまい、レコードの取得が出来ません。
このことから「Excel・CSVでは、テーブル名での操作は不可」となります。
またAccessでテーブル名を指定する際は、Optionsパラメータを省略する他、様々な値でもOKです。詳しくは「よりみち」を参照ください。

５．Recordsetオブジェクト

５ー１．Openメソッド（レコードセット取得）

データベース接続後は、データベースから値をレコードセットとして受け取り処理をしたり、データを変更（Insert、Update、Delete処理）したりする作業に移ります。
そのレコードセットの取得やデータ変更のSQL文を実行する方法の１つとして、下記のようにRecordsetオブジェクトのOpenメソッドを使う方法があります。
　Recordset.Open (Source, ActiveConnection, CursorType, LockType, Options)
このOpenメソッドを実行すると、レコードセットを取得した場合はRecordsetオブジェクトにデータ（レコードセット）が入ります。
レコードセットのOpenメソッドには、下記の５つのパラメータが設定可能です。

Recordset.Openメソッドのパラメータ

パラメータ		内容
Source	省略可	①テーブル名 ②SQL文 ③Commandｵﾌﾞｼﾞｪｸﾄ
ActiveConnection	省略可	④Connectionオブジェクト ⑤ConnectionString文 (SourceにCommandｵﾌﾞｼﾞｪｸﾄを指定した場合は省略する事)
CursorType	省略可	カーソルの種類(図３９)
LockType	省略可	ロックの種類(図４０)
Options	省略可	Source(第1ﾊﾟﾗﾒｰﾀ)の種類(図３７)

図３８別窓

５ー１ー１．各パラメータの値

第１パラメータのSourceは、テーブル名①やSQL文②を指定します。また事前にCommandオブジェクトのCommandTextプロパティにテーブル名やSQL文をセットしておき、そのCommandオブジェクト③を第１パラメータに指定することも可能です。
なお、Commandオブジェクトを指定する場合は、CommandTextプロパティにテーブル名やSQL文を格納するのと同時に、ActiveConnectionプロパティに接続中のConnectionオブジェクトを指定することが必要です。そして、下で説明する第２パラメータは必ず省略させます。
第２パラメータのActiveConnectionは、接続しているConnectionオブジェクト変数④を指定します。その他の方法として、Connectionオブジェクトの接続情報⑤を文字列で指定することも可能です。
この接続情報を文字列で指定する場合は、ドライバー情報・データベース名情報は必須です（Provider情報は、既定値がMSDASQLなので無くても大丈夫です）。なお、データベース名を登録しているのであればDSN情報のみでもOKです。
また、第１パラメータにCommandオブジェクトを指定した場合は、第２パラメータは必ず省略します。
第３パラメータのCursorTypeには、以下の定数を指定します。

CursorType（カーソルの種類）

定数	値	内容
adOpenForwardOnly	0	前方スクロールタイプカーソルを開く（既定）
adOpenKeyset	1	キーセットカーソルを開く
adOpenDynamic	2	動的カーソルを開く
adOpenStatic	3	静的カーソルを開く
adOpenUnspecified	-1	カーソルを指定せず（≒既定）

図３９別窓
第４パラメータのLockTypeには、以下の定数を指定します。

LockType（ロックの種類）

定数	値	内容
adLockReadOnly	1	読み取り専用レコードを示す（既定）
adLockPessimistic	2	編集直後にレコードをロックする
adLockOptimistic	3	Updateメソッドを呼び出すときにのみレコードをロック
adLockBatchOptimistic	4	バッチ更新
adLockUnspecified	-1	ロックの種類を指定せず（≒既定）

図４０別窓
この第３（CursorType）と第４（LockType）パラメータの設定には注意が必要です。「各パラメータの組み合わせ」で詳しく説明しますが、第１パラメータにテーブル名を指定する際に「第３と第４パラメータを省略すると、思った処理ができない」可能性があります。逆に第１パラメータにSQL文を指定すれば、大きな不具合は無さそうです。
第５パラメータのOptionsは、第１パラメータ（Source）に指定したものの種類を、図３７の定数で指定します。内容はConnectionオブジェクトのExecuteメソッドの第３パラメータ、CommandオブジェクトのExecuteメソッドの第３パラメータと同じです。
第１パラメータがSQL文の場合は第５パラメータは省略でもOKですし、Accessデータベースであればテーブルの場合でも省略しても問題ありません（詳細は「よりみち」を参照下さい）。しかし、テーブル名としてExcelのシート名やCSVのファイル名を指定する事は、MSDASQLプロバイダーでは出来ません。これはadCmdTableDirect（値＝512）を指定すればOKであったACE・Jetプロバイダーの場合と異なる点です。

５ー１ー２．各パラメータの組み合わせ

このRecordset.Open のパラメータの内、第１パラメータは「テーブル名」又は「SQL文」のどちらか（Commandオブジェクトでも間接的にはテーブル名かSQL文のどちらか）ですし、第５パラメータは、その第１パラメータに指定したものが何かを指定しますので一意で決まると言っても良いと思います。
また第２パラメータは接続したConnectionですし、その接続情報を文字列で指定したとしても、内容的には同じです。
多くの選択が可能なのは第３パラメータ（CursorType）と第４パラメータ（LockType）で、その組み合わせが実行内容にどのように影響しているかを確かめてみたのが以下になります。

５ー１ー２ー１．Accessの場合（Openメソッドにはテーブル名を指定）

データベース対象をAccessにし、第１パラメータ（Source）にテーブル名を指定した状態で、CurorType（第３パラメータ）とLockType（第４パラメータ）の色々な組み合わせ状態を作ります。その各組み合わせで、データ取得（Select）・データ挿入（Insert）・データ変更（Update）・データ削除（Delete）のどの操作が可能かをまとめたのが図４１です。

AccessDB + テーブル名

LockType定数	値	CursorType定数
		0 (Forward)	1 (Keyset)	2 (Dynamic)	3 (Static)	-1 (Unspecified)
adLockReadOnly	1	S･･･	S･･･	S･･･	S･･･	S･･･
adLockPessimistic	2	S[IUD]	SIUD	SIUD	SIUD	S[IUD]
adLockOptimistic	3	S[IUD]	SIUD	SIUD	SIUD	S[IUD]
adLockBatchOptimistic	4	S([IUD])	S(IUD)	S(IUD)	S(IUD)	S([IUD])
adLockUnspecified	-1	S･･･	S･･･	S･･･	S･･･	S･･･

S=Select処理、I=Insert処理、U=Update処理、D=Delete処理
「・」は処理不可
図４１別窓
まずLockTypeがadLockReadOnly（値＝1：読取専用）の場合は、Select処理のみとなります。またadLockUnspecified（値＝-1：指定無し）はadLockReadOnlyと同じ状態になります。
また、LockTypeがadLockPessimistic（値＝2：編集後にレコードロック）とadLockOptimistic（値＝3：呼出し時にレコードロック）の場合は、全ての処理が可能です。
一方でadLockBatchOptimistic（値＝4：バッチ更新）の場合は、IUD（＝Insert・Update・Delete）を丸カッコ "( )" 付きとしていますが、注意点が２つあります。
１つ目はUpdateやDelete作業時に次のレコードに移動（＝MoveNextメソッド実行時）する際、UpdateBatchでデータを確定させないと「新規取得する前に全ての行ハンドルを解放する必要があります」というエラーが発生します。これは「プロバイダーがJET･ACE」の時に説明したように、ExcelのVBA上では「バッチ処理として記憶できる容量が１レコード」である事と関係ありそうですが、詳しい事は分かりません。
２つ目は「レコードを変更した後にUpdateメソッド（書き込み処理）を実行しても、データベース本体には変更内容が保存されない」事です。バッチ処理という言葉の通り「UpdateBatch」メソッドを実行しない限り、変更内容はデータベースに保存されません。これも、プロバイダーにACE・Jetを指定した時と同じです。
またCursorTypeがadOpenForwardOnly（値＝0）及びadOpenUnspecified（値＝-1）の場合、IUD（＝Insert・Update・Delete）を角カッコ "[ ]" 付きとしています。この組み合わせの時には、下の「よりみち」のように「使用できないデータ型」が発生してしまう事と、「処理時に他の列のデータ値の影響を受ける」ことが分かりました。
対応としては、MSDASQLプロバイダーではCursorTypeがadOpenForwardOnly（値＝0）及びadOpenUnspecified（値＝-1）以外のCursorTypeを使用するか、またはテーブル名では無くSQL文を使用することをお勧めします。

(CursorType=adOpenForwardOnly（値＝0）での不具合) 「MSDASQLプロバイダー」＋ CursorTypeが「adOpenForwardOnly（値＝0）又は Unspecified（値＝-1）」＋「Accessテーブル名を指定」しての処理に特化して説明します。まずAccessには下図のように多くのデータ型が設定できます。 図４２別窓 （１）要注意のデータ型 図４２のデータ型に〇・△・×印をしてありますが、この内〇印は「問題なく処理が可能なデータ型」です。しかし△印、及び×印で示したデータ型は「注意が必要」となります。なお「レプリケーションID型」「添付ファイル型」は、Excel側からの対応方法が良く分からないので「？」印にしています。 その注意点ですが、まず「△印のデータ型のみで作成されたテーブル」では、データ変更処理（＝Insert・Update・Delete）時にエラーが発生します。逆に言うと、テーブルの中に「１つでも〇印のデータ型の列が存在すれば、エラーは出ない」ことになります。残念ながら、この理屈は全く分かりません。 一方×印のデータ型が入っているテーブルでは「テーブル内に〇印のデータ型列が存在していても、データ変更処理（＝Insert・Update・Delete）時にエラー」が発生します。 このエラー種類は全部で４種類（データ型種で数えると７種）あり、そのエラー内容を図４３にまとめました。左端の①～④は、図４２内の番号と合わせてあります。 レコード値の変更時 レコード値の取得時 ① － ② ③ － ④ － 図４３別窓 まず△印（〇印のデータ型の列が無いと、データ変更時にエラー発生）は①と②です。 データを変更しようとした場合、①のデータ型（長いテキスト型、単精度浮動小数点型、倍精度浮動小数点型、ハイパーリンク型）の列に対しては、「キーとして使用する検索可能な列がクエリに含まれていないため、クエリを更新できません」とのエラーが発生します。 また②のデータ型（OLEオブジェクト型）の列に対しては、データ変更の際に「複数ステップのOLE DBの操作でエラーが発生しました」とのエラーが発生します。 且つデータは「１文字単位の配列」となるため、通常は「貼付け先 = Recordset.Fields(1).Value」等のコードで済むところを、配列内文字列を一旦String型変数に代入する等の処理が必要となります。 次に×印（データ変更時に必ずエラー発生）は③と④です。 ③のデータ型（オートナンバー型）は、レコードを追加すれば勝手に連番を作ってくれるデータ型ですが、その機能に逆らって値を挿入する場合は「複数ステップのOLE DBの操作でエラーが発生しました」とのエラーが発生します。しかし追番を自動入力するのであれば、わざわざデータをその列に挿入する必要は無くなりますし、テーブル作成時に初期値を設定する事も可能なので、実害は少ないかと思います。 ④のデータ型（日付／時刻型）では「キャストの指定に無効な文字値が使用されました」とのエラーが発生します。この④のデータ型列が１列でも存在すれば、他列に〇印が在ろう無かろうと、エラーとなります。 （２）他列が処理内容に影響を与える 上記から考えると「〇印のデータ型を１列追加」したり「Date型の代わりに、Double型を使用」すれば良いように思えます。しかし試してみると、思いもかけない結果となります。 〇印のデータ列が１つのみ存在するテーブルでデータ処理（＝Update・Delete）をすると、無関係なレコードも処理してしまうのです。例えば図４４のような「〇印の列（BIT型）が１つ ＋ 他が△印列（LONGTRXT型、DOUBLE型×2）のテーブル」で、Double型列の値を検索して値変更処理を行うと、〇印のBIT列の値が同じレコード（この場合だと、対象レコード（３行目）の値がFalseなので、同じFalse値の２行目のレコード）にも変更処理が及んでしまうのです。 図４４別窓 図４４では対象行がFalseですが、逆に変更行のBL列値がTrueであれば、そのTrueとなっている他レコードが変更されてしまいます。もちろん、テーブルに特殊な関係性を与えている訳でもありませんし、検索列をNu列とした場合でも同じ現象が起きますので、列の並びにも無関係のようです。 なお〇印の列を複数列作ったテーブルの場合は、その「〇印の列のセット」として同じ値のレコードが処理追加対象となってしまうようです。 （３）対応案 CursorTypeにどうしてもadOpenForwardOnlyを使用したい場合は、テーブルのデータ型を工夫し図４２の〇印のデータ型を複数列作成する事と合わせ、列のセットとして異なる値を入れる必要が出てきます。これは結構面倒ですし、完璧ではありません。 その代わりとして、オートナンバー型（COUNTER型、AUTOINCREMENT型）の列を設けて置き、そこに連番を自動入力させるようにすると、セットとしてユニークな値となるので、正しく処理が行われるようです（簡単なチェックしかしていないので、ダメな場合があるかもしれません）。 しかしこのエラーや不具合は、今のところ「MSDASQLプロバイダー」＋「CursorType=adOpenForwardOnly（値=0）又は adOpenUnspecified（値=-1）」＋「テーブル名を指定」の条件で発生しますので、以下の対応が良いかと思います。 　・他のCursorTypeを使用 　・SQL文で処理 なお、OLEオブジェクト型の場合でのデータが「１文字単位の配列」になる現象は、例えSQL文を指定しても変わりません。

この内容をプロパティ面から検証したのが図４５です。Accessデータベースにテーブル名を指定してレコードセットを取得（Open）した後の、Recordsetオブジェクトのプロパティです。CursorType値とLockType値を振ってプロパティを取得し、（Access,Excel,CSVでの違いも含め）違いが有ったプロパティのみを示しています。
なおこのプロパティ値は、Accessテーブル名を指定した時とSQL文を指定した時とで、全く同じ結果となりました。

図４５別窓
この内容を図４１と見比べてみると「Updatability が値７（＝１（更新）+ ２（削除）+ ４（挿入）」だと、Insert・Update・Delete処理が出来るように見えますし、また「iRowsetUpdateがTrue」の時とも思えます。
しかし、SQL文を対象とした時（図４６）は全ての操作が可能ですので、矛盾します。
また「LockType」が値４（＝バッチ処理）の場合でも、SQL文の時（図４６）には即更新されます。
このことから「プロパティ値を見ただけでは、動作内容は特定できない」ようですが、テーブルを対象に操作に限ってみれば、プロパティ値によりある程度予測ができるような気がします。逆にSQL文での実行は、このプロパティ値の制御外だとも言えます。
なお、CursorTypeが１（adOpenKeyset）または３（adOpenStatic）の時に、Bookmark値が異常に大きな値（この時のAccessテーブルのレコード数は４行）になっているのが気になりますが、今回の操作では特に異常は発生しませんでした。

５ー１ー２ー２．Accessの場合（OpenメソッドにはSQL文を指定）

次に、データベース対象をAccessに、第１パラメータ（Source）にSQL文を指定した時の状態が図４６です。
なお、Inset,Update,Delete文を実行する手法としては図０９のように、Connection.Execute、Command.Execute、Recordset.Openの３種類があります。ここは「Recordsetオブジェクト」の説明なので、図０９のNo.5とNo.9である「Recordset.Open」を使う方法で実行可不可のチェックとプロパティ値の確認を行っています。

AccessDB + SQL文

LockType定数	値	CursorType定数
		0 (Forward)	1 (Keyset)	2 (Dynamic)	3 (Static)	-1 (Unspecified)
adLockReadOnly	1	SIUD	SIUD	SIUD	SIUD	SIUD
adLockPessimistic	2	SIUD	SIUD	SIUD	SIUD	SIUD
adLockOptimistic	3	SIUD	SIUD	SIUD	SIUD	SIUD
adLockBatchOptimistic	4	SIUD	SIUD	SIUD	SIUD	SIUD
adLockUnspecified	-1	SIUD	SIUD	SIUD	SIUD	SIUD

S=Select文、I=Insert文、U=Update文、D=Delete文
図４６別窓
SQL文を指定すると、どのCursorType・LockTypeでも全ての操作が可能となります。ACE・Jetプロバイダーを使用した時には、CursorType=1（Keyset） × LockType=1（ReadOnly） の時にはUpdate処理・Delete処理が出来ませんでしたが、MSDASQLでは可能な様です。
またLockType＝４（バッチ処理）の場合、図４１（テーブル名指定）ではUpdateBatchメソッドを実行しない限り、データベースに変更内容が反映されませんでしたが、図４６（SQL文指定）ではそのまま反映されます。
この検証としてレコードセットのプロパティ値を調べてみた結果は、テーブル指定の図４５と全く一緒でした。
結論として、SQL文を使う場合は「実行可不可をあまり気にせずに、ロックの種類を検討できる」と言えるのかもしれません。

５ー１ー２ー３．ExcelシートDBの場合（OpenメソッドにはSQL文を指定）

まずExcelをデータベースとした場合、テーブル名（＝ワークシート名＋$印）を指定しての処理は「MSDASQLプロバイダーでは不可」となります（Connection.Executeメソッド参照）。従って「Excelをデータベースにする際、MSDASQLプロバイダーではSQL文を指定して処理」する必要があります。
Excelのシートをデータベースにし、第１パラメータ（Source）にSQL文を指定した時の状態が図４７です。

ExcelシートDB + SQL文

LockType定数	値	CursorType定数
		0 (Forward)	1 (Keyset)	2 (Dynamic)	3 (Static)	-1 (Unspecified)
adLockReadOnly	1	SIU	SIU	SIU	SIU	SIU
adLockPessimistic	2	SIU	SIU	SIU	SIU	SIU
adLockOptimistic	3	SIU	SIU	SIU	SIU	SIU
adLockBatchOptimistic	4	SIU	SIU	SIU	SIU	SIU
adLockUnspecified	-1	SIU	SIU	SIU	SIU	SIU

S=Select処理、I=Insert処理、U=Update処理
図４７別窓
この結果から、SQL文を使うと「LockType × CursorTypeの全組み合わせで処理が可能（もちろんDelete処理は不可）」であることが分かります。これをプロパティ値で確認してみたのが図４８になります。

図４８別窓
図４８は値の異なるプロパティのみを比較しているので、図４７のように全て同じ結果となるものへの究明には意味が無いかもしれません。それでもUpdatability等が異なるのは、SQL文がこのプロパティ値を超えて直接データベースを操作しているという事を表しているのかもしれません。

５ー１ー２ー４．CSVの場合（OpenメソッドにはSQL文を指定）

CSVファイルをデータベースとした場合もExcelの時と同様に、テーブル名（＝ファイル名）を指定しての処理は「MSDASQLプロバイダーでは不可」となります（Connection.Executeメソッド参照）。従って「CSVをデータベースにする際、MSDASQLプロバイダーではSQL文を指定して処理」する必要があります。
CSVファイルに対して、第１パラメータにSQL文を指定した時の実行可否を表したのが図４９です。

CSV + SQL文

LockType定数	値	CursorType定数
		0 (Forward)	1 (Keyset)	2 (Dynamic)	3 (Static)	-1 (Unspecified)
adLockReadOnly	1	SI	SI	SI	SI	SI
adLockPessimistic	2	SI	SI	SI	SI	SI
adLockOptimistic	3	SI	SI	SI	SI	SI
adLockBatchOptimistic	4	SI	SI	SI	SI	SI
adLockUnspecified	-1	SI	SI	SI	SI	SI

S=Select処理、I=Insert処理
図４９別窓
CSVファイルに対しては、元々Select操作とInsert操作しか出来ませんが、全てのCursorTypeとLockTypeの組み合わせで両操作が出来ます。この時のプロパティ値を図５０に示します。

図５０別窓
CSVのプロパティ値は、Excel（図４８）のプロパティ値と全く同じでした。

６．Commandオブジェクト

Commandオブジェクトには、複数のプロパティやメソッドが存在しますが、ここではコマンドの格納やコマンドの実行に必要な「ActiveConnection」プロパティ、「CommandText」プロパティ、「Execute」メソッドの３種を説明します。

６ー１．ActiveConnectionプロパティ（データベースとの結び付け）

まず生成したCommandオブジェクトが、どの「データベース接続」に属しているかを指定するのがActiveConnectionプロパティです。構文としては、下記のように「接続中のConnectionオブジェクト」を指定します。
　Command.ActiveConnection = 接続中のConnectionオブジェクト
なおConnectionオブジェクトの代わりに、Provider名・DBQ名・Driver名を含めた接続文字列をActiveConnectionに指定してもOKです（なおProvider名の既定値はMSDASQLですので、省略も可です）。Microsoftのサイトでは、「接続が閉じている時に文字列指定」との説明がありますが、試してみると接続中でもOKでした。

６ー２．CommandTextプロパティ（実行コマンドの格納）

コマンドをCommandオブジェクトで実行する場合にも、またCommandオブジェクトに格納後Recordset.Openでレコードセットを取得する場合にも、「実行コマンドはCommandTextプロパティに代入」します。構文は以下の通りです。
　Command.CommandText = 実行コマンド（String型）
実行コマンドは、今回ではデータベースの「テーブル名」や「SQL文」です。

６ー３．Executeメソッド（コマンドの実行）

Commandオブジェクトでコマンドを実行するには、Executeメソッドを使用します。構文は以下となります。
　Set Recordsetオブジェクト = Command.Execute ( RecordsAffected, Parameters, Options )
このExecuteメソッドを実行する前準備として、「ActiveConnectionプロパティで接続データベースへ紐付け」をし、「CommandTextプロパティに、実行するテーブル名やSQL文を代入」しておく必要があります。
またRecordsetオブジェクトとして受け取る場面は、CommandTextプロパティに「テーブル名」や「SQL文のSelect文」を指定し、戻ったレコードセットに対して処理を行う時だと思いますが、この時の戻り値（Recordsetオブジェクト）のデータは「読み取り専用」ですので注意が必要です。これは、ConnectionオブジェクトのExecuteの時と同じです。
なお第１パラメータに「InsertやUpdate・DeleteのSQL文を指定」した場合は、戻り値を操作する訳では無いので、追加・変更・削除処理は可能です（Excelは削除不可、CSVは変更・削除不可 である事は変わりません）。
このようなInsert文等を指定した時は、変更を目的としたレコードセットを受け取る必要が無いので、以下のように戻り値を受け取らない形で実行します。
　Command.Execute ( RecordsAffected, Parameters, Options )
Executeメソッドに指定する３つのパラメータは以下の内容になります。全て省略可です。

パラメータ		内容
RecordsAffected	省略可	Long型の変数に､変更ﾚｺｰﾄﾞ数を戻す
Parameters	省略可	ﾊﾟﾗﾒｰﾀｸｴﾘ(SQL文)に渡す ﾊﾟﾗﾒｰﾀ値の配列
Options	省略可	CommandTextの種類 (図３７)

図５１別窓
第１パラメータのRecordsAffectedは、Long型変数を引数として与えておくことで、Insert・Update・Delete処理で影響を与えたレコード数を戻してくれるものです。使い方は図３５と同じです。なおSelect文でも使用は出来ますが、選択したレコード数を戻してくれる訳ではありません。
第２パラメータのParametersは、CommandTextにパラメータクエリ（≒変数をSQL文に組み込んだようなもの）を指定した際、そのパラメータ値を配列として指定するものです（今回は、説明を省略します）。
第３パラメータ（Options）は、第１パラメータに指定したものの種類を図３７のように指定します。内容はConnectionオブジェクトのExecuteメソッドの第３パラメータ、RecordsetオブジェクトのOpenメソッドの第５パラメータと同じです。

(Optionsパラメータの指定方法) MSDASQLプロバイダーでは、ExcelやCSVでのテーブル名指定でのデータ取得はできず、SQL文指定のみとなります。これは、図３７の所で説明したConnectionオブジェクトやRecordsetオブジェクトだけでなく、Commandオブジェクトに対しても同じです。 理由は、これらオブジェクトのExecuteメソッドやOpenメソッドのOptionsパラメータにadCmdTableDirect（値＝512）を指定しても、MSDASQLプロバイダー環境ではExcelやCSVのテーブル名指定ではエラーになってしまう為です。 一方Accessでは、テーブル名指定・SQL文指定のどちらでもデータ取得が可能ですが、その際にOptionsパラメータの指定には注意する必要があります。 図５２は、各オブジェクトでの実行メソッドに於いて、Optionsパラメータを振って実行可能か否かを確認したものです。 MSDASQL時にデータ取得可能なOptionsパラメータ(Access) 定数 値 内容 テーブル名指定 SQL文指定 Connection .Execute Command .Execute Recordset .Open Connection .Execute Command .Execute Recordset .Open adCmdUnspecified or adOptionUnspecified -1 種類を指定せず 〇 〇 〇 〇 〇 〇 adCmdText 1 SQL文 × × × 〇 〇 〇 adCmdTable 2 テーブル 〇 〇 〇 × × × adCmdStoredProc 4 ｽﾄｱﾄﾞﾌﾟﾛｼｰｼﾞｬ × × × × × × adCmdUnknown 8 不明（既定） 〇 〇 〇 〇 〇 〇 adAsyncExecute 0x10(16) 非同期実行 〇 〇 〇 〇 〇 〇 adAsyncFetch 0x20(32) 残り行を非同期で取得 〇 〇 〇 〇 〇 〇 adAsyncFetchNonBlocking 0x40(64) 取得中にﾌﾞﾛｯｸせず 〇 〇 〇 〇 〇 〇 adExecuteNoRecords 0x80(128) 行を返さないｺﾏﾝﾄﾞ × × × × × × adCmdFile 256 Recordsetファイル × × × × × × adCmdTableDirect 512 全列が返るテーブル 〇 × 〇 × × × adExecuteStream 0x400(1024) ｺﾏﾝﾄﾞ実行結果をｽﾄﾘｰﾑとして返すもの × × × × × × adExecuteRecord 0x800(2048) 単一行を返すもの × × × × × × 図５２別窓 Optionsパラメータを省略（図５２のadCmdUnknown（値＝8））すればテーブル名指定・SQL文指定のどちらでもOKですが、他の値を指定した場合にはエラーが出てしまう場合があります。 対象がテーブル名かSQL文かで分けていますので、adCmdText（値＝1）・adCmdTable（値＝2）・adCmdTableDirect（値＝512）で〇×が入れ替わるのは理解できます。しかしテーブル名指定時でCommand.Executeの時には、赤字の×印のように「OptionsパラメータにadCmdTableDirect(値=512)を指定するとエラー」が出ますので御注意ください。 今回の範囲では、それ以外には違いは出ませんでしたが、ここで説明した以外の機能でも「Commandオブジェクトだけは特殊」という事があるかもしれませんので、注意が必要と思います。

６ー４．Commandオブジェクトの使用例

６ー４ー１．実行コマンドの格納

Commandオブジェクトを使用してデータベース操作する場面は２種類あります。
１つ目は、実行するコマンド（テーブル名、またはSQL文）をCommand.CommandTextプロパティに格納した後「Recordset.Openの第１パラメータにCommandオブジェクトを指定」することでレコードセットを取得したり、変更のSQL文を実行したりする場面です。

150. '==========　⇩(8)　Commandオブジェクトに実行コマンドを格納 ============
151. 　Dim cn As Object 　 '←実行時バインディングのConnectionオブジェクト
152. 　Dim rs As Object 　 '←実行時バインディングのRecordsetオブジェクト
153. 　Dim cmd As Object 　 '←実行時バインディングのCommandオブジェクト
154. 　Dim s As String 　 '←接続文字列
156. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトの生成
157. 　Set rs = CreateObject("ADODB.Recordset") 　 '←Recordsetオブジェクトの生成
158. 　Set cmd = CreateObject("ADODB.Command") 　 '←Commandオブジェクトの生成
160. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　 '←ドライバー情報
161. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←データソース情報
163. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
164. 　cn.ConnectionString = s 　 '←ドライバー＋DB設定
166. 　cn.Open 　 '←データベースに接続
168. 　cmd.ActiveConnection = cn 　 '←接続条件をCommandオブジェクトに設定
169. 　cmd.CommandText = "Select * from TestTable" 　 '←実行コマンドをCommandオブジェクトに設定
171. 　rs.Open cmd 　 '←コマンドを格納したCommandを使って実行
172. 　　　（処理）

図５３別窓
１６８行目「cmd.ActiveConnection = cn」で、データベース接続条件を取り込みます。
１６９行目「cmd.CommandText = "Select * from TestTable"」で実行コマンドをCommandTextに格納します。
１７１行目「rs.Open cmd」で、そのSQL文をRecordsetオブジェクトから実行します。
一般的なRecordset.Openの使い方は「rs.Open SQL文 , cn」のように、第１パラメータにSQL文やテーブル名を指定し、第２パラメータには接続情報のあるConnectionオブジェクトを指定しますが、Commandオブジェクトを使った１７１行目では、第２パラメータを省略します。
これは、第１パラメータに指定したCommandオブジェクトは、CommandTextプロパティにSQL文やテーブルを指定（１６９行目）し、ActiveConnectionプロパティに接続情報を指定（１６８行目）したからですが、第２パラメータを更に重複設定するとエラーが出ます。つまり「省略しないとエラー」との説明の方が正しいかもしれません
と言って、ActiveConnectionプロパティへの指定を省略し「rs.Open cmd, cn」とするとエラーが出ます。「CommandオブジェクトのCommandTextとActiveConnectionはセットで指定」する必要があります。
なお、図５３はSelect文でしたが、CommandTextプロパティにテーブル名を指定しても同じです。またデータ変更用のSQL文を指定した場合は、１７１行目の実行でデータが変更されます。

６ー４ー２．コマンドの実行

２つ目は、実行コマンド（＝テーブル名、SQL文）を指定した後、CommandオブジェクトのExecuteメソッドで実行をする場面です。その際、SQL文がSelect文であったりテーブル名であれば、ExecuteメソッドがRecordsetオブジェクトを戻してきますので、レコードセットとして取得します。またデータ変更のSQL文（Insert・Update・Delete文）であれば、データ変更を実行します。

180. '==========　⇩(9)　Commandオブジェクトで実行 ============
181. 　Dim cn As Object 　 '←実行時バインディングのConnectionオブジェクト
182. 　Dim rs As Object 　 '←実行時バインディングのRecordsetオブジェクト
183. 　Dim cmd As Object 　 '←実行時バインディングのCommandオブジェクト
184. 　Dim s As String 　 '←接続文字列
186. 　Set cn = CreateObject("ADODB.Connection") 　 '←Connectionオブジェクトの生成
187. 　Set cmd = CreateObject("ADODB.Command") 　 '←Commandオブジェクトの生成
189. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　 '←ドライバー情報
190. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←データソース情報
192. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
193. 　cn.ConnectionString = s 　 '←ドライバー＋DB設定
195. 　cn.Open 　 '←データベースに接続
197. 　cmd.ActiveConnection = cn 　 '←接続条件をCommandオブジェクトに設定
198. 　cmd.CommandText = "Select * from TestTable" 　 '←実行コマンドをCommandオブジェクトに設定
199. 　Set rs = cmd.Execute 　 '←実行コマンドを実行
200. 　　　（処理）

図５４別窓
１９７行目「cmd.ActiveConnection = cn」で、データベース接続条件を取り込みます。
１９８行目「cmd.CommandText = "Select * from TestTable"」で実行コマンドをCommandTextに格納します。
１９９行目「Set rs = cmd.Execute」の右辺で、そのコマンドをCommandオブジェクトで実行し、戻り値であるRecordsetオブジェクトを変数rsで受け取り、処理をします。
なおデータ変更を伴うSQL文の場合は、変数で受ける必要は無いので、１９９行目は右辺のみでOKです。

７．データベースに接続する為のコード例

図０９でも紹介した通り、データベースに接続・操作する方法はいくつかあります。図５５はその再掲ですが、下半分（薄黄色のエリア）に、MSDASQLプロバイダーを使用した時の、各手法での可能な操作（Select、Insert、Update、Delete）をまとめました。
一般的には「ExcelはDeleteが出来ない」「CSVはUpdateとDeleteが不可」などと言われていますが、接続・操作の方法でも変わってくることが分かると思います。なお実行時に指定するパラメータによっては、更に不可の操作もあるのでご注意下さい。

図５５別窓
１２種類と多そうに見えますが、基本的には以下の４種類で、実行するもの（テーブル、SQL文）が変わるだけです。しかも３と４は、Commandオブジェクトを経由するか否かの違いですので、３種と言っても良いくらいです。
　1.「Connection.Open（DB接続）」→「Connection.Execute（実行）」→（「処理」）
　2.「Connection.Open（DB接続）」→「Command.Execute（実行）」→（「処理」）
　3.「Connection.Open（DB接続）」→「Commandへコマンド格納」→「Recordset.Open（実行）」→（「処理」）
　4.「Connection.Open（DB接続）」→「Recordset.Open（実行）」→（「処理」）
ここでは図５５に示す１２種類の実際のコードを紹介していきます。
なおコードは、主に「Excel」について説明していきますが、見え消しにしてある「Accessのコード」「CSVのコード」と切り替えれば動作確認が出来るようにしています。（MSDASQLプロバイダーでは、テーブル名を指定した場合はAccessしか操作できませんので、図５５のNo.1～4についてはAccessのみでの説明になります。）
今回のコード例では、データベースとして「Access」「Excel」「CSV（カンマ区切りテキスト）」を扱います。そのデータは、以下のような形の「4列×4行」としました。St、Nu、Dt、BLが列名になります。Excel、CSVも先頭行は列名行としています。

St(String型)	Nu(Double型)	Dt(Date型)	BL(Boolean型)
"abc"	123	2023/1/2	True
"def"	123	2023/2/2	False
"abc"	456	2023/3/2	False
"def"	456	2023/4/2	True

図５６別窓
なお扱っているデータベースですが、Excelは本サンプルファイル（its-043.xlsm）のワークシート「DB」、Accessは添付のits-041.accdb（作成方法はDAOでAccess･Excel･CSV等へ接続・操作を参照下さい）、CSVは添付のits-041.csvです。
なおAccessは、よりみちで説明した通り「テーブル名指定 + CursorType=adOpenForwardOnly（値＝0）では、Date型はNG」ですし「他列の値により間違った処理」がされてしまいますので、以下のサンプルコードでは CursorType = adOpenKeyset（値=1）を使用しています。

７ー１．テーブルを操作

データベースに接続し、「テーブル」を操作するコードとして４種類を以下で紹介します。なおMSDASQLプロバイダーでは「ExcelやCSVファイルをテーブル名指定で操作する事は不可」ですので、Accessのみの接続・操作となります。

７ー１ー１．Connectionでテーブル名を実行し、レコードセット取得後に処理

図５５のNo.1のコードは、以下のようになります。

210. '==========　⇩(10)　Connectionでテーブル名を実行しレコードセットを取得 ============
211. Sub Pattern01()
212. 　Dim cn As Object 　 '←Connectionオブジェクト
213. 　Dim rs As Object 　 '←Recordsetオブジェクト
214. 　Dim SQL As String 　 '←テーブル名
215. 　Dim s As String 　 '←接続文字列
216. 　Dim i As Integer 　 '←レコードの行位置
218. 　Set cn = CreateObject("ADODB.Connection")
220. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　 '←ドライバー情報
221. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←データソース情報
223. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
224. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
226. 　cn.Open
228. 　　SQL = "TestTable" 　 '←操作するテーブル名
229. 　　Set rs = cn.Execute(SQL) 　 '←レコードセットを取得
231. 　　With Sheet1.Range("B2")
232. 　　　.CurrentRegion.ClearContents
233. 　　　Do While Not rs.EOF
234. 　　　　.Offset(i, 0) = rs.Fields(0).Value
235. 　　　　.Offset(i, 1) = rs.Fields(1).Value
236. 　　　　.Offset(i, 2) = rs.Fields(2).Value
237. 　　　　.Offset(i, 3) = rs.Fields(3).Value
238. 　　　　rs.MoveNext
239. 　　　　i = i + 1
240. 　　　Loop
241. 　　End With
243. 　　rs.Close
244. 　cn.Close
246. 　Set rs = Nothing
247. 　Set cn = Nothing
248. End Sub

図５７別窓
２１８行目「Set cn = CreateObject("ADODB.Connection")」で、ADOのConnectionオブジェクトを生成します。
２２０行目「s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"」でドライバー情報を文字列にし、２２１行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;"」でデータソース情報（≒Accessファイル名）を追加します。
２２３行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
２２４行目「cn.connectionstring = s」で、２２０～２２１行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
２２６行目「cn.Open」で、Accessデータベースに接続します。
２２８行目「SQL = "TestTable"」で、実行するテーブル名を変数SQLに格納します。
２２９行目「Set rs = cn.Execute(SQL)」の右辺では、ConnectionオブジェクトのExecuteメソッドでテーブル名を実行します。
この実行によりテーブルの全データ（レコードセット）が取得できますので、左辺の変数rsに代入します。なお、この段階では、レコードセットのカーソル（操作できる行位置）は、先頭行にあります。
２３１～２４１行目では、取得したレコードセットの全データをワークシート上に書き出しています。
２３１行目「With Sheet1.Range("B2")」では、シートへのデータ書き出しの基準点を決めています。
２３２行目「.CurrentRegion.ClearContents」は、その基準点を含むエリアに書かれていたデータをクリアします。
２３３行目「Do While Not rs.EOF」では、レコードセットの終端が来るまで２３４～２３９行目を回します。
２３４行目「.Offset(i, 0) = rs.Fields(0).Value」は、レコードセットの１列目のデータをシートの１列目に書き込みます。
２３５～２３７行目も同様に、２列目・３列目・４列目と書き込みます。
２３８行目「rs.MoveNext」では、レコードセットのカーソル位置を次の行に移動します。
２３９行目「i = i + 1」では、シート上の書き込み位置を１つ下に移動させています。
２３３行目では「Not rs.EOF」となっていますので、データ処理が全て完了し「rs.EOF = True」が成立すればDo～Loopを抜け出します。２４３行目「rs.Close」でレコードセットを閉じ、２４４行目「cn.Close」でデータベースとの接続を終了させます。

７ー１ー２．Commandでテーブル名を実行し、レコードセット取得後に処理

図５５のNo.2のコードは、以下のようになります。

260. '==========　⇩(11)　Commandでテーブル名を実行しレコードセット取得 ============
261. Sub Pattern02()
262. 　Dim cn As Object 　 '←Connectionオブジェクト
263. 　Dim rs As Object 　 '←Recordsetオブジェクト
264. 　Dim cmd As Object 　 '←Commandオブジェクト
265. 　Dim SQL As String 　 '←テーブル名
266. 　Dim s As String 　 '←接続文字列
267. 　Dim i As Integer 　 '←レコードの行位置
269. 　Set cn = CreateObject("ADODB.Connection")
270. 　Set cmd = CreateObject("ADODB.Command")
272. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　 '←ドライバー情報
273. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←データソース情報
275. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
276. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
278. 　cn.Open
280. 　　SQL = "TestTable" 　 '←操作するテーブル名
281. 　　cmd.ActiveConnection = cn
282. 　　cmd.CommandText = SQL
284. 　　Set rs = cmd.Execute
286. 　　With Sheet1.Range("B2")
287. 　　　.CurrentRegion.ClearContents
288. 　　　Do While Not rs.EOF
289. 　　　　.Offset(i, 0) = rs.Fields(0).Value
290. 　　　　.Offset(i, 1) = rs.Fields(1).Value
291. 　　　　.Offset(i, 2) = rs.Fields(2).Value
292. 　　　　.Offset(i, 3) = rs.Fields(3).Value
293. 　　　　rs.MoveNext
294. 　　　　i = i + 1
295. 　　　Loop
296. 　　End With
298. 　　rs.Close
299. 　cn.Close
301. 　Set rs = Nothing
302. 　Set cmd = Nothing
303. 　Set cn = Nothing
304. End Sub

図５８別窓
２６９行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、２７０行目「Set cmd = CreateObject("ADODB.Command")」でCommandオブジェクトを生成します。
２７２行目「s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"」でドライバー情報を文字列にし、２７３行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;"」でデータソース情報（≒Accessファイル名）を追加します。
２７５行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
２７６行目「cn.connectionstring = s」で、２７２～２７３行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
２７８行目「cn.Open」で、Accessデータベースに接続します。
２８０行目「SQL = "TestTable"」で、Accessのテーブル名を変数SQLに代入します。
２８１行目「cmd.ActiveConnection = cn」は、接続中のConnectionオブジェクトをCommandオブジェクトのActiveConnectionに指定し、ConnectionとCommandを結び付けています。
２８２行目「cmd.CommandText = SQL」では、CommandオブジェクトのCommandTextにAccessテーブル名を指定しています。
２８４行目「Set rs = cmd.Execute」の右辺では、CommandオブジェクトのExecuteメソッドを実行し、Accessのテーブルを開いてレコードセットにし、左辺の変数rsに代入しています。
レコードセットを取得した後は図５７と全く同じです。２８６～２９６行目では、取得したレコードセットをDo～Loopで回しながら全データをシート上に書き出しています。

７ー１ー３．Commandにテーブル名を格納後Recordset実行し、レコードセット取得後に処理

図５５のNo.3のコードは、以下のようになります。

310. '==========　⇩(12)　Commandにテーブル名を格納後Recordset実行しレコードセット取得 ============
311. Sub Pattern03()
312. 　Dim cn As Object 　 '←Connectionオブジェクト
313. 　Dim rs As Object 　 '←Recordsetオブジェクト
314. 　Dim cmd As Object 　 '←Commandオブジェクト
315. 　Dim SQL As String 　 '←テーブル名
316. 　Dim s As String 　 '←接続文字列
317. 　Dim i As Integer 　 '←レコードの行位置
319. 　Set cn = CreateObject("ADODB.Connection")
320. 　Set rs = CreateObject("ADODB.Recordset")
321. 　Set cmd = CreateObject("ADODB.Command")
323. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　 '←ドライバー情報
324. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←データソース情報
326. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
327. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
329. 　cn.Open
331. 　　SQL = "TestTable" 　 '←操作するテーブル名
332. 　　cmd.ActiveConnection = cn
333. 　　cmd.CommandText = SQL
335. 　　rs.Open cmd, , 1, 2
337. 　　　GoTo Sel 　 'Sel,Ins,Upd,Del
339. Sel:
340. 　　　With Sheet1.Range("B2")
341. 　　　　.CurrentRegion.ClearContents
342. 　　　　Do While Not rs.EOF
343. 　　　　　.Offset(i, 0) = rs.Fields(0).Value
344. 　　　　　.Offset(i, 1) = rs.Fields(1).Value
345. 　　　　　.Offset(i, 2) = rs.Fields(2).Value
346. 　　　　　.Offset(i, 3) = rs.Fields(3).Value
347. 　　　　　rs.MoveNext
348. 　　　　　i = i + 1
349. 　　　　Loop
350. 　　　End With
352. GoTo En
353. Ins:
355. 　　　rs.AddNew
356. 　　　　rs.Fields(0) = "PQR"
357. 　　　　rs.Fields(1) = 897
358. 　　　　rs.Fields(2) = #11/20/2000#
359. 　　　　rs.Fields(3) = True
360. 　　　rs.Update
361. '　　　rs.UpdateBatch
363. GoTo En
364. Upd:
366. 　　　Do While Not rs.EOF
367. 　　　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
368. 　　　　　rs.Fields(0) = "XYZ"
369. 　　　　　rs.Update
370. '　　　　　rs.UpdateBatch
371. 　　　　End If
372. 　　　　rs.MoveNext
373. 　　　Loop
375. GoTo En
376. Del:
378. 　　　Do While Not rs.EOF
379. 　　　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
380. 　　　　　rs.Delete
381. '　　　　　rs.UpdateBatch
382. 　　　　End If
383. 　　　　rs.MoveNext
384. 　　　Loop
386. En:
387. 　　rs.Close
388. 　cn.Close
390. 　Set rs = Nothing
391. 　Set cmd = Nothing
392. 　Set cn = Nothing
393. End Sub

図５９別窓
３１９行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成、３２０行目「Set rs = CreateObject("ADODB.Recordset")」でRecordsetオブジェクトを生成、３２１行目「Set cmd = CreateObject("ADODB.Command")」で、Commandオブジェクトを生成します。
３２３行目「s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"」でドライバー情報を文字列にし、３２４行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;"」でデータソース情報（≒Accessファイル名）を追加します。
３２６行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
３２７行目「cn.connectionstring = s」で、３２３～３２４行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
３２９行目「cn.Open」で、Accessデータベースに接続します。
３３１行目「SQL = "TestTable"」で、Accessのテーブル名を変数SQLに代入します。
３３２行目「cmd.ActiveConnection = cn」は、接続中のConnectionオブジェクトをCommandオブジェクトのActiveConnectionプロパティに指定し、ConnectionとCommandを結び付けています。
３３３行目「cmd.CommandText = SQL」では、CommandオブジェクトのCommandTextプロパティにAccessテーブル名を指定しています。
３３５行目「rs.Open cmd, , 1, 2」では、RecordsetオブジェクトのOpenメソッドを実行し、レコードセットを取得しています。パラメータとしては、第１パラメータにCommandオブジェクトを指定するのと同時に、第２パラメータは省略させます。
第３・第４パラメータは、各パラメータの組み合わせで説明した通り「テーブルのデータ型に制限が無く、正しくデータ変更が行われるパラメータ」且つ「Updateメソッドでデータベースへの変更が可となるパラメータ」を選択します。ここでは第３パラメータ（CursorType）にadOpenKeyset（値＝1）を、第４パラメータ（LockType）にadLockPessimistic（値＝2）を指定しています。
なお第３パラメータにadOpenForwardOnly（値＝0）又は adOpenUnspecified（値＝-1）を選択してしまうと、正しく変更・削除処理が出来なくなる可能性があるため御注意下さい。また第４パラメータにadLockBatchOptimistic（値＝4）を選択する場合は、データ追加・変更・削除時にRecordset.Updateメソッドを実行させてもデータベース更新が完了しませんので、Recordset.UpdateBatchメソッドを使用する必要があります。
３３５行目によりレコードセットが得られたら、３３７～３８４行目でデータ処理をします。図５９では４種の処理を３３７行目「GoTo Sel」で分岐させています。Selの部分を「Sel,Ins,Upd,Del」の４種で置き換える事で、Select操作・Insert操作・Update操作・Delete操作にジャンプさせています。
まずSelect処理は３４０～３５０行目です。内容は図５７・図５８と全く同じで、Do～Loopを使いレコードセットの終端になるまで繰り返し、４列のデータをワークシートに書き込んでいます。
Insert処理は３５５～３６１行目です。まず３５５行目「rs.AddNew」で新たなレコードを作成します。カーソルは、この新たに作ったレコードの位置になります。
３５６行目「rs.Fields(0) = "PQR"」では、１列目に"PQR"という文字列をセットしています。３５７～３５９行目も同様に２～４列目にデータをセットしています。
各列へのセットが完了したら３６０行目「rs.Update」でデータベースを更新します。３３５行目のRecordset.Openの第４パラメータにadLockBatchOptimistic（値＝4）を指定する場合は、データベースへの書き換えを実行するために、３６０行目「rs.Update」の代わりに３６１行目「rs.UpdateBatch」を実行させます。なお３６０行目と３６１行目を重複実行させても問題はありません。
Update処理は３６６～３７３行目です。Do～Loopで回しながら３７２行目「rs.MoveNext」で行を移動させ、全行を走査します。３６７行目「If CDate(rs.Fields(2).Value) = #11/20/2000# Then」で、３列目のデータが2000年11月20日のものを探し出し、見つかったら３６８行目「rs.Fields(0) = "XYZ"」で１列目のデータをXYZに書き換えます。
書き換えが終わったら、３７２行目の「rs.MoveNext」でカーソルが移動してしまう前に、３６９行目「rs.Update」でデータベースを更新します。３３５行目のRecordset.Openの第４パラメータにadLockBatchOptimistic（値＝4）を指定する場合は、データベースへの書き換えを実行するために、３６９行目「rs.Update」の代わりに３７０行目「rs.UpdateBatch」を実行させます。
Delete処理は３７８～３８４行目です。Do～Loopで回しながら３８３行目「rs.MoveNext」で行を移動させ、全行を走査します。３７９行目「If CDate(rs.Fields(2).Value) = #11/20/2000# Then」で、３列目のデータが2000年11月20日のものを探し出し、見つかったら３８０行目「rs.Delete」でその行を削除します。
Delete時は、Updateメソッドを実行しないでも良いようですが、３３５行目のRecordset.Openの第４パラメータにadLockBatchOptimistic（値＝4）を指定する場合は、３８１行目「rs.UpdateBatch」が必要となります。
レコードセットの処理が完了したら、３８７行目「rs.Close」でレコードセットを閉じ、３８８行目「cn.Close」で、データベースとの接続を切ります。

７ー１ー４．Recordsetでテーブル名を実行し、レコードセット取得後に処理

図５５のNo.4のコードは、以下のようになります。

400. '==========　⇩(13)　Recordsetでテーブル名を実行しレコードセット取得 ============
401. Sub Pattern04()
402. 　Dim cn As Object 　 '←Connectionオブジェクト
403. 　Dim rs As Object 　 '←Recordsetオブジェクト
404. 　Dim SQL As String 　 '←テーブル名
405. 　Dim s As String 　 '←接続文字列
406. 　Dim i As Integer 　 '←レコードの行位置
408. 　Set cn = CreateObject("ADODB.Connection")
409. 　Set rs = CreateObject("ADODB.Recordset")
411. 　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　 '←ドライバー情報
412. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←データソース情報
414. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
415. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
417. 　cn.Open
419. 　　SQL = "TestTable" 　 '←操作するテーブル名
421. 　　rs.Open SQL, cn, 1, 2
423. 　　　GoTo Sel 　　 'Sel,Ins,Upd,Del 　 ←Excel × Tableでは、Update処理・Delete処理はエラーが出ます。
425. Sel:
427. 　　　With Sheet1.Range("B2")
428. 　　　　.CurrentRegion.ClearContents
429. 　　　　Do While Not rs.EOF
430. 　　　　　.Offset(i, 0) = rs.Fields(0).Value
431. 　　　　　.Offset(i, 1) = rs.Fields(1).Value
432. 　　　　　.Offset(i, 2) = rs.Fields(2).Value
433. 　　　　　.Offset(i, 3) = rs.Fields(3).Value
434. 　　　　　rs.MoveNext
435. 　　　　　i = i + 1
436. 　　　　Loop
437. 　　　End With
439. GoTo En
440. Ins:
442. 　　　rs.AddNew
443. 　　　　rs.Fields(0) = "PQR"
444. 　　　　rs.Fields(1) = 897
445. 　　　　rs.Fields(2) = #11/20/2000#
446. 　　　　rs.Fields(3) = True
447. 　　　rs.Update
448. '　　　rs.UpdateBatch
450. GoTo En
451. Upd:
453. 　　　Do While Not rs.EOF
454. 　　　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
455. 　　　　　rs.Fields(0) = "XYZ"
456. 　　　　　rs.Update
457. '　　　　　rs.UpdateBatch
458. 　　　　End If
459. 　　　　rs.MoveNext
460. 　　　Loop
462. GoTo En
463. Del:
465. 　　　Do While Not rs.EOF
466. 　　　　If CDate(rs.Fields(2).Value) = #11/20/2000# Then
467. 　　　　　rs.Delete
468. '　　　　　rs.UpdateBatch
469. 　　　　End If
470. 　　　　rs.MoveNext
471. 　　　Loop
473. En:
474. 　　rs.Close
475. 　cn.Close
477. 　Set rs = Nothing
478. 　Set cn = Nothing
479. End Sub

図６０別窓
４０８行目「Set cn = CreateObject("ADODB.Connection")」で、Connectionオブジェクトを生成します。
４０９行目「Set rs = CreateObject("ADODB.Recordset")」で、Recordsetオブジェクトを生成します。
４１１行目「s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"」でドライバー情報を文字列にし、４１２行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;"」でデータソース情報（≒Accessファイル名）を追加します。
４１４行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
４１５行目「cn.connectionstring = s」で、４１１～４１２行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
４１７行目「cn.Open」で、Accessデータベースに接続します。
４１９行目「SQL = "TestTable"」で、Accessのテーブル名を変数SQLに代入します。
４２１行目「rs.Open SQL, cn, 1, 2」では、RecordsetオブジェクトのOpenメソッドを実行し、レコードセットを取得しています。パラメータとしては、第１パラメータに４１９行目でテーブル名を代入した変数SQLを、第２パラメータには接続中のConnectionオブジェクト（変数cn）を指定します。
第３・第４パラメータは、各パラメータの組み合わせで説明した通り「テーブルのデータ型に制限が無く、正しくデータ変更が行われるパラメータ」且つ「Updateメソッドでデータベースへの変更が可となるパラメータ」を選択します。ここでは第３パラメータ（CursorType）にadOpenKeyset（値＝1）を、第４パラメータ（LockType）にadLockPessimistic（値＝2）を指定しています。
なお第３パラメータにadOpenForwardOnly（値＝0）又は adOpenUnspecified（値＝-1）を選択してしまうと、正しく変更・削除処理が出来なくなる可能性があるため御注意下さい。また第４パラメータにadLockBatchOptimistic（値＝4）を選択する場合は、データ追加・変更・削除時にRecordset.Updateメソッドを実行させてもデータベース更新が完了しませんので、Recordset.UpdateBatchメソッドを使用する必要があります。
４２１行目によりレコードセットが得られたら、４２３～４７１行目でデータ処理をします。図６０では４種の処理を４２３行目「GoTo Sel」で分岐させています。Selの部分を「Sel,Ins,Upd,Del」の４種で置き換える事で、Select操作・Insert操作・Update操作・Delete操作にジャンプさせています。
まずSelect処理は４２７～４３７行目です。Do～Loopを使いレコードセットの終端になるまで繰り返し、４列のデータをワークシートに書き込んでいます。
Insert処理は４４２～４４８行目です。４４２行目「rs.AddNew」で新たなレコードを作成し、４４３行目「rs.Fields(0) = "PQR"」で１列目に"PQR"という文字列をセットしています。４４４～４４６行目も同様に２～４列目にデータをセットしています。
各列にセットが完了したら４４７行目「rs.Update」でデータベースを更新します。
Recordset.Openの第４パラメータにadLockBatchOptimistic（値＝4）を指定する場合は、データベースへの書き換えを実行するために、４４８行目「rs.UpdateBatch」を追加実行させます。
Update処理は４５３～４６０行目です。Do～Loopで回しながら４５９行目「rs.MoveNext」で行を移動させ、レコードセットの終端になるまで全行を走査します。４５４行目「If CDate(rs.Fields(2).Value) = #11/20/2000# Then」で、３列目のデータが2000年11月20日のものを探し出し、見つかったら４５５行目「rs.Fields(0) = "XYZ"」で１列目のデータをXYZに書き換えます。
書き換えが終わったら、４５９行目の「rs.MoveNext」でカーソルが移動してしまう前に、４５６行目「rs.Update」でデータベースを更新します。Recordset.Openの第４パラメータにadLockBatchOptimistic（値＝4）を指定する場合は、データベースへの書き換えを実行するため、「rs.Update」の代わりに４５７行目「rs.UpdateBatch」を実行させます。
Delete処理は４６５～４７１行目です。Do～Loopで回しながら４７０行目「rs.MoveNext」で行を移動させ、レコードセットの終端になるまで全行を走査します。４６６行目「If CDate(rs.Fields(2).Value) = #11/20/2000# Then」で、３列目のデータが2000年11月20日のものを探し出し、見つかったら４６７行目「rs.Delete」でその行を削除します。
Delete時は、Updateメソッドを実行しないでも良いようですが、Recordset.Openの第４パラメータにadLockBatchOptimistic（値＝4）を指定する場合は、４６８行目「rs.UpdateBatch」が必要となります。
レコードセットの処理が完了したら、４７４行目「rs.Close」でレコードセットを閉じ、４７５行目「cn.Close」でデータベースとの接続を切ります。

７ー２．SQL（Select）文で操作

データベースに接続し「SelectのSQL文」を操作するコードを以下で紹介します。
なお、Excelのシートデータベースについて説明しますが、以下のようにコードを切り替えることで、データベースをAccess・CSVに切り替えることが出来ます。丸番号は、図６２・図６３・図６４・図６５で同じにしてあります。

	ドライバ（Driver=）	データベース（DBQ=）	SQL文内のﾃｰﾌﾞﾙ
Access	① {Microsoft Access Driver (*.mdb, *.accdb)}	④パス名＋ファイル名 ThisWorkbook.Path & "¥" & "its-041.accdb"	⑦ﾃｰﾌﾞﾙ名 TestTable
Excel	② {Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}	⑤パス名＋ファイル名 ThisWorkbook.Path & "¥" & ThisWorkbook.Name	⑧ｼｰﾄ名+$印 [db$]
CSV	③ {Microsoft Access Text Driver (*.txt, *.csv)}	⑥パス名 ThisWorkbook.Path & "¥"	⑨CSVﾌｧｲﾙ名 [its-041.csv]

図６１別窓

７ー２ー１．ConnectionでSQL文を実行しレコードセット取得

図５５のNo.5のコードは、以下のようになります。

490. '==========　⇩(14)　ConnectionでSQL文を実行しレコードセット取得 ============
491. Sub Pattern05()
492. 　Dim cn As Object 　 '←Connectionオブジェクト
493. 　Dim rs As Object 　 '←Recordsetオブジェクト
494. 　Dim SQL As String 　 '←テーブル名、又はSQL文
495. 　Dim s As String 　 '←接続文字列
496. 　Dim i As Integer 　 '←レコードの行位置
498. 　Set cn = CreateObject("ADODB.Connection")
500. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
501. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
503. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
504. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
506. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
507. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
509. 　s = s & "ReadOnly=1;"
511. 　cn.Provider = "MSDASQL"
512. 　cn.connectionstring = s
514. 　cn.Open
516. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
517. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
518. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
520. 　　SQL = "Select * from " & SQL
522. 　　Set rs = cn.Execute(SQL)
524. 　　　With Sheet1.Range("B2")
525. 　　　　.CurrentRegion.ClearContents
526. 　　　　Do While Not rs.EOF
527. 　　　　　.Offset(i, 0) = rs.Fields(0).Value
528. 　　　　　.Offset(i, 1) = rs.Fields(1).Value
529. 　　　　　.Offset(i, 2) = rs.Fields(2).Value
530. 　　　　　.Offset(i, 3) = rs.Fields(3).Value
531. 　　　　　rs.MoveNext
532. 　　　　　i = i + 1
533. 　　　　Loop
534. 　　　End With
536. 　　rs.Close
537. 　cn.Close
539. 　Set rs = Nothing
540. 　Set cn = Nothing
541. End Sub

図６２別窓
４９８行目「Set cn = CreateObject("ADODB.Connection")」で、Connectionオブジェクトを生成します。
５０３行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、５０４行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある５００～５０１行目を使用し、CSVをデータベースとする時には５０６～５０７行目を使用します。
５０９行目「s = s & "ReadOnly=1;"」では、読込専用（True）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので省略してもOKです。またAccessとCSVではReadOnly=0（False）が既定となります。
５１１行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
５１２行目「cn.connectionstring = s」で、５００～５０９行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
５１４行目「cn.Open」で、データベースに接続します。
５１７行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、５１８行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、５１６行目「SQL = "TestTable"」のようにテーブル名のままとします。
５２０行目「SQL = "Select * from " & SQL」で、実行するSQL文を組み立てます。なお、「from」と「テーブル名」の間をスペースで区切る必要があるため、「from の後ろにスペースを１つ入れておく」のがポイントです。
５２２行目「Set rs = cn.Execute(SQL)」では、右辺でConnectionオブジェクトのExecuteメソッドにSQL文を指定して実行させます。今回のSQL文は「Select ･･･」ですのでデータとしてレコードセットが戻されます。そのレコードセットを左辺の変数rsで受け取ることで、変数rsはRecordsetオブジェクトになります。この時点ではRecordsetは開かれた状態です。
そのレコードセットの処理が５２４～５３４行目になります。Do～Loopを使いレコードセットの終端になるまで繰り返し、４列のデータをワークシートに書き込んでいます。
処理が終了したら、５３６行目「rs.Close」でレコードセットを閉じます。Recordset.Openメソッドは実行していませんが、５２２行目を実行することにより変数rs（Recordsetオブジェクト）は開いていますので、処理終了後に閉じる必要があります。最後に５３７行目「cn.Close」で接続を閉じます。

７ー２ー２．CommandでSQL文を実行しレコードセット取得

図５５のNo.6のコードは、以下のようになります。

550. '==========　⇩(15)　CommandでSQL文を実行しレコードセット取得 ============
551. Sub Pattern06()
552. 　Dim cn As Object 　 '←Connectionオブジェクト
553. 　Dim rs As Object 　 '←Recordsetオブジェクト
554. 　Dim cmd As Object 　 '←Commandオブジェクト
555. 　Dim SQL As String 　 '←テーブル名、又はSQL文
556. 　Dim s As String 　 '←接続文字列
557. 　Dim i As Integer 　 '←レコードの行位置
559. 　Set cn = CreateObject("ADODB.Connection")
560. 　Set cmd = CreateObject("ADODB.Command")
562. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
563. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
565. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
566. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
568. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
569. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
571. 　s = s & "ReadOnly=1;"
573. 　cn.Provider = "MSDASQL"
574. 　cn.connectionstring = s
576. 　cn.Open
578. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
579. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
580. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
582. 　　SQL = "Select * from " & SQL
584. 　　cmd.ActiveConnection = cn
585. 　　cmd.CommandText = SQL
587. 　　Set rs = cmd.Execute
589. 　　　With Sheet1.Range("B2")
590. 　　　　.CurrentRegion.ClearContents
591. 　　　　Do While Not rs.EOF
592. 　　　　　.Offset(i, 0) = rs.Fields(0).Value
593. 　　　　　.Offset(i, 1) = rs.Fields(1).Value
594. 　　　　　.Offset(i, 2) = rs.Fields(2).Value
595. 　　　　　.Offset(i, 3) = rs.Fields(3).Value
596. 　　　　　rs.MoveNext
597. 　　　　　i = i + 1
598. 　　　　Loop
599. 　　　End With
601. 　　rs.Close
602. 　cn.Close
604. 　Set rs = Nothing
605. 　Set cmd = Nothing
606. 　Set cn = Nothing
607. End Sub

図６３別窓
５５９行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、５６０行目「Set cmd = CreateObject("ADODB.Command")」でCommandオブジェクトを生成します。
５６５行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、５６６行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある５６２～５６３行目を使用し、CSVをデータベースとする時には５６８～５６９行目を使用します。
５７１行目「s = s & "ReadOnly=1;"」では、読込専用（True）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので省略してもOKです。またAccessとCSVではReadOnly=0（False）が既定となります。
５７３行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
５７４行目「cn.connectionstring = s」で、５６２～５７１行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
５７６行目「cn.Open」で、データベースに接続します。
５７９行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、５８０行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、５７８行目「SQL = "TestTable"」のようにテーブル名のままとします。
５８２行目「SQL = "Select * from " & SQL」で、実行するSQL文を組み立てます。
５８４行目「cmd.ActiveConnection = cn」は、接続中のConnectionオブジェクトをCommandオブジェクトのActiveConnectionに指定し、ConnectionとCommandを結び付けています。
５８５行目「cmd.CommandText = SQL」では、CommandオブジェクトのCommandTextにSQL文を指定しています。
５８７行目「Set rs = cmd.Execute」の右辺では、CommandオブジェクトのExecuteメソッドを実行し「ActiveConnectionプロパティに設定したデータベースに対し、CommandTextプロパティに設定したSQL文を実行」しています。そしてその戻り値であるレコードセットを左辺の変数rsに代入しています。
データのレコードセットが得られましたので、５８９～５９９行目で処理をしています。Do～Loopを使いレコードセットの終端になるまで繰り返し、４列のデータをワークシートに書き込みます。
処理が終了したら、６０１行目「rs.Close」でレコードセットを閉じ、６０２行目「cn.Close」で接続を閉じます。

７ー２ー３．CommandにSQL文を格納後Recordsetで取得

図５５のNo.7のコードは、以下のようになります。

620. '==========　⇩(16)　ConnectionでSQL文を実行しレコードセット取得 ============
621. Sub Pattern07()
622. 　Dim cn As Object 　 '←Connectionオブジェクト
623. 　Dim rs As Object 　 '←Recordsetオブジェクト
624. 　Dim cmd As Object 　 '←Commandオブジェクト
625. 　Dim SQL As String 　 '←テーブル名、又はSQL文
626. 　Dim s As String 　 '←接続文字列
627. 　Dim i As Integer 　 '←レコードの行位置
629. 　Set cn = CreateObject("ADODB.Connection")
630. 　Set rs = CreateObject("ADODB.Recordset")
631. 　Set cmd = CreateObject("ADODB.Command")
633. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
634. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
636. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
637. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
639. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
640. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
642. 　s = s & "ReadOnly=1;"
644. 　cn.Provider = "MSDASQL"
645. 　cn.connectionstring = s
647. 　cn.Open
649. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
650. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
651. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
653. 　　SQL = "Select * from " & SQL
655. 　　cmd.ActiveConnection = cn
656. 　　cmd.CommandText = SQL
658. 　　rs.Open cmd
660. 　　　With Sheet1.Range("B2")
661. 　　　　.CurrentRegion.ClearContents
662. 　　　　Do While Not rs.EOF
663. 　　　　　.Offset(i, 0) = rs.Fields(0).Value
664. 　　　　　.Offset(i, 1) = rs.Fields(1).Value
665. 　　　　　.Offset(i, 2) = rs.Fields(2).Value
666. 　　　　　.Offset(i, 3) = rs.Fields(3).Value
667. 　　　　　rs.MoveNext
668. 　　　　　i = i + 1
669. 　　　　Loop
670. 　　　End With
672. 　　rs.Close
673. 　cn.Close
675. 　Set rs = Nothing
676. 　Set cmd = Nothing
677. 　Set cn = Nothing
678. End Sub

図６４別窓
６２９行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、６３０行目「Set rs = CreateObject("ADODB.Recordset")」でRecordsetオブジェクトを生成。また６３１行目「Set cmd = CreateObject("ADODB.Command")」でCommandオブジェクトを生成します。
６３６行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、６３７行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある６３３～６３４行目を使用し、CSVをデータベースとする時には６３９～６４０行目を使用します。
６４２行目「s = s & "ReadOnly=1;"」では、読込専用（True）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので省略してもOKです。またAccessとCSVではReadOnly=0（False）が既定となります。
６４４行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
６４５行目「cn.connectionstring = s」で、６３３～６４２行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
６４７行目「cn.Open」で、データベースに接続します。
６５０行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、６５１行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、６４９行目「SQL = "TestTable"」のようにテーブル名のままとします。
６５３行目「SQL = "Select * from " & SQL」で、実行するSQL文を組み立てます。
６５５行目「cmd.ActiveConnection = cn」は、接続中のConnectionオブジェクトをCommandオブジェクトのActiveConnectionに指定し、ConnectionとCommandを結び付けています。
６５６行目「cmd.CommandText = SQL」では、CommandオブジェクトのCommandTextにSQL文を指定しています。
６５８行目「rs.Open cmd」では、RecordsetオブジェクトのOpenメソッドを実行しています。第１パラメータに接続情報とSQL文を格納したCommandオブジェクトを指定しています。
データのレコードセットが得られたら、６６０～６７０行目で処理をしています。Do～Loopを使いレコードセットの終端になるまで繰り返し、４列のデータをワークシートに書き込みます。
処理が終了したら、６７２行目「rs.Close」でレコードセットを閉じ、６７３行目「cn.Close」で接続を閉じます。

７ー２ー４．Recordsetに直接SQL文を指定しレコードセット取得

図５５のNo.8のコードは、以下のようになります。

690. '==========　⇩(17)　Recordsetに直接SQL文を指定しレコードセット取得 ============
691. Sub Pattern08()
692. 　Dim cn As Object 　 '←Connectionオブジェクト
693. 　Dim rs As Object 　 '←Recordsetオブジェクト
694. 　Dim SQL As String 　 '←テーブル名、又はSQL文
695. 　Dim s As String 　 '←接続文字列
696. 　Dim i As Integer 　 '←レコードの行位置
698. 　Set cn = CreateObject("ADODB.Connection")
699. 　Set rs = CreateObject("ADODB.Recordset")
701. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
702. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
704. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
705. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
707. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
708. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
710. 　s = s & "ReadOnly=1;"
712. 　cn.Provider = "MSDASQL"
713. 　cn.connectionstring = s
715. 　cn.Open
717. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
718. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
719. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
721. 　　SQL = "Select * from " & SQL
723. 　　rs.Open SQL, cn
725. 　　　With Sheet1.Range("B2")
726. 　　　　.CurrentRegion.ClearContents
727. 　　　　Do While Not rs.EOF
728. 　　　　　.Offset(i, 0) = rs.Fields(0).Value
729. 　　　　　.Offset(i, 1) = rs.Fields(1).Value
730. 　　　　　.Offset(i, 2) = rs.Fields(2).Value
731. 　　　　　.Offset(i, 3) = rs.Fields(3).Value
732. 　　　　　rs.MoveNext
733. 　　　　　i = i + 1
734. 　　　　Loop
735. 　　　End With
737. 　　rs.Close
738. 　cn.Close
740. 　Set rs = Nothing
741. 　Set cn = Nothing
742. End Sub

図６５別窓
６９８行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、６９９行目「Set rs = CreateObject("ADODB.Recordset")」でRecordsetオブジェクトを生成します。
７０４行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、７０５行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある７０１～７０２行目を使用し、CSVをデータベースとする時には７０７～７０８行目を使用します。
７１０行目「s = s & "ReadOnly=1;"」では、読込専用（True）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので省略してもOKです。またAccessとCSVではReadOnly=0（False）が既定となります。
７１２行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
７１３行目「cn.connectionstring = s」で、７０１～７１０行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
７１５行目「cn.Open」で、データベースに接続します。
７１８行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、７１９行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、７１７行目「SQL = "TestTable"」のようにテーブル名のままとします。
７２１行目「SQL = "Select * from " & SQL」で、実行するSQL文を組み立てます。
７２３行目「rs.Open SQL, cn」では、RecordsetオブジェクトのOpenメソッドを実行しています。第１パラメータには７２１行目で作成したSQL文を、第２パラメータには接続しているConnectionオブジェクト（変数cn）を指定します。
データのレコードセットが得られたら、７２５～７３５行目で処理をしています。Do～Loopを使いレコードセットの終端になるまで繰り返し、４列のデータをワークシートに書き込みます。
処理が終了したら、７３７行目「rs.Close」でレコードセットを閉じ、７３８行目「cn.Close」で接続を閉じます。

７ー３．SQL（Insert等）文で操作

データベースに接続し、「Insertなどのデータを変更させるSQL文」を操作するコードを以下で紹介します。
なお、Excelのシートデータベースについて説明しますが、以下のようにコードを切り替えることで、Access・CSVをデータベースの場合にすることが出来ます。また、SQL文をInsert・Update・Deleteで切り替える事で異なる処理が可能です。
なお丸番号は、図６７・図６８・図６９・図７０で同じにしてあります。

	ドライバ（Driver=）	データベース（DBQ=）	SQL文内 のﾃｰﾌﾞﾙ	SQL文
Access	① {Microsoft Access Driver (*.mdb, *.accdb)}	④パス名＋ファイル名 ThisWorkbook.Path & "¥" & "its-041.accdb"	⑦ﾃｰﾌﾞﾙ名 TestTable	⑪ Insert文 ⑫ Update文 ⑬ Delete文
Excel	② {Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}	⑤パス名＋ファイル名 ThisWorkbook.Path & "¥" & ThisWorkbook.Name	⑧ｼｰﾄ名+$印 [db$]	⑪ Insert文 ⑫ Update文
CSV	③ {Microsoft Access Text Driver (*.txt, *.csv)}	⑥パス名 ThisWorkbook.Path & "¥"	⑨CSVﾌｧｲﾙ名 [its-041.csv]	⑪ Insert文

図６６別窓

７ー３ー１．ConnectionでSQL文を実行しデータ変更

図５５のNo.9のコードは、以下のようになります。

750. '==========　⇩(18)　ConnectionでSQL文を実行しデータ変更 ============
751. Sub Pattern09()
752. 　Dim cn As Object 　 '←Connectionオブジェクト
753. 　Dim SQL As String 　 '←テーブル名、又はSQL文
754. 　Dim s As String 　 '←接続文字列
756. 　Set cn = CreateObject("ADODB.Connection")
758. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
759. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
761. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
762. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
764. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
765. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
767. 　s = s & "ReadOnly=0;"
769. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
770. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
772. 　cn.Open
774. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
775. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
776. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
778. 　　SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)" 　　 '←⑪Insert文
779. '　　SQL = "Update " & SQL & " set St='XYZ' where DT=#2000/11/20#" 　　 '←⑫Update文
780. '　　SQL = "Delete from " & SQL & " where Dt=#11/20/2000#" 　 '←⑬Delete文
782. 　　cn.Execute SQL
784. 　cn.Close
786. 　Set cn = Nothing
787. End Sub

図６７別窓
７５６行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成します。
７６１行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、７６２行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある７５８～７５９行目を使用し、CSVをデータベースとする時には７６４～７６５行目を使用します。
７６７行目「s = s & "ReadOnly=0;"」では、書き込み可（False）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので、省略するとエラーが発生します。またAccessとCSVではReadOnly=0（False）が既定ですので省略してもOKです。
７６９行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
７７０行目「cn.connectionstring = s」で、７５８～７６７行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
７７２行目「cn.Open」で、データベースに接続します。
７７５行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、７７６行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、７７４行目「SQL = "TestTable"」のようにテーブル名のままとします。
７７８行目「SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)"」でInsert文を組み立てています。
データの書き換えの場合は７７９行目「"Update " & SQL & " set St='XYZ' where DT=#2000/11/20#"」を、データ削除の場合は７８０行目「"Delete from " & SQL & " where Dt=#11/20/2000#"」のSQL文を使用します。
なお、Excelの場合はInsert文とUpdate文、CSVの場合はInsert文のみが使用でき、その他のSQL文ではエラーとなります。
７８２行目「cn.Execute SQL」では、ConnectionオブジェクトのExecuteメソッドで、第１パラメータに指定したSQL文（７７４～７８０行目で作成）を実行します。 実行終了したら、７８４行目「cn.Close」で接続を閉じます。

７ー３ー２．CommandでSQL文を実行しデータ変更

図５５のNo.10のコードは、以下のようになります。

800. '==========　⇩(19)　CommandでSQL文を実行しデータ変更 ============
801. Sub Pattern10()
802. 　Dim cn As Object 　 '←Connectionオブジェクト
803. 　Dim cmd As Object 　 '←Commandオブジェクト
804. 　Dim SQL As String 　 '←テーブル名、又はSQL文
805. 　Dim s As String 　 '←接続文字列
807. 　Set cn = CreateObject("ADODB.Connection")
808. 　Set cmd = CreateObject("ADODB.Command")
810. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
811. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
813. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
814. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
816. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
817. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
819. 　s = s & "ReadOnly=0;"
821. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
822. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
824. 　cn.Open
826. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
827. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
828. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
830. 　　SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)" 　　 '←⑪Insert文
831. '　　SQL = "Update " & SQL & " set St='XYZ' where DT=#2000/11/20#" 　　 '←⑫Update文
832. '　　SQL = "Delete from " & SQL & " where Dt=#11/20/2000#" 　 '←⑬Delete文
834. 　　cmd.ActiveConnection = cn
835. 　　cmd.CommandText = SQL
837. 　　cmd.Execute
839. 　cn.Close
841. 　Set cmd = Nothing
842. 　Set cn = Nothing
843. End Sub

図６８別窓
８０７行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、８０８行目「Set cmd = CreateObject("ADODB.Command")」でCommandオブジェクトを生成します。
８１３行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、８１４行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある８１０～８１１行目を使用し、CSVをデータベースとする時には８１６～８１７行目を使用します。
８１９行目「s = s & "ReadOnly=0;"」では、書き込み可（False）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので、省略するとエラーが発生します。またAccessとCSVではReadOnly=0（False）が既定ですので省略してもOKです。
８２１行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
８２２行目「cn.connectionstring = s」で、８１０～８１９行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
８２４行目「cn.Open」で、データベースに接続します。
８２７行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、８２８行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、８２６行目「SQL = "TestTable"」のようにテーブル名のままとします。
８３０行目「SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)"」でInsert文を組み立てています。
データの書き換えの場合は８３１行目「"Update " & SQL & " set St='XYZ' where DT=#2000/11/20#"」を、データ削除の場合は８３２行目「"Delete from " & SQL & " where Dt=#11/20/2000#"」のSQL文を使用します。
なお、Excelの場合はInsert文とUpdate文、CSVの場合はInsert文のみが使用でき、その他のSQL文ではエラーとなります。
８３４行目「cmd.ActiveConnection = cn」は、接続中のConnectionオブジェクトをCommandオブジェクトのActiveConnectionに指定し、ConnectionとCommandを結び付けています。
８３５行目「cmd.CommandText = SQL」では、CommandオブジェクトのCommandTextにSQL文を指定しています。
８３７行目「cmd.Execute」で、CommandオブジェクトのExecuteメソッドを実行し「ActiveConnectionプロパティに設定したデータベースに対し、CommandTextプロパティに設定したSQL文を実行」しています。
実行終了したら、８３９行目「cn.Close」で接続を閉じます。

７ー３ー３．CommandにSQL文を格納後Recordsetで実行しデータ変更

図５５のNo.11のコードは、以下のようになります。

850. '==========　⇩(20)　CommandにSQL文を格納後Recordsetで実行しデータ変更 ============
851. Sub Pattern11()
852. 　Dim cn As Object 　 '←Connectionオブジェクト
853. 　Dim rs As Object 　 '←Recordsetオブジェクト
854. 　Dim cmd As Object 　 '←Commandオブジェクト
855. 　Dim SQL As String 　 '←テーブル名、又はSQL文
856. 　Dim s As String 　 '←接続文字列
858. 　Set cn = CreateObject("ADODB.Connection")
859. 　Set rs = CreateObject("ADODB.Recordset")
860. 　Set cmd = CreateObject("ADODB.Command")
862. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
863. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
865. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
866. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
868. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
869. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
871. 　s = s & "ReadOnly=0;"
873. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
874. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
876. 　cn.Open
878. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
879. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
880. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
882. 　　SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)" 　　 '←⑪Insert文
883. '　　SQL = "Update " & SQL & " set St='XYZ' where DT=#2000/11/20#" 　　 '←⑫Update文
884. '　　SQL = "Delete from " & SQL & " where Dt=#11/20/2000#" 　 '←⑬Delete文
886. 　　cmd.ActiveConnection = cn
887. 　　cmd.CommandText = SQL
889. 　　rs.Open cmd
891. 　cn.Close
893. 　Set rs = Nothing
894. 　Set cmd = Nothing
895. 　Set cn = Nothing
896. End Sub

図６９別窓
８５８行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、８５９行目「Set rs = CreateObject("ADODB.Recordset")」でRecordsetオブジェクトを生成。８６０行目「Set cmd = CreateObject("ADODB.Command")」でCommandオブジェクトを生成します。
８６５行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、８６６行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある８６２～８６３行目を使用し、CSVをデータベースとする時には８６８～８６９行目を使用します。
８７１行目「s = s & "ReadOnly=0;"」では、書き込み可（False）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので、省略するとエラーが発生します。またAccessとCSVではReadOnly=0（False）が既定ですので省略してもOKです。
８７３行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
８７４行目「cn.connectionstring = s」で、８６２～８７１行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
８７６行目「cn.Open」で、データベースに接続します。
８７９行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、８８０行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、８７８行目「SQL = "TestTable"」のようにテーブル名のままとします。
８８２行目「SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)"」でInsert文を組み立てています。
データの書き換えの場合は８８３行目「"Update " & SQL & " set St='XYZ' where DT=#2000/11/20#"」を、データ削除の場合は８８４行目「"Delete from " & SQL & " where Dt=#11/20/2000#"」のSQL文を使用します。
なお、Excelの場合はInsert文とUpdate文、CSVの場合はInsert文のみが使用でき、その他のSQL文ではエラーとなります。
８８６行目「cmd.ActiveConnection = cn」は、接続中のConnectionオブジェクトをCommandオブジェクトのActiveConnectionに指定し、ConnectionとCommandを結び付けています。
８８７行目「cmd.CommandText = SQL」では、CommandオブジェクトのCommandTextにSQL文を指定しています。
８８９行目「rs.Open cmd」では、RecordsetオブジェクトのOpenメソッドの第１パラメータにCommandオブジェクトを指定して実行しています。この時、第２パラメータは省略します。
この８８９行目は「ActiveConnectionプロパティに設定したデータベースに対し、CommandTextプロパティに設定したSQL文を実行」している事になります。
実行が完了したら、８９１行目「cn.Close」でデータベース接続を閉じます。
なお、データ変更用のSQL文（Insert、Update、Delete）を８８９行目のRecordset.Openで実行した時は「Recordset.Closeは実行しない」ことに注意ください。このデータ変更SQLを実行した直後には、RecordsetオブジェクトのStateプロパティがゼロ（＝レコードセットは閉じられている）となり、更に「Recordset.Close を実行してしまうと、エラーが発生」します。

７ー３ー４．SQL文を直接ecordsetで実行しデータ変更

図５５のNo.12のコードは、以下のようになります。

900. '==========　⇩(21)　SQL文を直接ecordsetで実行しデータ変更 ============
901. Sub Pattern12()
902. 　Dim cn As Object 　 '←Connectionオブジェクト
903. 　Dim rs As Object 　 '←Recordsetオブジェクト
904. 　Dim SQL As String 　 '←テーブル名、又はSQL文
905. 　Dim s As String 　 '←接続文字列
907. 　Set cn = CreateObject("ADODB.Connection")
908. 　Set rs = CreateObject("ADODB.Recordset")
910. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
911. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
913. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
914. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
916. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
917. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
919. 　s = s & "ReadOnly=0;"
921. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
922. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
924. 　cn.Open
926. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
927. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
928. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
930. 　　SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)" 　　 '←⑪Insert文
931. '　　SQL = "Update " & SQL & " set St='XYZ' where DT=#2000/11/20#" 　　 '←⑫Update文
932. '　　SQL = "Delete from " & SQL & " where Dt=#11/20/2000#" 　 '←⑬Delete文
934. 　　rs.Open SQL, cn
936. 　cn.Close
938. 　Set rs = Nothing
939. 　Set cn = Nothing
940. End Sub

図７０別窓
９０７行目「Set cn = CreateObject("ADODB.Connection")」でConnectionオブジェクトを生成し、９０８行目「Set rs = CreateObject("ADODB.Recordset")」でRecordsetオブジェクトを生成します。
９１３行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、９１４行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある９１０～９１１行目を使用し、CSVをデータベースとする時には９１６～９１７行目を使用します。
９１９行目「s = s & "ReadOnly=0;"」では、書き込み可（False）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので、省略するとエラーが発生します。またAccessとCSVではReadOnly=0（False）が既定ですので省略してもOKです。
９２１行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
９２２行目「cn.connectionstring = s」で、９１０～９１９行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
９２４行目「cn.Open」で、データベースに接続します。
９２７行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、９２８行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、９２６行目「SQL = "TestTable"」のようにテーブル名のままとします。
９３０行目「SQL = "Insert into " & SQL & " (St,Nu,Dt,BL) values ('PQR',897,#11/20/2000#,True)"」でInsert文を組み立てています。
データの書き換えの場合は９３１行目「"Update " & SQL & " set St='XYZ' where DT=#2000/11/20#"」を、データ削除の場合は９３２行目「"Delete from " & SQL & " where Dt=#11/20/2000#"」のSQL文を使用します。
なお、Excelの場合はInsert文とUpdate文、CSVの場合はInsert文のみが使用でき、その他のSQL文ではエラーとなります。
９３４行目「rs.Open SQL, cn」で、RecordsetオブジェクトのOpenメソッドの第１パラメータにSQL文を指定し、第２パラメータに接続中のConnectionオブジェクト（変数cn）を指定することで、データベースに対してデータ変更処理を行います。
実行が完了したら、９３６行目「cn.Close」でデータベース接続を閉じます。
なお、データ変更用のSQL文（Insert、Update、Delete）を９３４行目のRecordset.Openで実行した時は「Recordset.Closeは実行しない」ことに注意ください。このデータ変更SQLを実行した直後には、RecordsetオブジェクトのStateプロパティがゼロ（＝レコードセットは閉じられている）となり、更に「Recordset.Close を実行してしまうと、エラーが発生」します。

８．データの一括処理

上記で紹介した「レコードセットを取得し、ワークシートにデータを書き出す」コードは、レコードセットをDo～Loopで「１レコード単位」で取り出して処理する手法でした。それとは異なる方法で「全データを一括で取り出す」事も可能です。
一括で取り出すには、RecordsetオブジェクトのGetRowsメソッドを使用します。構文としては以下になります。
　配列 = Recordset.GetRows( Rows, Start, Fields)
戻り値は「インデックスがゼロ始まりの二次元配列」です。指定できるパラメータは以下の３つで、全て省略可です。

パラメータ		内容
Rows	省略可	取り出す行数 既定=現ｶｰｿﾙ位置 or Start指定位置から最終行まで
Start	省略可	取り出し開始のﾌﾞｯｸﾏｰｸ(図７２) 既定=現ｶｰｿﾙ位置
Fields	省略可	取り出し列番号､又は列名 既定=全列

図７１別窓
第１パラメータのRowsは、GetRowsで取り出す行数を指定します。Recordset.Open直後のカーソル位置は先頭行にありますので、「省略すれば全行」が取り出せることになります。
なお取り出し行を「１」行に指定し、取り出した２次元配列をTranspose関数等で行列逆転させると「１次元配列」のデータとなります。例えば図７３の９８８行目のような「２次元配列を前提とした処理」ではエラーが発生してしまうので注意が必要です。
第２パラメータのStartは、ブックマーク文字列、又は図７２の値を指定します。省略（＝adBookmarkCurrent（値＝0））すると、現在のカーソル位置となります。

定数	値	内容
adBookmarkCurrent	0	現レコードから開始
adBookmarkFirst	1	最初のレコードから開始
adBookmarkLast	2	最後のレコードから開始

図７２別窓
Microsoftや他サイトでも図７２のような説明が載っているのですが、しかしMSDASQLプロバイダーで試してみると、既定のゼロ以外ではエラー（エラー内容：Recordsetはブックマークをサポートしていない）が発生してしまいます（ACE・Jetプロバイダーでも同じでした）。Recordset.Openメソッドを使い、第３パラメータ（CursorType）を調整してみたのですが同じエラーが出ます。
また、レコードセットへのブックマーク方法までは今回調べ切れず、ブックマーク文字列については今回省略しますが、上記のようなエラー内容から考えると、第２パラメータは「MSDASQL、ACE・Jetプロバイダーでは使えない」のかもしれません。
第３パラメータのFieldsは、列番号（先頭列＝ゼロ）または列名（文字列）で指定します。省略すると、全列を出力します。
なお、複数列に限って出力したい場合は「Array(2,3)」のように配列の形で指定することで可能です。この例の場合は３列目＋４列目を出力せよ　という意味になります。
GetRowsメソッドから戻ってくるデータは「行列が逆転した配列」になります。もちろんTransposeメソッドで行列を回転させる事は可能ですが、要素内に「Nullが入っているとエラー」が発生するので注意が必要です。また1行しか取得できなかった場合にTransposeで回転させると、二次元配列が一次元配列に変わってしまうので工夫が必要です。
図６２のコード（１行ずつ出力処理）をGetRowsで一括処理するのが、以下のコードになります。

950. '==========　⇩(22)　GetRowsでまとめてデータ取得 ============
951. Sub Pattern13()
952. 　Dim cn As Object 　 '←Connectionオブジェクト
953. 　Dim rs As Object 　 '←Recordsetオブジェクト
954. 　Dim SQL As String 　 '←テーブル名、又はSQL文
955. 　Dim GR As Variant 　 '←データ配列
956. 　Dim s As String 　 '←接続文字列
958. 　Set cn = CreateObject("ADODB.Connection")
960. '　s = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" 　　　　 '←①Accessドライバー情報
961. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & "its-041.accdb;" 　 '←④Accessデータソース情報
963. 　s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" 　 '←②Excelドライバー情報
964. 　s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";" 　 '←⑤Excelデータソース情報
966. '　s = "Driver={Microsoft Access Text Driver (*.txt, *.csv)};" 　 '←③CSVドライバー情報
967. '　s = s & "DBQ=" & ThisWorkbook.Path & "¥;" 　　　　　　　 '←⑥CSVデータソース情報
969. 　s = s & "ReadOnly=1;"
971. 　cn.Provider = "MSDASQL" 　 '←プロバイダー設定
972. 　cn.connectionstring = s 　 '←ドライバー＋データソース情報設定
974. 　cn.Open
976. '　　SQL = "TestTable" 　 '←⑦Accessテーブル
977. 　　SQL = "[db$]" 　　　 '←⑧Excelテーブル（シート名）
978. '　　SQL = "[its-041.csv]" 　 '←⑨CSVテーブル（ファイル名）
980. 　　SQL = "Select * from " & SQL
982. 　　Set rs = cn.Execute(SQL)
984. 　　　With Sheet1.Range("B2")
985. 　　　　.CurrentRegion.ClearContents
986. 　　　　GR = rs.GetRows
987. 　　　　GR = WorksheetFunction.Transpose(GR)
988. 　　　　.Resize(UBound(GR, 1), UBound(GR, 2)) = GR
989. 　　　End With
991. 　　rs.Close
992. 　cn.Close
994. 　Set rs = Nothing
995. 　Set cn = Nothing
996. End Sub

図７３別窓
９５８行目「Set cn = CreateObject("ADODB.Connection")」で、Connectionオブジェクトを生成します。
９６３行目「s = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"」でドライバー情報を文字列にし、９６４行目「s = s & "DBQ=" & ThisWorkbook.Path & "¥" & ThisWorkbook.Name & ";"」でデータソース情報（＝Excelファイル名）を追加します。
なおAccessをデータベースとする時には見え消しにしてある９６０～９６１行目を使用し、CSVをデータベースとする時には９６６～９６７行目を使用します。
９６９行目「s = s & "ReadOnly=1;"」では、読込専用（True）の設定をしています。なお図２５で説明したように、Excelの既定はReadOnly=1（True）ですので省略してもOKです。またAccessとCSVではReadOnly=0（False）が既定となります。
９７１行目「cn.Provider = "MSDASQL"」で、MSDASQLプロバイダーを設定します。なおADOの既定プロバイダーはMSDASQLですので、省略してもOKです。
９７２行目「cn.connectionstring = s」で、９６０～９６９行目で準備した接続情報文字列をConnectionオブジェクトのconnectionstringプロパティに指定します。
９７４行目「cn.Open」で、データベースに接続します。
９７７行目「SQL = "[db$]"」で、テーブル名を一旦変数SQLに代入しますが、ここではSQL文内のテーブル名とするため、「Excelのシート名＋$印 を角カッコで囲む」ようにします。なおCSVファイルの場合も、９７８行目「SQL = "[its-041.csv]"」の様に角カッコでCSVファイル名を囲む必要があります。Accessについては、９７６行目「SQL = "TestTable"」のようにテーブル名のままとします。
９８０行目「SQL = "Select * from " & SQL」で、実行するSQL文を組み立てます。
９８２行目「Set rs = cn.Execute(SQL)」では、右辺でConnectionオブジェクトのExecuteメソッドにSQL文を指定して実行させます。今回のSQL文は「Select ･･･」ですのでデータとしてレコードセットが戻されます。そのレコードセットを左辺の変数rsで受け取ることで、変数rsはRecordsetオブジェクトになります。なお、この段階では、レコードセットのカーソル（操作できる行位置）は、先頭行にあります。
９８４～９８９行目では、取得したレコードセットの全データをワークシート上に１回で書き出しています。
９８４行目「With Sheet1.Range("B2")」では、シートへのデータ書き出しの基準点を決めています。
９８５行目「.CurrentRegion.ClearContents」は、その基準点を含むエリアに書かれていたデータをクリアします。
９８６行目「GR = rs.GetRows」では、レコードセットの全データを取得しています。この時のGetRowsメソッドにはパラメータを指定していないので、「今カーソルがある先頭行（第２パラメータ）」から「全行数（第１パラメータ）」を「全列数（第３パラメータ）」分だけ取り出す、という条件になります。取り出したデータの配列GRは、行列逆転した状態で、且つ配列インデックスはゼロ始まりです。
９８７行目「GR = WorksheetFunction.Transpose(GR)」では、Transpose関数で行列を逆にし、いわゆる正しい行列方向にデータ変換しています。また配列インデックスも１始まりに変換されます（取得したデータ行が１行分の場合は、Transposeにより二次元配列→一次元配列 になります）。
９８８行目「.Resize(UBound(GR, 1), UBound(GR, 2)) = GR」では、貼り付けサイズを配列と同じサイズにしてから、配列データを貼り付けています。（１行しか取得できなかった場合は、ここでエラー（UBound(GR, 2)が無い）が出ます）
９９１行目「rs.Close」でレコードセットを閉じ、９９２行目「cn.Close」で接続を閉じます。
なお他のパターンでも、同様にGetRowsを使い一括処理を行うことが可能です。

アプリ実例・関連する項目

「CSVファイルの読み込み」
「Excelシート上にDBを作り、SQLを使ってデータを入出力する」
「オブジェクトの生成のやり方について」
「ExcelシートDBとSQLを使った会議室予約システム」
「ExcelシートDBとSQLを使った倉庫管理システム」
「複数の備品を同時予約可能な貸出台帳」
「共有資料の登録と閲覧ができるサーバーシステム」

サンプルファイル

ADOでAccess･Excel･CSVへ接続・操作(MSDASQLプロバイダー編)（its-043.xlsm）
Accessデータファイル（its-041.accdb）
CSVデータファイル（its-041.csv）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。