5.8 おまけ1／データ件数の取得 　SELECT文で取得したレコードが何件あるかという情報を取りたい場合です。このネタ、AccessやVBS(WSH)がナンチャラというよりもSQLの使い方になっちゃいますが、まぁいいかということで（笑） 　件数を取得したいときは、SQL(SELECT)のでCOUNTという関数を使います。 使用例 　COUNTの使い方です。例では、開いたMDBファイルの住所録テーブルというテーブルに入っているデータ数を表示しています。ちなみに、使うテーブルはAccessネタで使った住所録テーブルです。詳しくは、Accessネタ住所録を作ってみようの2.住所録テーブルの作成を参照してください。 　COUNT文を実行しているのは�@のSELECT文の所です。実際にはCOUNT(*)ですが、あまり気にせずにこう書きましょう。このSELECT文にはWHEREが無いので全件がカウント対象になります。取得した件数には件数という名前を付けていますが、これが後でレコードセットから情報を取り出すときの名前(�A)になります。それと、あたりまえですがWHEREで抽出条件を与えると、絞り込んだ後のデータがカウント対象になります。 　ちなみに、Accessを終了する方法は5.11 Accessを終了するを見てくださいね。 Option Explicit Dim objAccess Dim objDB Dim objRS 'Accessオブジェクトを作成します Set objAccess = CreateObject("Access.Application") 'Access画面を表示します objAccess.Visible = True '既存のMDBファイルを開きます objAccess.OpenCurrentDatabase("c:\happy\island.mdb") 'DBオブジェクトを作ります Set objDB = objAccess.CurrentDb '�@SQLを実行します Set objRS = objDB.OpenRecordset("SELECT COUNT(*) AS 件数 FROM 住所録テーブル") '�A取得した件数を表示します WScript.echo "件数=" & objRS("件数") 'レコードセットをクローズします objRS.Close '各種オブジェクトの破棄 Set objRS = Nothing Set objDB = Nothing Set objAccess = Nothing 　※例では、Accessの画面をわざと表示しています

[PR]結城圭介。が書いたVBS(WSH)の本 ■最速攻略 VBScriptサンプル大全集 ◆最速攻略 Excel VBA サンプル大全集 （アマゾンへジャンプします） VBScript&JScript Tips ■Excel & Access操作編 4.エクセルの操作   4.1 エクセルオブジェクトを作る      ・ついでにエクセルの終了方法      ・他にエクセル95オブジェクトの作り方   4.2 エクセル画面を表示・非表示にする   4.3 既存のワークブックを開く   4.4 新規ワークブックを作る   4.5 ワークブックの操作      ・Selectionの代わりの方法   4.6 ワークブックの保存      ・上書き保存と名前を付けて保存   4.7 ワークブックを閉じる   4.8 ワークブックを扱うときの注意      ・エクセル出っぱなしに注意！？   4.9 異常終了時の対処      ・ゾンビエクセルを消しましょう      ・Accessでも同じことを気を付けよう 5.Accessの操作   5.1 Accessオブジェクトを作る      ・他にAccess97オブジェクトの作り方   5.2 Access画面を表示・非表示にする   5.3 既存のMDBファイルを開く・閉じる   5.4 新しいMDBファイルを作る   5.5 DBオブジェクトを作成する      ・テーブルを使いたい場合の基本      ・他にDBオブジェクトのクローズ   5.6 SQLの実行／SELECT      ・SELECTの実行と実行結果の取得      ・レコードセットのクローズ   5.7 SQLの実行／INSERT、UPDATE系      ・UPDATEやINSERTの実行   5.8 SQLのおまけ／データ件数の取得   5.9 インポート、エクスポート      ・MDB間でのオブジェクトのコピー   5.10 レポートの印刷   5.11 Accessを終了する ■基本編 ■ファイル・フォルダ操作編 ■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