<%
Set AdoCon = Server.CreateObject("ADODB.Connection")
AdoCon.open "Driver={Microsoft Access Driver (*.mdb)};
Dbq=C:\Db\在庫.mdb; "
↑データベースをオープン
↓レコード抽出のSQL文
SqlStr = "SELECT T_在庫.商品ID,
T_在庫.商品名, T_在庫.在庫数
FROM T_在庫 WHERE T_在庫.在庫数 <= "
SqlStr =SqlStr & Request.Form("Amount") & ";"
Set rs = AdoCon.execute(SqlStr)
%> ↑SQLを実行し、結果（レコードセット）を取得
<HTML>
<TITLE>在庫データ検索結果</TITLE>
<BODY>
<P>
<H3>■■■ 在庫検索結果 ■■■</H3><BR>
<BR>
在庫数が <B><% Amount %> 以下</B>の商品を表示しています。<BR><BR>
↓表を作る
<TABLE border="1" cellpadding="1">
<TR>
<TH>商品番号</TH>
<TH>商品名</TH>
<TH>在庫数</TH>
</TR>
<%
rs.MoveFirst ←レコードセットの先頭へ移動
Do While Not rs.EOF ←最終レコードまで繰り返す
%> （ここからレコード件数分ループ処理を行う）
<TR> ↓1件分の情報を表示
<TD align="right"><%= rs.Fields("商品コード")%></TD>
<TD align="left"><%= rs.Fields("商品名")%></TD>
<TD align="right"><%= rs.Fields("在庫数")%></TD>
</TR>
<%
rs.MoveNext ←レコードを次に進める
Loop ←ループはここまで
%>
</TABLE>
<%
Set rs = nothing
Set AdoCon = nothing
%>
<HR align="center"><BR>
<A href="zaikoq2.htm">在庫数の入力に戻る</a>
</BODY>
</HTML> |