Classic ASP のテストページです。
情報が古いので参考程度に読んだりテストしてみてください。
共有サーバーなので、処理に時間がかかるとタイムアウトやアクセスが集中すると落ちている時がありますがご勘弁を・・・
三流君(TOP) /ASPで遊ぶ /ASP記事一覧を見る
分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

明細データから小計処理を自分で作成してみた

２つのテーブルを商品コードでつなげたレコードセットを作成して処理しました
Select * From T_月別売上, T_商品
Where T_月別売上.商品CD = T_商品.商品CD
Order By T_月別売上.商品CD
商品名4月5月6月7月8月9月上期計
コーラ12345621
オレンジ20456724
りんご0000000
小計3279111345
スーパードライ426781037
モルツ0000000
黒ラベル6489101249
小計1061416182286
コート0000000
マフラー0000000
小計0000000
総合計13821252935131
終了です。
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マフラー

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

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

小計処理 を 使った ソースコードを紹介する

表示色の説明：ASP VBScriptは <% 〜 %>
キーワードは小計処理 です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>明細データから小計処理を自分で作成してみた</title>
</head>
<body>
<h1>明細データから小計処理を自分で作成してみた</h1>
２つのテーブルを商品コードでつなげたレコードセットを作成して処理しました<br>
Select * From T_月別売上, T_商品<br>
 Where T_月別売上.商品CD = T_商品.商品CD<br>
  Order By T_月別売上.商品CD<br>
