ファイル名はtest080.csvで、データは,カンマで区切られてます。
フィールドのイメージ
ISBN,書名,出版社名略称,価格,発売日
4-8399-0986-5,CPUの創りかた,毎コミ,2800,2003/9/30
4-8399-0997-0,速効!図解 ホームページ・ビルダー7,毎コミ,1280,2003/3/13
4-7980-0455-3,写真・イラスト入りはがきをつくる本,秀和システム,1280,2003/1/30
4-89369-974-1,VBAによるArcGISプログラミングガイド,BNN新社,2500,2003/9/26
4-7561-4198-6,プロジェクトマネジメント 実践の極意,アスキー,3200,2002/12/2
・
下記のようなSQL文と接続文字列でADOのレコードセットを作成してみました
'SQLのテーブル名には、ファイル名を指定します。
'Group By 出版社名略称でグループ化して冊数を数えてみました
strSQL = "select 出版社名略称, Count(*) AS 冊数 from test080.csv"
strSQL = strSQL & " Group By 出版社名略称"
'接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する
Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _
Server.MapPath(".") & ";"
'↑MapPathに(".")を渡し、カレントディレクトリを渡す
Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=d:\users\ken3_org\Cgi-bin\test;
select 出版社名略称, Count(*) AS 冊数 from test080.csv Group By 出版社名略称
出版社名略称 | 冊数 |
---|---|
BNN新社 | 2 |
FOM出版 | 3 |
九天社 | 1 |
技術評論社 | 7 |
実教出版 | 1 |
アスキー | 2 |
インプレス | 1 |
エーアイ出版 | 1 |
ソフトバンク | 1 |
秀和システム | 1 |
毎コミ | 3 |
翔泳社 | 2 |
日経BP出版センター | 2 |
ラトルズ | 1 |
Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ= を 使った ソースコードを紹介する表示色の説明:ASP VBScriptは <% 〜 %> |
まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。
次は、データの入出力 で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません
DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。1行読み込みなどを軽く
VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。
その他:blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