Select T_月別売上.商品CD, T_商品.商品名, 売上4,売上5,売上6,売上7,売上8,売上9, ([売上4]+[売上5]+[売上6]+[売上7]+[売上8]+[売上9]) AS 上期計 From T_月別売上, T_商品 Where T_月別売上.商品CD = T_商品.商品CD UNION ALL Select Left([T_月別売上.商品CD], 1) & 'ZZZZ' AS GroupCD , '小計' AS Dummy商品名 , Sum([売上4]) , Sum([売上5]) , Sum([売上6]) , Sum([売上7]) , Sum([売上8]) , Sum([売上9]) , Sum([売上4]+[売上5]+[売上6]+[売上7]+[売上8]+[売上9]) AS 上期計 From T_月別売上, T_商品 Where T_月別売上.商品CD = T_商品.商品CD Group By Left([T_月別売上.商品CD], 1) & 'ZZZZ' Order By T_月別売上.商品CDと、SQL文を作成してみた。
商品CD | 商品名 | 売上4 | 売上5 | 売上6 | 売上7 | 売上8 | 売上9 | 上期計 |
---|---|---|---|---|---|---|---|---|
A1 | コーラ | 1 | 2 | 3 | 4 | 5 | 6 | 21 |
A2 | オレンジ | 2 | 0 | 4 | 5 | 6 | 7 | 24 |
A3 | りんご | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
AZZZZ | 小計 | 3 | 2 | 7 | 9 | 11 | 13 | 45 |
B1 | スーパードライ | 4 | 2 | 6 | 7 | 8 | 10 | 37 |
B2 | モルツ | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
B3 | 黒ラベル | 6 | 4 | 8 | 9 | 10 | 12 | 49 |
BZZZZ | 小計 | 10 | 6 | 14 | 16 | 18 | 22 | 86 |
D1 | コート | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
D2 | マフラー | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
DZZZZ | 小計 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
商品CD | 売上4 | 売上5 | 売上6 | 売上7 | 売上8 | 売上9 | 売上10 | 売上11 | 売上12 | 売上1 | 売上2 | 売上3 |
---|---|---|---|---|---|---|---|---|---|---|---|---|
A1 | 1 | 2 | 3 | 4 | 5 | 6 | 0 | 0 | 0 | 0 | 0 | 0 |
A2 | 2 | 0 | 4 | 5 | 6 | 7 | 0 | 0 | 0 | 0 | 0 | 0 |
A3 | 0 | 0 | 0 | 0 | 0 | 0 | 20 | 30 | 20 | 10 | 2 | 5 |
B1 | 4 | 2 | 6 | 7 | 8 | 10 | 0 | 0 | 0 | 0 | 0 | 0 |
B2 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 2 | 3 | 4 | 5 | 6 |
B3 | 6 | 4 | 8 | 9 | 10 | 12 | 0 | 0 | 0 | 0 | 0 | 0 |
C1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 |
C2 | 2 | 2 | 2 | 2 | 2 | 2 | 0 | 0 | 0 | 0 | 0 | 0 |
D1 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 10 | 10 | 5 | 2 | 0 |
D2 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 4 | 6 | 3 | 1 | 0 |
商品CD | 商品名 |
---|---|
A1 | コーラ |
A2 | オレンジ |
A3 | りんご |
B1 | スーパードライ |
B2 | モルツ |
B3 | 黒ラベル |
D1 | コート |
D2 | マフラー |
UNION ALL を 使った ソースコードを紹介する表示色の説明: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]← あまり更新してないけど・・・
[永遠の下書き日記?]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板?] ←一人で?掲示板?ぉぃぉぃ