出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3522] 検索→修正（更新）するには？（作成してみましたが・・・）
投稿者：あいさん 2003/07/22 23:08:07
ひでかずさんアドバイスありがとうございました。
私の持っている本があまり良くないのか、検索フォームから
入力して表示するサンプルが無く、ここの掲示板を見ながら
作成してみましたが、（まずは、検索して表示するで）
↓何が悪いんでしょうか？
すみませんが、教えて下さい。

<%
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")
ObjRS.Open StrSQL,ObjConn,3,3
%>

<form method="POST" action="kensaku.asp">
社員コード
<input type="text" name="syaincd" size="6">
<tr>
<input type="submit" name="sseek" value="検索">
<input type="hidden" name="act" value="insert">
</tr>
<hr>
</form>
<%
Key=Request.Form("syaincd")
%>

<%
Set ObjConn = Server.CreateObject("ADODB.connection")
ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("test.mdb")
StrSQL = "SELECT * FROM syain"&_
"WHERE (syaincd & key)"
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjRS.Open StrSQL,ObjConn,3,3
社員名
<input type="text" name="syainname" size="30" ><%=ObjRS("syainname")%><br>
所属
<input type="text" name="syozoku" size="10"><%=ObjRS("syozoku")%>
%>
<%
rs.close
cnn.close
set rs = nothing
set cnn = nothing
%>
検索→修正（更新）するには？ 　 あいさん [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 ＹａｓＮｅｔ