出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2487] ACCESSのデータを使い検索したデータに修正、削除したい
投稿者：ふなさん 2002/08/16 13:38:10
おつかれさまです。
ＡＳＰ初心者ですので教えてください。
下記のソースで、ＡＣＣＥＳＳのＤＢを使い、
検索したデータを更新、削除したいのですが、
検索結果は表示されますが、更新、削除ができません。
どうしたらいいか教えてください。
宜しくお願い致します。
−−−−−−−−−−−−−−−−−−−−
<%@ LANGUAGE="VBSCRIPT" %>
<font size=5>申込状況　確認／更新</font>
<hr>
名前を入力してください。
<%
'変数を定義します（定義しなくても動きます）
Dim conn,SQL,rs
'データベース「ejb」に接続します
Set conn = Server.CreateObject("ADODB.connection")
conn.Open "ejb"
'回答データからデータを抽出するSQL文を作成します
SQL = "select * from 申込データ"
'レコードセットにデータをセットします
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn,3,3

'データを更新
act=Request.Form("act")
if act = "update" then
rs("名前") = Request.Form("namae")
rs.UpDate
end if
'データを更新
act=Request.Form("act")
if act = "update" then
rs("日程") = Request.Form("nitei")
rs.UpDate
end if
'データを更新
act=Request.Form("act")
if act = "update" then
rs("備考") = Request.Form("bikou")
rs.UpDate
end if

'データを削除
if act = "del" then
rs.Delete
' rs.MoveNext
end if

%>

<!-- 検索フォーム定義 -->
<form method="POST">
<table>
<tr>
<td><input type="text" name="t1">
</td>
</tr>
<tr>
<td><input type="submit" value="検索実行">
</td>
</tr>
</table>
</form>
<hr><br>
<!-- 検索フォームここまで -->

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

<%
'データベース接続
Set conn = Server.CreateObject("ADODB.connection")
conn.Open "ejb"
SQL = "SELECT * FROM 申込データ" & _
" WHERE (名前 LIKE '%" & Key & "%')" & _
" or (日程 LIKE '%" & Key & "%')" & _
" or (備考 LIKE '%" & Key & "%')"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn,3,3
%>

<%
if Key <> "" then
%>
<!-- データ表示テーブル -->
データ件数：<% = rs.RecordCount %>件
<form method="POST">
<table border="1">
<tr>
<td>名前</td>
<td>日程</td>
<td>備考</td>
</tr>
<%
End if
%>
<%
'最後のデータを処理するまで繰り返します
Do until rs.EOF
if Key = "" then Exit Do
%>
<tr>
<!-- 「名前」を表示します -->
<td><input name="namae" value="<% =rs("名前") %>"></td>
<!-- 「日程」を表示します -->
<td><input name="nitei" value="<% =rs("日程") %>"></td>
<!-- 「備考」を表示します -->
<td><input name="bikou" value="<% =rs("備考") %>"></td>
</tr>

<%
'次のデータに移動します
rs.MoveNext
Loop
%>
<tr>
<td>
<input type="submit" value="更新">
<input type="hidden" value="update" name="act">
</td>
<td>
<input type="submit" value="削除">
<input type="hidden" value="del" name="act">
</td>
</form>
</table>

<!-- データ表示テーブルここまで -->
<hr>
ACCESSのデータを使い検索したデータに修正、削除したい 　 ふなさん [2002/08/16 13:38:10] [2487]
　 Re:ACCESSのデータを使い検索したデータに修正、削除したい 　 Kevinさん [2002/08/17 8:04:43] [2489]
　 　 発言者により削除されました!! ふなさん [2002/08/19 20:54:17] [2493]
　 　 Re:ACCESSのデータを使い検索したデータに修正、削除したい 　 ふなさん [2002/08/19 20:55:43] [2494]
　 　 　 Re:ACCESSのデータを使い検索したデータに修正、削除したい 　 北岳さん [2002/08/20 16:57:29] [2500]

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