出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3529] Re:検索→表示は出来ました。更新・削除をするには？
投稿者：あいさん 2003/07/24 0:48:00
nowheremanさん、アドバイスありがとうございました。
おかげさまで、検索→表示は出来ましたが、更新しようとすると
↓のエラーが出てしまいます。
[Microsoft][ODBC Microsoft Access Driver] UPDATE ステートメントの構文エラーです。
/kensaku.asp, 行 47
あと、削除も同様なエラーが出ます。
どうかアドバイスよろしくお願いします！

<%
Set ObjConn = Server.CreateObject("ADODB.connection")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("test.mdb")
StrSQL = "SELECT * FROM syain "
Set ObjRS = Server.CreateObject("ADODB.Recordset")
%>

<form method="POST" action="kensaku.asp">
社員コード
<input type="text" name="syaincd" size="6">
<tr>
<input type="submit" name="sseek" value="検索">
</tr>
<hr>
</form>
<%
Key=Request.Form("syaincd")
StrSQL = "SELECT * FROM syain WHERE syaincd='" & key &"'"
ObjRS.Open StrSQL,ObjConn,3,3
select case ObjRS("syozoku")
case "本社" syozoku_c1="selected"
case "営業所" syozoku_c2="selected"
end select
%>
<table border='1'>
<form method="POST" action="syainseek01.asp">
<tr><td>社員コード
<input type="text" name="syaincd" size="6" value="<%=ObjRS("syaincd")%>"></td></tr>
<tr><td>社員名
<input type="text" name="syainname" size="20" value="<%=ObjRS("syainname")%>"></td></tr>
<tr><td>所属
<select name="syozoku">
<option value="本社" <%=syozoku_c1%>>本社
<option value="営業所"<%=syozoku_c2%>>営業所
</select>
</td></tr>
<input type="submit" name="action" value="更新">
<input type="submit" name="action" value="削除">
</form>
<%
if Request.form("action")="更新" Then
StrSQL="update syain set"
StrSQL= StrSQL & "syainname ='" & syainname & "'"
StrSQL= StrSQL & "syozoku ='" & syozoku & "'"
SreSQL= StrSQL & "where syaincd = " & syaincd & ";"
ObjConn.Execute(StrSQL)
%>
<br><h2>更新完了</h2>
<table border=1>
<tr><th>社員コード</th><th>社員名</th><th>所属</th></tr>
<tr><td><%= syaincd %></td><td><%= syainname %></td><td><%= syozoku %></td><tr>
</table>
<%
Elseif Request.form("action")="削除" Then
StrSQL="delete from syain where syaincd = " & syaincd & ";"
ObjConn.Execute(StrSQL)
%>
<br><h2>削除完了</h2>
<%
end if
%>
<%
ObjRS.close
ObjConn.close
set ObjRS = nothing
set ObjConn = nothing
%>

あと、一番はじめにこんなエラーも出ます。
？？検索するとちゃんと表示はされるのですが。。。

エラー '80020009'
例外が発生しました。

/kensaku.asp, 行 21
検索→修正（更新）するには？ 　 あいさん [2003/07/15 11:46:39] [3514]
　 Re:検索→修正（更新）するには？ 　 ひでかずさん [2003/07/15 12:05:49] [3515]
　 　 検索→修正（更新）するには？（作成してみましたが・・・） 　 あいさん [2003/07/22 23:08:07] [3522]
　 　 　 Re:検索→修正（更新）するには？（作成してみましたが・・・） 　 nowheremanさん [2003/07/23 7:23:18] [3523]
　 　 　 　 Re:検索→修正（更新）するには？（作成してみましたが・・・） 　 nowheremanさん [2003/07/23 7:24:52] [3524]
　 　 　 　 　 Re:検索→表示は出来ました。更新・削除をするには？ 　 あいさん [2003/07/24 0:48:00] [3529]
　 　 　 　 　 　 Re:検索→表示は出来ました。更新・削除をするには？ 　 nowheremanさん [2003/07/24 10:07:53] [3530]
　 Re:検索→修正（更新）するには？ 　 ひでかずさん [2003/07/24 19:59:44] [3535]

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