出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3423] ACCESSデータをプルダウンで検索し、表示する
投稿者：なおさん 2003/06/17 14:02:07
プログラムの理解ができず苦しんでます。
本を頼りにやっていますが、応用がきかないのでギブアップしそうです。 教えていただけますか？

ACCESSのデータベースを検索して呼び出し、一覧表を表示させるのですが、下記に記載したプログラムでは検索フォームに手入力する方法です。
これをプルダウンにするにはどうしたらよいのでしょうか？

ACCESSのデータには、「商品名」「コード」「価格」があり、それぞれにデータが入っています。
ODBC名は「odbcmdb」
ACCESSのファイル名は「data1.mdb」
ACCESSのテーブル名は「table1」
です。

現在のプログラムでは「商品名」と「コード」のいづれかを手入力し、「検索実行」ボタンで検索し、結果を一覧で表示するようになっています。
このプログラムを次のように変更したいのですが、、
・同じテーブルの「商品名」のデータをプルダウンで呼び出して選択し、検索ボタンで検索し、結果を一覧で表示させるように。
・もうひとつ「コード」でも同じように検索・表示するようにしたいです。

********* 現在のプログラム **********
<%
<!------データ接続--------->
Dim ObjConn,StrSQL,ObjRS
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><input type="text" name="t1">
</td>
<td><input type="submit" value="検索実行">
</td>
</tr>
</table>
</form>

<%
Key=Request.Form("t1")
%>

<%
<!----データ接続、検索------>
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

<table border="1">

End if

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

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

シロウトの考えでは、
<input type="text" name="t1">の部分を
<select name="">に変更したりしてみたのですがうまくいきません。
そんなに単純ではないですね・・
意外と本に載っていないので困っています。
どの部分をどういう風に変えればいいのか、よろしくお願いします。

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 ＹａｓＮｅｔ