<hr>
<%
  'ADO DB Connection オブジェクトを作成する、英文そのままじゃん
  Set db=Server.CreateObject("ADODB.Connection")

  '.Provider？プロバイダー？通信会社？じゃなくって
  'データアクセスにはJet.OLEDB.4.0を使うことを設定
  db.Provider = "Microsoft.Jet.OLEDB.4.0"

  '次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す
  db.ConnectionString = Server.MapPath("db072.mdb")

  'やっとデータベースを開ける
  db.open

  'お約束のレコードセットの作成 T_月別売上,T_商品を指定
  '結合の条件 T_月別売上.商品CD = T_商品.商品CD を指定
  strSQL = "Select * From T_月別売上, T_商品"
  strSQL = strSQL & " Where T_月別売上.商品CD = T_商品.商品CD"
  strSQL = strSQL & " Order By T_月別売上.商品CD"
  Set rs = db.Execute(strSQL)   'SQL発行、レコードセットを作成

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

  '見出しを表示する
  Response.Write "<TR bgcolor=#E0FFFF>"
  Response.Write "<TH>商品名</TH>"
  For n = 4 To 9  '4月から9月と見出しを表示したいので
     Response.Write "<TH>" & n & "月</TH>"
  Next
  Response.Write "<TH>上期計</TH>"
  Response.Write "</TR>"

  '月別の小計・総合計を保存する配列を作成する
  Dim sum_group(12)  'グループ合計
  Dim sum_all(12)    '総合計
  Dim sum_code       'グループ化のコード

  '総合計エリア、グループ合計を初期化する
  For n = 1 To 12
    sum_group(n) = 0
    sum_all(n) = 0
  Next 
  'グループ化のコードを初期化する
  sum_code = Left(rs("T_月別売上.商品CD").Value , 1) '商品コード１桁目

  'お約束のＥＯＦまでループは(データが無くなるまでループ)、
  Do While rs.EOF = False   'レコードセットの.EOFがFalseの間

    'グループコードが変わったかチェックする
    If sum_code <> Left(rs("T_月別売上.商品CD").Value , 1) Then
       '小計を表示する
       Response.Write "<TR bgcolor=#FFE0FF>"   '行を表示する
       Response.Write "<TD>小計</TD>"
       g_kamiki = 0 '小計の上期集計用の変数を初期化する
       For n = 4 To 9 '4〜9月
          Response.Write "<TD>" & sum_group(n) & "</TD>" 'n月の値を表示
          g_kamiki = g_kamiki + sum_group(n)  '小計の上期のタメに計算
       Next
       Response.Write "<TD>" & g_kamiki & "</TD>" '小計の上期計を表示
       Response.Write "</TR>"  '行の終わり
       '次のグループになるので、配列とCODEを初期化する
       sum_code = Left(rs("T_月別売上.商品CD").Value , 1) '次のコードを代入
       For n = 4 To 9  '小計値を初期化する
          sum_group(n) = 0
       Next
    End If

    Response.Write "<TR>"   '行を表示する
    'マスターから商品名を読み込む
    Response.Write "<TD>" & rs("商品名").Value & "</TD>"
    g_kamiki = 0 '集計用の変数を初期化する
    For n = 4 To 9 'フィールドにフィールド名でアクセスする
       Response.Write "<TD>" & rs("売上" & n).Value & "</TD>"
       '↑"売上" & nでフィールド名売上4..売上9を作成してアクセス
       '自分で上期を集計する
       g_kamiki = g_kamiki + rs("売上" & n).Value
       '月別、グループ、総合計を計算する
       sum_group(n) = sum_group(n) + rs("売上" & n).Value  'グループ
       sum_all(n)   = sum_all(n)   + rs("売上" & n).Value  '総合計
    Next
    '上期の合計を表示する
    Response.Write "<TD>" & g_kamiki & "</TD>"
    Response.Write "</TR>"
    '次のレコードにポインタを移動する
    rs.MoveNext    'これを忘れると悲惨なことに、、、
  Loop

  'ループを抜けたら、最後の小計を表示する
  '小計を表示する
  Response.Write "<TR bgcolor=#FFE0FF>"   '行を表示する
  Response.Write "<TD>小計</TD>"
  g_kamiki = 0 '小計の上期集計用の変数を初期化する
  For n = 4 To 9 '4〜9月
     Response.Write "<TD>" & sum_group(n) & "</TD>" 'n月の値を表示
     g_kamiki = g_kamiki + sum_group(n)  '小計の上期のタメに計算
  Next
  Response.Write "<TD>" & g_kamiki & "</TD>" '小計の上期計を表示
  Response.Write "</TR>"  '行の終わり

  '総合計の表示（計算した総合計を表示する）
  Response.Write "<TR bgcolor=#FFFFE0>"   '行を表示する
  Response.Write "<TD>総合計</TD>"
  g_kamiki = 0 '総合計の上期集計用の変数を初期化する
  For n = 4 To 9 '4〜9月の値を表示する
     Response.Write "<TD>" & sum_all(n) & "</TD>" 'n月の値を表示
     g_kamiki = g_kamiki + sum_all(n)  '総合計の上期のタメに計算
  Next
  Response.Write "<TD>" & g_kamiki & "</TD>" '小計の上期計を表示
  Response.Write "</TR>"  '行の終わり

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

  '開いていたレコードセットを閉じる
  rs.Close

  'データベースも閉じようよ
  db.Close

  'お行儀よくオブジェクトも開放しましょう（通常は自動的に解放されるけど）
  Set db = Nothing

%>
<hr>
終了です。<br>

</body>
</html>

広告

リンク広告
  1. --[恋声 ボイスチェンジ フリーソフト]
  2. --[【ガチャ】モンスト 3500万人記念!!オーブ0ガチャ]
  3. --[Access コンボボックスを使ってみた]
  4. --[ Windows7 OSのフルバックアップ システムイメージバックアップ]

Googleで関連項目を検索する

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

あれ？私のページが検索に載ってない（笑）一度お試しを（私のページに、また戻ってきてね（爆））
[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]← あまり更新してないけど・・・
[永遠の下書き日記？]← 恥ずかしいのであまり載せてないけど・・・
[ひとりで掲示板？] ←一人で？掲示板？ぉぃぉぃ

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

現在時刻は、2017/07/24 11:47:03です。