13.1 VBAとADOを使ってデータベースへアクセス テーブル、フォーム、レポートなどが完成したところで1秒でも早くフォームから入力ができるようにしたい所ですが、その前にVBAを使ってどのようにテーブルの読み書きをするのかを説明したいと思います。以下の内容を読破した上で次の章へ進んでください。ちなみに、ここの章ではまだモジュールを作ったりはしません。 データベースを使うにはADOが基本 VBAを使ってデータベースへアクセス（テーブルの読み書き）を行うときは、ADO（ActiveX Data Objects）というオブジェクトを使います。これは、OLE DBを使うためのインターフェースで、早い話がRDBを使ったり、XLSやCSVをRDB感覚で使ったりなど、色々なデータソースを同じインターフェースで超簡単に扱うためのするための機能です。 データベースのオープンとクローズ アドレス帳ツールでは、テーブルとVBAコードをMDB内に同居させます。このようなケースでテーブルを扱う場合は、最初にADODB.Connectionオブジェクトの作成から始めましょう。 作成は超簡単で、Set命令を使いADODB.Connection型の変数へApplication.CurrentProject.Connectionをセットするだけです。 ■記述例   Dim objADOCON As ADODB.Connection   Set objADOCON = Application.CurrentProject.Connection ■解説 Dim objADOCON As ADODB.Connection ADOコネクションオブジェクト変数の宣言です。例では変数名をobjADOCONという名前にしていますが、ここは好きな名前でかまいません。型にはADODB.Connectionを指定しましょう。 Set objADOCON = Application.CurrentProject.Connection コネクションオブジェクトの作成を行います。なお、テーブルとVBAコードがMDB内に同居している場合は、この方法を使ってコネクションを行います。ここまでが完了すると、あとはobjADOCONを使ってデータベースを扱うことができます。 次にクローズです。閉じるときは、ADOコネクションオブジェクトのCloseメソッドで行います。また、使い終わったコネクションオブジェクト変数は、Nothingをセットしクリアしてください。 ちなみに、クローズしてもMDBが閉じてしまうわけではありません。使い終わった変数を片づける意味でのクローズですのでご安心を。 ■記述例   objADOCON.Close   Set objADOCON = Nothing ■解説 objADOCON.Close データベースのクローズです。オープンしたら、必ずクローズしましょう。 Set objADOCON = Nothing コネクションオブジェクトのクリアを行います。使い終わったコネクションオブジェクトにはNothingをセットしクリアしておきましょう。 SQLの実行方法 テーブルからデータを読み込んだり、テーブルへデータを書き込んだりするときはSQLを使って行いますが、今度はADOを使ってSQLを実行する方法です。SQLを実行するときは、ADOコネクションオブジェクトのExecuteというメソッドを使って行います。 SQLには、実行した結果を返すもの（SELECT命令）と、実行結果を返さないもの（INSERT、UPDATE、DELETEなど）の２種類ありますが、まずはSELECT命令の実行方法と結果の取得方法です。 SELECT命令を実行すると、取り出した（読み込んだ）全てのレコードはレコードセットという形で返り、さらにレコードセットをADODB.Recordset型の変数へセットすることでデータとして扱えるようになります。また、レコードセットを作成した場合は、最後にCloseメソッドを使ってレコードセットのクローズと、最初にNothingをセットし、レコードセット変数のクリアを行いましょう。 ■記述例   Dim objADOCON As ADODB.Connection   Dim objADORS  As ADODB.Recordset   Set objADOCON = Application.CurrentProject.Connection   Set objADORS = objADOCON.Execute("SELECT * FROM アドレス帳テーブル")   objADORS.Close   objADOCON.Close   Set objADORS = Nothing   Set objADOCON = Nothing ■解説 objADORS  As ADODB.Recordset ADOレコードセットオブジェクト変数の宣言です。例では変数名をobjADORSという名前にしていますが、ここは好きな名前でかまいません。型にはADODB.Recordsetを指定しましょう。 Set objADORS = objADOCON.Execute("SELECT * FROM アドレス帳テーブル") SQL(SELECT)を実行し、その結果（レコードセット）をレコードセット型の変数「objADORS」へ保存します。SELECT命令の実行結果は、変数objADORSを使って扱います。 なお、実行するSQLはExecuteの引数へ文字列で指定します。 objADORS.Close レコードセットのクローズです。レコードセットを使い終わった、必ずクローズしましょう。 Set objADORS = Nothing レコードセットのクリアを行います。使い終わったレコードセットオブジェクトにはNothingをセットし必ずクリアしておきましょう。 次に、実行結果を返さないSQL(INSERT、UPDATE、DELETEなど)を実行する方法です。同じく、Executeで実行しますが、レコードセットを返さないためレコードセットオブジェクト変数は使いません。 ■記述例   Dim objADOCON As ADODB.Connection   Set objADOCON = Application.CurrentProject.Connection   objADOCON.Execute("UPDATE アドレス帳テーブル SET 漢字氏名 = '聖徳太子'" & _                      " WHERE レコードキー = 1")   objADOCON.Close   Set objADOCON = Nothing レコードセットを扱う 次に必要な知識は、レコードセットからフィールド値を取り出す方法や、レコードの順読み・読み込み終了判定方法など、レコードセットを扱う方法です。 というわけで、まずはレコードセットからフィールド値を取り出す方法から行きましょう！フィールドの指定は次のように行います。 レコードセットオブジェクト!フィールド名 または レコードセットオブジェクト("フィールド名") たとえば、objADORSというレコードセットの「漢字氏名」というフィールドの値を取り出す場合（例ではstrNameという変数へ保存）は、次のように記述します。なお、「※1」で指定しているValueは、付けても付けなくても、どちらでもOKです。 strName = objADORS!漢字氏名 または strName = objADORS("漢字氏名").Value '※1 ADOを使ってMDBを扱うその他の技 ADOを使ってデータベースを扱う基本を簡単に紹介しましたが、ここで紹介したのはアドレス帳ツールで使用する機能だけです。ADOは、他にもレコードの順読み込みや読み込み終了判定、他のSQL ServerやORACLEなど他のデータベースを扱うなど、色々なことが行えます。 ここで紹介していないテクニックは、Access VBA Tipsの方で紹介していますので、ぜひ覗いてみて下さい。 次行ってみよう… 「13.2 トランザクションの基本」へ進み、データベースの更新（追加や削除も含む）するときの制御方法をマスターしよう。

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Access VBA サンプル大全集 ■Access クエリ スパテク209 ■ここが知りたかった! Access VBA 500の技※ ◆最速攻略 Excel VBA サンプル大全集 ◆苦手なコードもこれで安心!Excel VBA超入門講座 ◆Excel VBAゲーム大作戦 はじめて編※ 実践編※ （アマゾンへジャンプします。※は共著作品） アドレス帳を作ってみよう for Access2000-2003 ■第２部／Access VBAプログラミング基礎編 13.VBAとADOとSQLを使ったテーブル操作の基本   13.1 VBAとADOを使ってデータベースを扱う   ・データベースのオープンとクローズ   ・レコードセットの作成   ・レコードセットからフィールド値を取り出す   13.2 トランザクションの基本   ・データベース更新の制御   ・BeginTrans、CommitTrans、RollbackTrans   13.3 SELECTでテーブルからレコードを取り出す   13.4 INSERTでテーブルへレコードを追加する   13.5 UPDATEでテーブルのレコードを更新する   13.6 DELETEでテーブルのレコードを削除する ■第１部／テーブル・フォーム作成編 ■第２部／Access VBAプログラミング基礎編 ■第３部／Access VBAプログラミング実践編 Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト モーグ スキルアップ・問題解決はモーグにおまかせ！ [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved