Classic ASPテストページです。 情報が古いので参考程度に読んだりテストしてみてください。

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

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

SQL SELECT文で WHERE句 条件をOrでつなげ複数にしてみた

test046-1.asp

表示させたい区分をチェック(選択)して下さい
ASP系へのご意見を表示
VBA系へのご意見を表示
愚痴系へのご意見を表示
コンビニ系へのご意見を表示
←チェック後送信ボタンを押してください

条件がありませんでした

発行する(した)SQL文は
Select * From KANSOU ORDER BY WriteTime DESC
です
日付区分NO.感想
2019/11/19 12:42:2024H全体安全靴
2019/11/19 12:41:49GUCHI全体ラジオ
2019/11/19 12:41:19VBA全体マスク
2019/11/19 12:40:50ASP全体ポータブル電源
2019/11/18 16:34:1224H全体ノートパソコン
2019/11/18 16:33:41GUCHI全体ダウン
2019/11/18 16:33:12VBA全体ウォータータンク
2019/11/18 16:32:42ASP全体あったかインナー
2019/11/18 11:52:5224H全体テスト
2019/11/16 20:22:45GUCHI全体子供靴
2019/11/16 20:22:16VBA全体携帯充電器
2019/11/16 20:21:49ASP全体介護用オムツ
2019/11/14 16:24:18VBA全体TEST Ken3 4649
2019/11/13 15:07:5324H全体ここにデータを入力してね
2019/11/08 18:08:2224H全体ウォーキングシューズ
2019/11/08 18:07:52GUCHI全体ミリタリーウオッチ
2019/11/08 18:07:25VBA全体缶詰
2019/11/08 18:06:57ASP全体防災セット
2019/11/05 17:48:2024H全体ジャージ
2019/11/05 17:47:51GUCHI全体ガソリン携行缶
2019/11/05 17:47:24VBA全体カセットコンロ&ガスボンベ
2019/11/05 17:46:55ASP全体長靴
2019/11/03 15:42:3824H全体
2019/11/03 15:42:12GUCHI全体非常食
2019/11/03 15:41:43VBA全体発電機
2019/11/03 15:41:15ASP全体電波時計
2019/10/30 7:16:5724H全体
2019/10/30 7:16:30GUCHI全体非常食
2019/10/30 7:16:00VBA全体発電機
2019/10/30 7:15:33ASP全体電波時計
2019/10/28 10:48:4124H全体安全靴
2019/10/28 10:48:15GUCHI全体ラジオ
2019/10/28 10:47:50VBA全体マスク
2019/10/28 10:47:23ASP全体ポータブル電源
2019/09/25 6:24:43VBA全体TEST
2019/09/19 13:37:4524H全体111
2019/08/08 10:42:2324H全体TEST DATA 24
2019/08/08 10:41:52VBA全体TEST DATA 50
2019/08/08 10:41:23GUCHI全体TEST DATA 40
2019/08/07 13:12:08VBA全体TEST DATA 30
2019/08/07 13:11:34ASP全体TEST DATA 98
2019/08/05 15:38:0524H全体TEST DATA 35
2019/08/05 15:37:41GUCHI全体TEST DATA 41

表示させたい区分をチェック(選択)して下さい
ASP系へのご意見を表示
VBA系へのご意見を表示
愚痴系へのご意見を表示
コンビニ系へのご意見を表示
←チェック後送信ボタンを押してください

関連項目
db029.mdbへデータ追加する



ASPサンプルソース(プログラムのソースコード)

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

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

