分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

SQL Select文で複数テーブルを読み込む

単純に複数テーブルをFromにセットしてみました
Select * From T_2002年売上, T_2003年売上, T_2004年売上
うわ・・ボロボロだね。これでは使えないや・・・

T_2002年売上.商品CD	T_2002年売上.売上金額	T_2003年売上.商品CD	T_2003年売上.売上金額	T_2004年売上.商品CD	T_2004年売上.売上金額
A001	100	A001	100	B002	250
A001	100	A001	100	DDDDD	5000
A001	100	CCCC	500	B002	250
A001	100	CCCC	500	DDDDD	5000
B002	50	A001	100	B002	250
B002	50	A001	100	DDDDD	5000
B002	50	CCCC	500	B002	250
B002	50	CCCC	500	DDDDD	5000
A001	20	A001	100	B002	250
A001	20	A001	100	DDDDD	5000
A001	20	CCCC	500	B002	250
A001	20	CCCC	500	DDDDD	5000
CCCC	1200	A001	100	B002	250
CCCC	1200	A001	100	DDDDD	5000
CCCC	1200	CCCC	500	B002	250
CCCC	1200	CCCC	500	DDDDD	5000

終了です。
↓テストデータ↓

商品CD	売上金額
A001	100
B002	50
A001	20
CCCC	1200

DB内のデータを確認 DB:db100.mdb 確認用に発行したSQL:Select * From T_2002年売上商品CD 売上金額 A001 100 B002 50 A001 20 CCCC 1200

商品CD	売上金額
A001	100
CCCC	500

DB内のデータを確認 DB:db100.mdb 確認用に発行したSQL:Select * From T_2003年売上商品CD 売上金額 A001 100 CCCC 500

商品CD	売上金額
B002	250
DDDDD	5000

DB内のデータを確認 DB:db100.mdb 確認用に発行したSQL:Select * From T_2004年売上商品CD 売上金額 B002 250 DDDDD 5000

Select * Fromを使用したサンプル(ソースの紹介)

詳細解説は[http:/asp/backno/asp100.html]を見てください
下記、/cgi-bin/test/test100-1.aspのソース（中身）です

Select * From を使ったソースコードを紹介する

表示色の説明：ASP VBScriptは <% ～ %>
キーワードはSelect * From です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>SQL Select文で複数テーブルを読み込む</title>
</head>
<body>
<h1>SQL Select文で複数テーブルを読み込む</h1>
単純に複数テーブルをFromにセットしてみました<br>
Select * From T_2002年売上, T_2003年売上, T_2004年売上<br>
うわ・・ボロボロだね。これでは使えないや・・・
<hr>
<%
  'ADO DB Connection オブジェクトを作成する、英文そのままじゃん
  Set db=Server.CreateObject("ADODB.Connection")
  'データアクセスにはJet.OLEDB.4.0を使うことを設定
  db.Provider = "Microsoft.Jet.OLEDB.4.0"
  '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す
  db.ConnectionString = Server.MapPath("db100.mdb")
  db.open 'データベースを開く

  'Fromに３つのテーブルを書く
  strSQL = "Select * From T_2002年売上, T_2003年売上, T_2004年売上"
  Set rs = db.Execute(strSQL)

  'データの表示をテーブルで行う
  Response.Write "<TABLE Border='1'>"

  '見出しを(フィールド名を)そのまま書き込む
  Response.Write "<TR>"
  For Each fld_A In Rs.Fields 'フィールドのアイテムに対してループ
     Response.Write "<TH>" & fld_A.Name & "</TH>"
     '↑.Nameでフィールド名を表示する
  Next
  Response.Write "</TR>"

  'お約束のＥＯＦまでループは(データが無くなるまでループ)、
  Do While rs.EOF = False   'レコードセットの.EOFがFalseの間
    Response.Write "<TR>"   '内容を表示する
    For Each fld_A In Rs.Fields 'フィールドのアイテムに対してループ
       Response.Write "<TD>" & fld_A.Value & "</TD>"
       '↑.Valueでフィールドの値を表示する
    Next
    Response.Write "</TR>"
    '次のレコードにポインタを移動する
    rs.MoveNext    'これを忘れると悲惨なことに、、、
  Loop

  Response.Write "</TABLE>"  'テーブルは終わりです

  '後始末
  rs.Close '開いていたレコードセットを閉じる
  db.Close 'データベースも閉じようよ
  Set db = Nothing 'お行儀よくオブジェクトも開放しましょう

%>
<hr>
終了です。<br>
↓テストデータ↓<br>
</body>
</html>

最近発売の雑誌を紹介する

ビジネス・経済の雑誌を紹介します。※重たい雑誌は通販や近くのコンビニで？

Googleで関連項目を検索する

[キーワード:Select * From] とサンプル|解説|Dim|Set で検索
↓で検索して他のページも確認してみてください。

あれ？私のページが検索に載ってない（笑）一度お試しを（私のページに、また戻ってきてね（爆））

[Topへ戻る] －－＞[ASP系のTOPへ戻る] －－＞[記事一覧を見る]

リンク三流君ＡＳＰ系の解説を項目ごとにまとめてみました

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。１行読み込みなどを軽く

VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。

その他：blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます

現在時刻は、2010/08/01 9:40:48です。