出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1354] もう一つ教えて頂きたい事が有るのですが…
投稿者：cozyさん 2002/01/09 15:53:00
こんにちは、cozyです。もう一つ教えて頂きたい事が有りまして投稿させて頂きました。よろしくお願いします。
つい先日聞いた事をやっています。
> Access2000でデータｰベースを作っています。ごくごく簡単なデータベースです。VBScriptとHTMLを使いIEからデータベースを操作できるものを作っています。
っとこの様なdbを作ってaspの勉強をしています。
今回お聞きしたいのは、<form method="post" 〜 >文で取得してきた変数idとdbのid（テーブル内のオートナンバーid）が一致したレコードの中身を出力したいのですが、私のソースでは一番最初のレコードが出力されてしまいます。
初心者なもので、レコードを検索するのに将来性も考えずDo〜Loop文を使っています。私的にはこれでいけそうな気がしたのですが、どこがいけないのでしょうか？
あとDo〜Loopでは将来的に件数が増えると処理が重くなると私でもなんとなく解ります。他にいい方法が有りましたら少し教えて頂けないでしょうか。
初心者のもので恥ずかしいのですが、ソースを載せますのでよろしくお願いします。


<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>トスネット</title>
</head>
<body>

<table>
<tr>
<td>詳細</td>
<td width="150" align="right"><a href="ollout.asp">全件表示へ</a></td>
</tr>
</table>
<br>
<table cellpadding="2">

<%
'=========================================================
'１、データベースを開く
'２、データベースからデータを取り出す
'=========================================================
Dim Conn,SQL,RS
db1=server.mappath("db1.mdb")
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open DBName
SQL = "select * from トスネット"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn,3,3

'=========================================================
'３、取り出したデータをHTMLに書き出す
'=========================================================
response.write request("id")
Do Until rs("id") <> request("id")
rs.movenext
loop
response.write rs("id")
response.write rs("date")
response.write rs("name1")
response.write rs("name2")
response.write rs("work")

'=========================================================
'４、データベースを閉じる
'=========================================================
rs.close
Conn.close
%>

</table>
</body>
</html>


もう一つ教えて頂きたい事が有るのですが… 　 cozyさん [2002/01/09 15:53:00] [1354]
　 Re:もう一つ教えて頂きたい事が有るのですが… 　 なかさん [2002/01/09 16:55:45] [1355]
　 　 Re:もう一つ教えて頂きたい事が有るのですが… 　 cozyさん [2002/01/09 17:42:05] [1356]

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