Server IISの設定が変更になった?ので、過去のテストがうまく動かない場合があります。
情報も古いのでソースは参考程度に・・・<>

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

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

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

なにも条件を指定しないで、2つのテーブルを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マフラー


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

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

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

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードはFrom です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL From句にテストで2つのテーブルデータを指定(つなげない)</title> </head> <body> <h1>SQL From句にテストで2つのテーブルデータを指定(つなげない)</h1> なにも条件を指定しないで、2つのテーブルを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" '次に、接続DBの位置を渡すので、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>" 'お約束のEOFまでループは(データが無くなるまでループ)、 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. --[恋声 ボイスチェンジ フリーソフト]
  2. --[【ガチャ】モンスト 3500万人記念!!オーブ0ガチャ]
  3. --[Access コンボボックスを使ってみた]
  4. --[ Windows7 OSのフルバックアップ システムイメージバックアップ]

Googleで関連項目を検索する

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

Google

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

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

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

まぁ、基本はデータの受け取りかなぁ。
・[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]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ


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

現在時刻は、2017/05/28 17:29:36です。