出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3426] Re:ACCESSデータをプルダウンで検索し、表示する
投稿者：なおさん 2003/06/18 9:26:59
ＹａｓＮｅｔさん、有難うございます。
でも、プルダウンの中身はデータベースを見にいくようにしたいのです。
それでちょっと作ってみたら、プルダウンが一つだけだとうまくいきました。
ただ、もうひとつ「商品コード」のプルダウンを作り、いづれかで検索しなくてはいけなくて、そうなるとサブルーチンを作らないといけないのでしょうか。
またまた私には高度な技術です。
ちょっと勉強してみます・・・。

*** 「商品名」の検索プルダウンだけでうまくいったプログラム。***

<%
'データベース接続（table1）
Set ObjConn = Server.CreateObject("ADODB.connection")
ObjConn.Open "odbcmdb"
StrSQL = "SELECT * FROM table1"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn,3,3
%>


<!-- 入力フォーム定義 -->
<form method="POST">
<table>
<tr>
<td>商 品 名：
</td>
<td>
<%
'選択リスト表示
Response.Write "<select name=""syohin"">"
Do While Not ObjRS.EOF
Response.Write "<option value=" & _
ObjRS("商品名") & ">" & ObjRS("商品名")
ObjRS.MoveNext
Loop
Response.Write "</select>"
%>
</td>
<td><input type="submit" value="送信">
</td>
</tr>
</table>
</form>

<%
'検索キーワードの取得
Key=Request.Form("syohin")
%>

<%
'データベース接続
Set ObjConn = Server.CreateObject("ADODB.connection")
ObjConn.Open "odbcmdb"
StrSQL = "SELECT * FROM table1" & _
" WHERE (商品名 LIKE '%" & Key & "%')" & _
" or (商品コード LIKE '%" & Key & "%')"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL, ObjConn,3,3
%>

<%
if Key <> "" then
%>
<!-- データ表示テーブル -->
データ件数：<% = ObjRS.RecordCount %>件
<table border="1" bordercolor="#0099bb" cellspacing="0" cellpadding="3">

<%
'最後のデータを処理するまで繰り返します
Do until ObjRS.EOF
if Key = "" then Exit Do
%>
<tr>
<!-- 「商品名」〜を表示します -->
<td class="kekka3"><%=ObjRS("商品名")%></td>
<td class="kekka3"><%=ObjRS("商品コード")%></td>
<td class="kekka1"><%=ObjRS("価格")%></td>
</tr>
<%
'次のデータに移動します
ObjRS.MoveNext
Loop
%>
</table>

************************************************

これにもうひとつ「商品コード」でも検索できるプルダウンを
追加したいのです。
ACCESSデータをプルダウンで検索し、表示する 　 なおさん [2003/06/17 14:02:07] [3423]
　 Re:ACCESSデータをプルダウンで検索し、表示する 　 YasNet(管理人)さん [2003/06/18 8:49:21] [3425]
　 　 Re:ACCESSデータをプルダウンで検索し、表示する 　 なおさん [2003/06/18 9:26:59] [3426]
　 　 　 Re:ACCESSデータをプルダウンで検索し、表示する 　 なおさん [2003/06/18 16:38:25] [3429]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