8.3 データの読み込み 　SELECT文を実行し結果を取得したいときの方法です。SELECT文などのSQLを実行するときは、ADOオブジェクトのExecuteというメソッドで行います。 　そして、このメソッドを実行するとレコードセットオブジェクトという物が作成され、そこからレコードやフィールドを取り出します。基本的には、ココのネタ(Accessのところ)にある『5.6 SQLを実行する1』や『6.4 SQLの実行／SELECT』と同じです。 使用例／エクセルワークブックの場合 　SELECT文を使い、エクセルワークブックのデータを取得するときの方法です。例では、c:\happy\ADO_EXCEL.xlsというエクセルワークブックをADOを使い読み込みモードで開き、SELECT文でデータを取得したデータを全て表示しています。ちなみに、使っているワークブックの内容は『8.1 エクセルやCSVを使う』に出ているサンプルCSVファイルの内容と同じです。 　なお、Executeメソッドやレコードセットオブジェクトなどについては、ココのネタ(Accessのところ)にある『5.6 SQLを実行する1』と同じなので、そちらを参照してください。 　それと、SELECT文でも何らかの原因でSQLエラーが出ることがあります。エラー情報の取得については『6.5 SQLの実行2』をどうぞ。 　■VBScriptでの記述例 Option Explicit Dim objADO Dim objRS 'ADOオブジェクトを作成します Set objADO = CreateObject("ADODB.Connection") 'ADOを使いエクセルワークブックを読み込みモードでオープンします objADO.Open "Driver={Microsoft Excel Driver (*.xls)};" & _             "DBQ=c:\happy\ADO_EXCEL.xls;" & _             "ReadOnly=1" 'SQLを実行し、店舗コードがT5144のデータを抽出します Set objRS = objADO.Execute("select * from U_TBL where 店舗コード='T5144'") 'SQLの実行結果をデータが無くなるまで表示します Do Until objRS.Eof = True     'フィールド値の表示     WScript.echo "店舗コード:" & objRS("店舗コード") & " 価格:" & objRS("価格")     'カーソルを次の行へ     objRS.MoveNext Loop 'レコードセットをクローズします objRS.Close 'ADOオブジェクトをクローズします objADO.Close 'オブジェクトの破棄 Set objADO = Nothing 　■JScript(JavaScript)での記述例 //ADOオブジェクトを作成します var objADO = new ActiveXObject("ADODB.Connection"); //ADOを使いエクセルワークブックを読み込みモードでオープンします objADO.Open("Driver={Microsoft Excel Driver (*.xls)};" +             "DBQ=c:\\happy\\ADO_EXCEL.xls;" +             "ReadOnly=1"); //SQLを実行し、店舗コードがT5144のデータを抽出します var objRS = objADO.Execute("select * from U_TBL where 店舗コード=\'T5144\'"); //SQLの実行結果をデータが無くなるまで表示します do {     //フィールド値の表示     WScript.echo("店舗コード:" + objRS("店舗コード") + " 価格:" + objRS("価格"));     //カーソルを次の行へ     objRS.MoveNext(); } while(objRS.Eof==false); //レコードセットをクローズします objRS.Close(); //ADOオブジェクトをクローズします objADO.Close(); //オブジェクトの破棄 objRS = null; objADO = null; 使用例／CSVファイルの場合 　同じように、CSVファイルからデータを取得するときの方法です。違いは、オープンの方法と、SELECT文の所でCSVファイル名を指定しているところです。 　例では、c:\happyというフォルダをADOを使い読み込みモードで開き、その中に入っているADO_EXCEL.csvというCSVファイルに入っているデータをSELECT文で取得し、取得したデータを全て表示しています。ちなみに、使っているCSVファイルは『8.1 エクセルやCSVを使う』に出ているサンプルCSVファイルです。 　■VBScriptでの記述例 Option Explicit Dim objADO Dim objRS 'ADOオブジェクトを作成します Set objADO = CreateObject("ADODB.Connection") 'ADOを使いCSVファイルを扱う準備(オープン)を行います objADO.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _             "DBQ=c:\happy;" & _             "ReadOnly=1" 'SQLを実行し、店舗コードがT5144のデータを抽出します Set objRS = objADO.Execute("select * from ADO_EXCEL.csv where 店舗コード='T5144'") 'SQLの実行結果をデータが無くなるまで表示します Do Until objRS.Eof = True     'フィールド値の表示     WScript.echo "店舗コード:" & objRS("店舗コード") & " 価格:" & objRS("価格")     'カーソルを次の行へ     objRS.MoveNext Loop 'レコードセットをクローズします objRS.Close 'ADOオブジェクトをクローズします objADO.Close 'オブジェクトの破棄 Set objRS = Nothing Set objADO = Nothing 　■JScript(JavaScript)での記述例 //ADOオブジェクトを作成します var objADO = new ActiveXObject("ADODB.Connection"); //ADOを使いCSVファイルを扱う準備(オープン)を行います objADO.Open("Driver={Microsoft Text Driver (*.txt; *.csv)};" +             "DBQ=c:\\happy;" +             "ReadOnly=1"); //SQLを実行し、店舗コードがT5144のデータを抽出します var objRS = objADO.Execute("select * from ADO_EXCEL.csv where 店舗コード=\'T5144\'"); //SQLの実行結果をデータが無くなるまで表示します do {     //フィールド値の表示     WScript.echo("店舗コード:" + objRS("店舗コード") + " 価格:" + objRS("価格"));     //カーソルを次の行へ     objRS.MoveNext(); } while(objRS.Eof==false); //レコードセットをクローズします objRS.Close(); //ADOオブジェクトをクローズします objADO.Close(); //オブジェクトの破棄 objRS = null; objADO = null;

[PR]結城圭介。が書いたVBS(WSH)の本 ■最速攻略 VBScriptサンプル大全集 ◆最速攻略 Excel VBA サンプル大全集 （アマゾンへジャンプします） VBScript&JScript Tips ■データアクセス編 6.ADOを使ったDBの利用方法   6.1 ADOオブジェクトを作る   6.2 AccessのDBを開く・閉じる      ・MDBファイルを直接指定する場合      ・ODBCデータソースを使う場合   6.3 ORACLEのDBを開く・閉じる      ・接続情報を全て指定する場合      ・ODBCデータソースを使う場合   6.7 SQL ServerのDBを開く・閉じる      ・接続情報を全て指定する場合      ・ODBCデータソースを使う場合   6.4 SQLの実行／SELECT      ・SELECTの実行と実行結果の取得      ・レコードセットのクローズ   6.5 SQLの実行／INSERT、UPDATE系      ・SQLエラーの判定      ・トランザクション開始      ・コミット、ロールバック   6.6 ユーザDSNとシステムDSNの違い ※番号が飛んでますが気にせずに… 8.ADOを使ったExcelやCSVの利用方法   8.1 エクセルやCSVをDB感覚で！      ・SQL内でシート名を指定する方法      ・SQL内でCSVファイル名を指定する方法      ・お試し用のデータあります！   8.2 エクセルやCSVを開く      ・XLSファイルを直接指定する場合      ・ODBCデータソースを使う場合      ・読み込みモードと更新モード   8.3 データの読み込み      ・SELECTの実行と実行結果の取得      ・XLSのときとCSVのときの違い   8.4 データ追加、更新      ・ワークシートは追加・更新が可能      ・CSVは追加が可能      ・ただし、トランザクションが使えない ■基本編 ■ファイル・フォルダ操作編 ■Excel & Access操作編 ■インターネットエクスプローラ操作編 ■データアクセス編 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