表示色の説明:ASP VBScriptは <% 〜 %>
キーワードはWhere です。 <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL SELECT文で WHERE句 条件をOrでつなげ複数にしてみた</title> </head> <body> <h1>SQL SELECT文で WHERE句 条件をOrでつなげ複数にしてみた</h1> test046-1.asp<br> <hr> <FORM ACTION="test046-1.asp" METHOD="GET"> <font color="blue">表示させたい区分をチェック(選択)して下さい</font><br> <INPUT TYPE="CHECKBOX" NAME="ASP">ASP系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="VBA">VBA系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="GUCHI">愚痴系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="24H">コンビニ系へのご意見を表示<BR> <INPUT TYPE="submit" VALUE="送信">←チェック後送信ボタンを押してください </FORM> <hr> <% '頭で、入力パラメーターの文字数をチェックする strWHERE = "Where " If Request.QueryString("ASP") = "on" Then strWHERE = strWHERE & "F_KUBUN = 'ASP' " End If If Request.QueryString("VBA") = "on" Then If strWHERE <> "Where " Then strWHERE = strWHERE & " OR " '2個目〜 strWHERE = strWHERE & "F_KUBUN = 'VBA' " End If If Request.QueryString("GUCHI") = "on" Then If strWHERE <> "Where " Then strWHERE = strWHERE & " OR " '2個目〜 strWHERE = strWHERE & "F_KUBUN = 'GUCHI' " End If If Request.QueryString("24H") = "on" Then If strWHERE <> "Where " Then strWHERE = strWHERE & " OR " '2個目〜 strWHERE = strWHERE & "F_KUBUN = '24H' " End If 'Where文が生成されたかチェックする If strWHERE = "Where " Then 'そのままだったら条件文を消す Response.Write "<b>条件がありませんでした</b><hr>" strWHERE = "" '条件無しに強引にする Else Response.Write "作成した条件[<b>" & strWHERE & "</b>]<hr>" End If '表示の関数を呼ぶ(外側に出したかったので) Call DATA_PRINT(strWHERE) %> <HR> <FORM ACTION="test046-1.asp" METHOD="GET"> <font color="blue">表示させたい区分をチェック(選択)して下さい</font><br> <INPUT TYPE="CHECKBOX" NAME="ASP">ASP系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="VBA">VBA系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="GUCHI">愚痴系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="24H">コンビニ系へのご意見を表示<BR> <INPUT TYPE="submit" VALUE="送信">←チェック後送信ボタンを押してください </FORM> <hr> 関連項目<br> <A href="test029-1.asp">db029.mdbへデータ追加する</a><br> </body> </html> <% 'パラメータを受け取り、SQLを発行 Sub DATA_PRINT(strWHERE) 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん Set db=Server.CreateObject("ADODB.Connection") '.Provider?プロバイダー?通信会社?じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db029.mdb") 'やっとデータベースを開ける db.open 'SQL文を作る strSQL = "Select * From KANSOU " '感想(KANSOU)テーブルから全項目(*)セレクト strSQL = strSQL & strWHERE '作成した条件を使用する strSQL = strSQL & "ORDER BY WriteTime DESC" '並べ替えは時間の降順 'オマケで画面にデータ表示 Response.Write "<hr>発行する(した)SQL文は<br><B><font color='green'>" Response.Write strSQL & "</font></B><br>です<hr>" 'お約束のレコードセットの作成 SQL文の発行 Set rs = db.Execute(strSQL) 'データの表示をテーブルで行う Response.Write "<TABLE Border='1'>" '見出しをバカっぽく、そのまま書き込む Response.Write "<TR>" Response.Write "<TD>日付</TD>" Response.Write "<TD>区分</TD>" Response.Write "<TD>NO.</TD>" Response.Write "<TD>感想</TD>" Response.Write "</TR>" 'お約束のEOFまでループは(データが無くなるまでループ)、 Do While rs.EOF = False 'レコードセットの.EOFがFalseの間 Response.Write "<TR>" '内容を表示する、行開始のタグ<TR> Response.Write "<TD>" & rs.Fields.Item("WriteTime") & "</TD>" Response.Write "<TD>" & rs.Fields.Item("F_KUBUN") & "</TD>" If rs.Fields.Item("F_NO") = 0 Then '0の全体かチェック Response.Write "<TD>全体</TD>" Else Response.Write "<TD>" & rs.Fields.Item("F_NO") & "</TD>" 'NO表示 End If Response.Write "<TD>" & rs.Fields.Item("F_MEMO") & "</TD>" Response.Write "</TR>" '次のレコードにポインタを移動する rs.MoveNext 'これを忘れると悲惨なことに、、、 Loop Response.Write "</TABLE>" 'テーブルは終わりです '開いていたレコードセットを閉じる rs.Close 'データベースも閉じようよ db.Close 'お行儀よくオブジェクトも開放しましょう(通常は自動的に解放されるけど) Set db = Nothing End Sub %>




Googleで関連項目を検索する

[キーワード:Where ] と Sub|Function で検索する。
↓で検索するとプログラムの例 Sub/Function でまとまったHP

Google

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

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

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系へ戻る] −−>[バックナンバーを見る]


現在時刻は、2019/11/22 0:18:39です。