三流君(TOP) /ASPで遊ぶ /記事一覧

SQL From句にテストで２つのテーブルデータを指定(つなげない)

なにも条件を指定しないで、２つのテーブルをFrom句に書いてみました。
Set rs = db.Execute("Select * From T_月別売上, T_商品")
と、SQL文でレコードセットを作成してみた
※From句にテーブルを書いただけです。
T_月別売上.商品CD売上4売上5売上6売上7売上8売上9売上10売上11売上12売上1売上2売上3T_商品.商品CD商品名
A1123456000000A1コーラ
A1123456000000A2オレンジ
A1123456000000A3りんご
A1123456000000B1スーパードライ
A1123456000000B2モルツ
A1123456000000B3黒ラベル
A1123456000000D1コート
A1123456000000D2マフラー
A2204567000000A1コーラ
A2204567000000A2オレンジ
A2204567000000A3りんご
A2204567000000B1スーパードライ
A2204567000000B2モルツ
A2204567000000B3黒ラベル
A2204567000000D1コート
A2204567000000D2マフラー
A30000002030201025A1コーラ
A30000002030201025A2オレンジ
A30000002030201025A3りんご
A30000002030201025B1スーパードライ
A30000002030201025B2モルツ
A30000002030201025B3黒ラベル
A30000002030201025D1コート
A30000002030201025D2マフラー
B14267810000000A1コーラ
B14267810000000A2オレンジ
B14267810000000A3りんご
B14267810000000B1スーパードライ
B14267810000000B2モルツ
B14267810000000B3黒ラベル
B14267810000000D1コート
B14267810000000D2マフラー
B2000000123456A1コーラ
B2000000123456A2オレンジ
B2000000123456A3りんご
B2000000123456B1スーパードライ
B2000000123456B2モルツ
B2000000123456B3黒ラベル
B2000000123456D1コート
B2000000123456D2マフラー
B364891012000000A1コーラ
B364891012000000A2オレンジ
B364891012000000A3りんご
B364891012000000B1スーパードライ
B364891012000000B2モルツ
B364891012000000B3黒ラベル
B364891012000000D1コート
B364891012000000D2マフラー
C1111111000000A1コーラ
C1111111000000A2オレンジ
C1111111000000A3りんご
C1111111000000B1スーパードライ
C1111111000000B2モルツ
C1111111000000B3黒ラベル
C1111111000000D1コート
C1111111000000D2マフラー
C2222222000000A1コーラ
C2222222000000A2オレンジ
C2222222000000A3りんご
C2222222000000B1スーパードライ
C2222222000000B2モルツ
C2222222000000B3黒ラベル
C2222222000000D1コート
C2222222000000D2マフラー
D100000021010520A1コーラ
D100000021010520A2オレンジ
D100000021010520A3りんご
D100000021010520B1スーパードライ
D100000021010520B2モルツ
D100000021010520B3黒ラベル
D100000021010520D1コート
D100000021010520D2マフラー
D2000000146310A1コーラ
D2000000146310A2オレンジ
D2000000146310A3りんご
D2000000146310B1スーパードライ
D2000000146310B2モルツ
D2000000146310B3黒ラベル
D2000000146310D1コート
D2000000146310D2マフラー
終了です。
DB内のデータを確認
DB:db072.mdb
確認用に発行したSQL:Select * From T_月別売上
商品CD売上4売上5売上6売上7売上8売上9売上10売上11売上12売上1売上2売上3
A1123456000000
A2204567000000
A30000002030201025
B14267810000000
B2000000123456
B364891012000000
C1111111000000
C2222222000000
D100000021010520
D2000000146310
DB内のデータを確認
DB:db072.mdb
確認用に発行したSQL:Select * From T_商品
商品CD商品名
A1コーラ
A2オレンジ
A3りんご
B1スーパードライ
B2モルツ
B3黒ラベル
D1コート
D2マフラー
コーヒーブレイク たまには寄り道、休憩も(↓広告です):
広告:[Blogで商品紹介] ← 足跡から人気を判断？
[本日発売の商品] ← 発売日が当日の商品を紹介、、、するが効果が無いので → [先週発売の商品] ← を作成して、先走らないで、少し落ち着いてみます(笑)

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

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

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

