出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
検索→修正（更新）するには？ 　 あいさん [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]
[3514] 検索→修正（更新）するには？
投稿者：あいさん 2003/07/15 11:46:39
はじめまして。
ＡＳＰ超初心者の者です。
今、作成したいのが、お客様名簿なのですが、
「登録画面」から登録、「一覧表示」までは
本やＨＰなどを見ながら何とか、出来たのですが、
「お客様コード」を入力して検索、「修正画面（登録済みデータが
表示されていて、修正したい部分だけ修正出来る）」を表示して、
修正したいのですが、方法が探せません。
勉強不足と言われればそれまでなのですが、
皆さんのｈｅｌｐをよろしくお願いします。
ＤＢはＡＣＣＥＳＳ2002で作成してます。
[3515] Re:検索→修正（更新）するには？
投稿者：ひでかずさん 2003/07/15 12:05:49
登録と表示処理が出来たのでしたら、その応用で出来ると思いますよ。
↓こんな感じでどうでしょう？
１．SELECT文で『お客様コード』が一致するものを探します
２．一致したもののデータを画面に表示（複数テキストボックスを作って、そこに表示するのがいいかも）
３．修正したい部分を修正した後、『お客様コード』をキーにUPDATE文でデータを更新
[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
%>
[3523] Re:検索→修正（更新）するには？（作成してみましたが・・・）
投稿者：nowheremanさん 2003/07/23 7:23:18
↓こんな感じかな？

<%
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 & "'"
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
%>
[3524] Re:検索→修正（更新）するには？（作成してみましたが・・・）
投稿者：nowheremanさん 2003/07/23 7:24:52
１行消し忘れたｗ

<%
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
%>
[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
[3530] Re:検索→表示は出来ました。更新・削除をするには？
投稿者：nowheremanさん 2003/07/24 10:07:53
> [Microsoft][ODBC Microsoft Access Driver] UPDATE ステートメントの構文エラーです。

の通りでしょ。
ＳＱＬ文をResponse.Writeしてみれば理由が分かると思うけど。
（前と同じようにSETとかWHEREとかの前にスペースが無いんじゃない？）
聞く前にそれぐらいの調査はしないと…
単にソース丸投げはどうかと思うな。
投げる前に
「ここまで、こうやったけど、こうなってしまう」
ぐらいまで試行錯誤しないと力つかないよ。

前の質問も何でクリアになったか
ちゃんと整理して理解してる？

そうじゃないと、他力本願のまま終わっちゃうよ。
（それでいいならそれまでだけど。）

> エラー '80020009'
> 例外が発生しました。
> /kensaku.asp, 行 21

２１行目というとSelect文の辺りかな？
色々なモノをResponse.Writeするなどして調査してみれば？
[3535] Re:検索→修正（更新）するには？
投稿者：ひでかずさん 2003/07/24 19:59:44
SQL文の最後に『;』がついているからではないでしょうか？
あるいは、Whereの『=』の後ろが『''』で囲まれていないからかな。

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