出来るのだASP Q&A掲示板(過去LOG)
訪問数 52046
昨日 889
今日 776 【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。 |
![]() ![]() ![]() ![]() ![]() |
[3524] Re:検索→修正(更新)するには?(作成してみましたが・・・) |
投稿者:nowheremanさん 2003/07/23 7:24:52 |
1行消し忘れたw <% Set ObjConn = Server.CreateObject("ADODB.connection") ObjConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.Mappath("test.mdb") 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="検索"> <input type="hidden" name="act" value="insert"> </tr> <hr> </form> <% Key=Request.Form("syaincd") StrSQL = "SELECT * FROM syain WHERE syaincd='" & Key & "'" 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 %> |
![]() ![]() |
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
TreeBBS For ASP V.0.1.3 |