<% ↓VBScriptでソースコードを記述する
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_在庫.商品ID="
SqlStr =SqlStr & Request.Form("ItemNum")
Set rs = AdoCon.execute(SqlStr)
↓フィールドの値を変数に格納
ItemId = rs.Fields("商品コード")
ItemName = rs.Fields("商品名")
Amount = rs.Fields("在庫数")
%>
<HTML>
<TITLE>在庫データ検索結果</TITLE>
<BODY>
<P>
<H3>■■■ 在庫検索結果 ■■■</H3><BR>
↓変数の値を表示
商品番号：<% =ItemId %><BR>
商品名 ：<% =ItemName %><BR>
在庫数 ：<% =Amount %><BR>
<%
↓オブジェクトのメモリを解放
Set rs = nothing
Set AdoCon = nothing
%>
<HR><BR>
<A href="zaikoq1.htm">商品番号の入力に戻る</a>
</BODY>
</HTML> |