28,404
社区成员
发帖
与我相关
我的任务
分享急求救
<%
dim PQcarNO
'記錄表單號
PQcarNO=trim(request("PQcarNO"))
if trim(request("action")) = "cmdupd" then
set updrs=server.createobject("adodb.recordset")
sql="select * from car where PQcarNo='"&PQcarNo&"'"
updrs.open sql,conn,3,3
conn.BeginTrans
updrs("cartype")= trim(request("selectcartype"))
updrs("carnumber")= trim(request("txtcarnumber"))
updrs("motorman")= trim(request("txtmotorman"))
updrs("fettle")= trim(request("selectfettle"))
updrs("overhaul_date")= trim(request("txtoverhaul_date"))
updrs("overhaul_dept")= trim(request("txtoverhaul_dept"))
updrs("note")= trim(request("txtnote"))
updrs("auditing")= trim(request("txtauditing"))
updrs.update
updrs.close
set updrs=nothing
response.write"<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>"
response.write "<SCRIPT language=JavaScript>alert('資料發送成功!');"
response.write "window.document.location.href='PQvoiture_upd.asp?PQcarNo="&PQcarNo&"&act=editYN&ModuleID=3';</script>"
end if
set rs=server.CreateObject("ADODB.Recordset")
sqlstr="select * from car where PQcarNO='"& PQcarNO &"'"
rs.open sqlstr,conn,1,3
if rs.bof then
response.Write"車輛編號不存在!"
end if
%>
<script language="vbscript">
sub cmdsava_onclick()
document.all("form1")=submit
end sub
</script>
</head>
<body>
<form name="form1" method="post" action="PQvoiture_upd.asp?action=cmdupd">
在action=cmdupd開始前輸出PQcarNO正確,怎麼會出現--ADODB.Recordset (0x800A0BCD)
可能是 BOF 或 EOF 的值為 True，或目前的資料錄已被刪除。所要求的操作需要目前的資料錄。
dim PQcarNO
'記錄表單號
PQcarNO=trim(request("PQcarNO"))
if trim(request("action")) = "cmdupd" then
set updrs=server.createobject("adodb.recordset")
sql="select * from car where PQcarNo='"&PQcarNo&"'"
updrs.open sql,conn,3,3
conn.BeginTrans
updrs("cartype")= trim(request("selectcartype"))
updrs("carnumber")= trim(request("txtcarnumber"))
updrs("motorman")= trim(request("txtmotorman"))
updrs("fettle")= trim(request("selectfettle"))
updrs("overhaul_date")= trim(request("txtoverhaul_date"))
updrs("overhaul_dept")= trim(request("txtoverhaul_dept"))
updrs("note")= trim(request("txtnote"))
updrs("auditing")= trim(request("txtauditing"))
updrs.update
updrs.close
set updrs=nothing
response.write"<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>"
response.write "<SCRIPT language=JavaScript>alert('資料發送成功!');"
response.write "window.document.location.href='PQvoiture_upd.asp?PQcarNo="&PQcarNo&"&act=editYN&ModuleID=3';</script>"
end if
set rs=server.CreateObject("ADODB.Recordset")
sqlstr="select * from car where PQcarNO='"& PQcarNO &"'"
rs.open sqlstr,conn,1,3
if rs.bof then
response.Write"車輛編號不存在!"
end if
%>
<script language="vbscript">
sub cmdsava_onclick()
document.all("form1")=submit
end sub
</script>
</head>
<body>
<form name="form1" method="post" action="PQvoiture_upd.asp?action=cmdupd">
在action=cmdupd開始前輸出PQcarNO正確,怎麼會出現--ADODB.Recordset (0x800A0BCD)
可能是 BOF 或 EOF 的值為 True，或目前的資料錄已被刪除。所要求的操作需要目前的資料錄。
...全文
请发表友善的回复…
发表回复
nkeverstar 2007-08-06
- 打赏
- 举报
updrs.open sql,conn,3,3
conn.BeginTrans
中间加一个记录集是否为空的判断
conn.BeginTrans
中间加一个记录集是否为空的判断
