いつもお世話になってます。
前のページでIDで検索し、更新ボタンをクリックするとkousin.aspへ表示しているIDのレコードをそのまま表示して更新をしたいのですがうまくいきません。
Response.Writeのせいでしょうか?宜しくお願いします。
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ObjConn,ObjRS
pickup = Request.Form("uID")
MSACFN = Server.MapPath("dbname.mdb")
DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjConn.Open DBFile
sql="select * from tablename where uID = '"&pickup&"'"
Set DBexe = ObjConn.Execute(sql)
ObjRS.CursorLocation = 3
ObjRS.Open "select * from tablename" ,ObjConn,3,3
Response.Write "<form method=""POST"" action=""kousin.asp"">"
Response.Write "<table width=""519"" border=""1"">"
Response.Write "<tr>"
Response.Write "<tr><td>" & ("ID") & "</td><td>" & ObjRS("uID") & "</td></tr>"
Response.Write "<tr><td>" & ("氏名") & "</td><td>"& ObjRS("uNAME") & "</td></tr>"
Response.Write "<tr><td>" & "<input type=""hidden"" value=""uID""><input type=""submit"" value=""更新"" onClick='return checkForm()'><input type=""button"" onclick=""del.asp""name=""削除"" value=""削除""></td>"
Loop
Response.Write "</table>"
ObjRS.close
Set ObjRS=Nothing
ObjConn.close
Set ObjConn=Nothing
%>
No.5ベストアンサー
- 回答日時:
この回答への補足
tiduさん
ご無沙汰しております。
上記の件試しましたが、エラーになり出来ませんでした。
IDを引く方法が間違っているんでしょうかね。
No.4
- 回答日時:
追加です。
ちょっと気になったのですが、
Formタグが閉じられてないのですが、実際のソースではちゃんと</form>で閉じてますよね?
この回答への補足
tiduさん
毎々有難うございます
Formタグは閉じています。
教えて頂いたhttp://gate.ruru.ne.jp/kakucha/asp/37.aspですが、私も試して見たのですが途中でエラーになってしまいあきらめました。
No.3
- 回答日時:
No.2
- 回答日時:
inputタグに値を設定していない気がしますが、気のせいでしょうか?
<input type=""hidden"" value=""uID"">
↓
このuID部分にもObjRS.Fields.Item("カラム名").valueを指定してあげないと引き継げません。
実際ブラウザでこのASPを見た際のソースを確認してみてください。inputタグに値が入っていれば引き継げますよ(^^
この回答への補足
tiduさん
有難うございます。
ObjRS.Fields.Item("カラム名").valueは変更してみましたが、ページを移動した際にURLにhttp://~~~~~/idou.asp?page3などとなってしまうためか更新ボタンを押しても表示しているレコードを更新できません。
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ObjConn,ObjRS
pickup = Request.Form("uID")
MSACFN = Server.MapPath("dbname.mdb")
DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjConn.Open DBFile
sql="select * from dbname where 'uID = ' "&pickup&""
'//sql="select * from dbname where uID = '"&pickup&"'"(文字データは'"をつける)
Set DBexe = ObjConn.Execute(sql)
ObjRS.CursorLocation = 3
ObjRS.Open "select * from tablename" ,ObjConn,3,3
ObjRS.PageSize=1
pagesize=ObjRS.PageSize
pagecount=ObjRS.PageCount
ObjRS.MoveFirst
If Request.QueryString("page")="" Then
page=1
Else
page=Cint(Request.QueryString("page"))
End If
ObjRS.AbsolutePage = page
Dim CurrentRecord
CurrentRecord=1
If page = 1 OR page = "" Then
Response.Write "<b><font color=""#cfcfcf"">前の " & pagesize & " 件</font></b>"
ELSE
Response.Write "<a href=""" & sFILE & "?page=" & page-1 & """>前の " & pagesize & " 件</a>"
End If
Response.Write "-"
If page < pagecount Then
Response.Write "<a href=""" & sFILE & "?page=" & page+1 & """>次の " & pagesize & " 件</a>"
ELSE
Response.Write "<b><font color=""#cfcfcf"">次の " & pagesize & " 件</font></b>"
End If
Response.Write "<hr>"
Do while (NOT ObjRS.EOF) AND (CurrentRecord <= Pagesize)
Response.Write "<form method=""POST"" action=""kousin2.asp"">"
Response.Write "<table width=""519"" border=""1"">"
Response.Write "<tr>"
Response.Write "<tr><td width=""200"">" & "</td><td width=""200"">" & "</td></tr>"
Response.Write "<tr><td>" & ("ID") & "</td><td>" & ObjRS.Fields.Item("uID").value & "</td></tr>"
Response.Write "<tr><td>" & ("TYPE") & "</td><td>" & ObjRS.Fields.Item("uTYPE").value & "</td></tr>"
Response.Write "<tr><td>" & ("uNAME") & "</td><td>"& ObjRS.Fields.Item("uNAME").value & "</td></tr>"
Response.Write "<tr><td>" & "<input type=""hidden"" value=""uID""><input type=""submit"" value=""更新"" onClick='return checkForm()'><input type=""button"" onclick=""del.asp""name=""削除"" value=""削除""></td>"
Do Until ObjRS.EOF
ObjRS.MoveNext
Loop
Response.Write "</table>"
Loop
ObjRS.close
Set ObjRS=Nothing
ObjConn.close
Set ObjConn=Nothing
%>
No.1
- 回答日時:
ObjRS("uNAME")を
ObjRS.Fields.Item("カラム名").value
という形に変更しても取得できませんか?
この回答への補足
tiduさん
ありがとうございます。
レコードの移動を使わなければ出来ましたが。レコードの移動をした場合kousin.aspで前のページの情報が取れないのはなぜでしょう。
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ObjConn,ObjRS
pickup = Request.Form("uID")
MSACFN = Server.MapPath("dbname.mdb")
DBFile="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MSACFN
Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRS = Server.CreateObject("ADODB.Recordset")
ObjConn.Open DBFile
sql="select * from tablename where 'uID = ' "&pickup&""
'//sql="select * from tablename where uID = '"&pickup&"'"
Set DBexe = ObjConn.Execute(sql)
ObjRS.CursorLocation = 3
ObjRS.Open "select * from tablename" ,ObjConn,3,3
ObjRS.PageSize=1
pagesize=ObjRS.PageSize
pagecount=ObjRS.PageCount
ObjRS.MoveFirst
If Request.QueryString("page")="" Then
page=1
Else
page=Cint(Request.QueryString("page"))
End If
ObjRS.AbsolutePage = page
Dim CurrentRecord
CurrentRecord=1
If page = 1 OR page = "" Then
Response.Write "<b><font color=""#cfcfcf"">前の " & pagesize & " 件</font></b>"
ELSE
Response.Write "<a href=""" & sFILE & "?page=" & page-1 & """>前の " & pagesize & " 件</a>"
End If
Response.Write "-"
If page < pagecount Then
Response.Write "<a href=""" & sFILE & "?page=" & page+1 & """>次の " & pagesize & " 件</a>"
ELSE
Response.Write "<b><font color=""#cfcfcf"">次の " & pagesize & " 件</font></b>"
End If
Response.Write "<hr>"
Do while (NOT ObjRS.EOF) AND (CurrentRecord <= Pagesize)
Response.Write "<form method=""POST"" action=""kousin2.asp"">"
Response.Write "<table width=""519"" border=""1"">"
Response.Write "<tr>"
Response.Write "<tr><td width=""200"">" & "</td><td width=""200"">" & "</td></tr>"
Response.Write "<tr><td>" & ("ID") & "</td><td>" & ObjRS.Fields.Item("uID").value & "</td></tr>"
Response.Write "<tr><td>" & ("TYPE") & "</td><td>" & ObjRS.Fields.Item("uTYPE").value & "</td></tr>"
Response.Write "<tr><td>" & ("名前 ") & "</td><td>"& ObjRS.Fields.Item("uNAME").value & "</td></tr>"
Response.Write "<tr><td>" & "<input type=""hidden"" value=""uID""><input type=""submit"" value=""更新"" onClick='return checkForm()'><input type=""button"" onclick=""del.asp""name=""削除"" value=""削除""></td>"
Do Until ObjRS.EOF
ObjRS.MoveNext
Loop
Response.Write "</table>"
Loop
ObjRS.close
Set ObjRS=Nothing
ObjConn.close
Set ObjConn=Nothing
%>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- AJAX JavascriptからPHPへのAjax通信でnullが返ってくる 3 2022/08/03 22:00
- HTML・CSS 自身のHPにYouTube動画を貼り付けるのが出来なくなり困ってます 1 2022/11/11 10:44
- HTML・CSS テーブルタグのセルの幅の一部だけを指定 1 2023/03/12 12:02
- Visual Basic(VBA) Selenium.ChromeDriverの使い方について 7 2022/09/22 06:43
- JavaScript EasyUIのSubGrid(jquery)におけるObjectに入れた連想配列について 1 2022/05/02 11:21
- JavaScript jQueryで同じクラス名のものを別物として扱いたい 1 2022/06/17 14:14
- HTML・CSS 【CSS】:hasで可能? imgを含むtr要素を選択したい 1 2022/11/17 14:36
- JavaScript 追加ボタンを押した際に ok ボタンを押した場合のみ入力値が追記されるようにしたいです 6 2022/05/29 09:57
- MySQL SQL任意に並び替えをしたい 2 2023/08/28 10:47
- その他(プログラミング・Web制作) Pythonで会員サイトの自動ログイン ID Nameがない 1 2022/12/16 02:09
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
BBSのアイコンをプルダウンメニ...
-
フォームの入力項目のブロック...
-
占いのプログラムについて
-
jQuery テキストボックス読み取...
-
文字数を数える際に空白、改行...
-
チェックボックス付きのテーブ...
-
jQueryで合計を出したい
-
イベント時の文字色変更
-
チェックボックスの全選択・全...
-
return trueとreturn falseの用...
-
<JavaScript>tableタグを入力不...
-
プルダウン 項目が多いので先頭...
-
onchangeイベントを強制的に発...
-
Googleモバイル検索の検索結果...
-
至急!GetElementById でtdの...
-
一度しか押せないボタンについて
-
COBOLの数字チェック
-
チェックボックスのON/OFFでVal...
-
value内に変数を入れたい
-
submitするとなぜか2度実行する
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
チェックボックス付きのテーブ...
-
localStorageでのcheckbox制御
-
複数のselect値で1つも選択され...
-
JavaScriptの「.querySelectorA...
-
Javascriptの電卓で最初の何も...
-
文字数を数える際に空白、改行...
-
formで項目を連結したい
-
jQueryで合計を出したい
-
Formのシリアライズができない
-
画面表示とともにtableの指定の...
-
テーブル内のチェックボックス...
-
入力チェックの外部スクリプト...
-
ラジオボタンが選択されたらテ...
-
VBSでの自動ログイン
-
Javascriptで自動的に計算する...
-
jQuery テキストボックス読み取...
-
同一nameの input type="text"...
-
ボタンクリックでフォーカス移動
-
画面の2重起動をチェックする...
-
送信ボタン連打を抑止したいです
おすすめ情報