表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>SQL From句にテストで２つのテーブルデータを指定(つなげない)</title>
</head>
<body>
<h1>SQL From句にテストで２つのテーブルデータを指定(つなげない)</h1>
なにも条件を指定しないで、２つのテーブルをFrom句に書いてみました。<br>
Set rs = db.Execute("Select * From T_月別売上, T_商品")<br>
と、SQL文でレコードセットを作成してみた<br>
※From句にテーブルを書いただけです。<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("db072.mdb")
  db.open 'やっとデータベースを開ける

  'お約束のレコードセットの作成 T_月別売上,T_商品を指定
  Set rs = db.Execute("Select * From T_月別売上, T_商品")

  'データの表示をテーブルで行う
  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>
</body>
</html>

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

パソコン雑誌です。息抜きや空いた時間に読んで見ては？
  1. MdN (エムディーエヌ) 2008年 06月号
  2. DTM MAGAZINE 2008年 06月号
  3. 日経 Linux (リナックス) 2008年 06月号
  4. ネトラン 6月号 【雑誌】
  5. Design Wave MAGAZINE (デザイン ウェーブ マガジン) 2008年 06月号
  6. ケータイスペシャル 2008年 06月号

プログラミングの書籍を紹介します

  1. [4756136494]- プログラミング作法
  2. [4797339535]- 明解Java 入門編
  3. [4891005750]- ひと目でわかるMicrosoft Visual Basic 2008 アプリケーション開発入門 (マイクロソフト公式解説書)
  4. [4861671647]- 実践Web Standards Design―Web標準の基本とCSSレイアウト&Tips
  5. [4839916578]- MySQL入門以前
  6. [479733245X]- PHPによるWebアプリケーションスーパーサンプル 第2版

Googleで関連項目を検索する

LANGUAGE=VBScript + [キーワード:] Sub|Function プログラム|プログラミング
↓で検索するとプログラムの例 Sub/Function でまとまったＨＰ
Google

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

ASPでDBはMDBを使用して、SQL文を発行するサンプル

テスト実行とサンプルソース

ASP系、ADO使用、MDB接続、SQL発行、メルマガ解説リンク

[No.26 MDBファイルにアクセスしてみたADODB.Connection]
[No.27 SQL INSERT INTO文でデータの追加]
[No.28 SQL ORDER BYでデータの並べ替え]
[No.30 SQL SELECT文WHERE句を使って条件検索]
[No.32 SQL DELETE文でデータを削除してみた]

[No.33 SQL UPDATE文でデータを更新する]
[No.38 SQL GROUP BY句 で グループ化する]
[No.39 SQL GROUP BY句 で グループ化 集計結果を並べ替えする]
[No.40 MDBへのSQL文 Format関数使用]
[No.43 SQL文 HAVING句でGroup化されたレコードに条件設定する]

[No.44 MDBを使ったアンケート集計を作る]
[No.46 SQL文 SELECT WHERE句でIN演算子を使用して複数条件を選択する]
[No.47 いろいろな削除処理で遊んでみた（笑）]
[No.70 SQL Select DISTINCT キーワードで重複結果の出力をハジク]
[No.73 テーブルをつなげて商品名を取得する方法]

[No.74 演算フィールドを作成する]
[No.75 SQL UNION演算子 で 表をつなげたレコードセットの作成]
[No.76 小計・合計の表示、SQLで小細工の嵐（笑）]
[No.77 SQL AS演算子で別名管理]
[No.82 ページ単位の表示にチャレンジしてみた]

[No.83 Select TOP 20 と Select Top n PERCENT で遊ぶ]
[No.87 ADO SQL Like演算子で部分検索する]
[No.88 SQL HAVING句でSUMした値をチェックする]
[No.89 SQL 集計関数MAXと副問い合わせ(サブクエリー)]

三流解説とリンクページを紹介

ＡＳＰ系の解説を項目ごとにまとめてみました

[ASP Form等を使用したデータのやり取り]
[ASP その他処理サンプル]
[ASP テキストファイル処理]
[ASP VBScript関数関係の説明]
[ASP ADOでMdbファイルを使う]
[ASP ADOでExcelと接続してみた]

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

現在時刻は、2008/05/12 16:57:35です。
[Topへ戻る] −−＞[ASP系へ戻る] −−＞[バックナンバーを見る]