asp中的sql的update问题(急!!!谢谢了!!) 50
pk=request("pk")''主键''********修改时先添好被修改信息.***************setrs=Server.CreateObject("A...
pk = request("pk") ''主键
''********修改时先添好被修改信息.***************
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from VIEW3 where ID="& pk
rs.open sql,conn,1,1
if rs.eof then
salert "数据库出错!!"
response.end
else
title = rs("title")
content = rs("content")
receiver = rs("receiver")
sender = rs("sender")
Expr1 = rs("Expr1")
tdate = rs("tdate")
end if
rs.close
set rs = nothing
conn.execute("update admininforms set lookname=lookname+'"&rs("receiver")&"' where icaption='"&rs("title")&"' and icontent='"&rs("content")&"' and iman='"&rs("sender")&"'")
conn.execute("delete from remind where id=" & pk)
%>
update 不好用,是不是我写的不对,怎样写??谢谢了!
我想先执行update后再执行delete!!!!!!!! 展开
''********修改时先添好被修改信息.***************
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from VIEW3 where ID="& pk
rs.open sql,conn,1,1
if rs.eof then
salert "数据库出错!!"
response.end
else
title = rs("title")
content = rs("content")
receiver = rs("receiver")
sender = rs("sender")
Expr1 = rs("Expr1")
tdate = rs("tdate")
end if
rs.close
set rs = nothing
conn.execute("update admininforms set lookname=lookname+'"&rs("receiver")&"' where icaption='"&rs("title")&"' and icontent='"&rs("content")&"' and iman='"&rs("sender")&"'")
conn.execute("delete from remind where id=" & pk)
%>
update 不好用,是不是我写的不对,怎样写??谢谢了!
我想先执行update后再执行delete!!!!!!!! 展开
展开全部
当然错了.
rs.close set rs = nothing 已经把rs关闭了
下面的SQL语句还用到了rs("receiver")
你可以再关闭之前拼接
...
end if
sqlx = "update admininforms set lookname=lookname+'"&rs("receiver")&"' where icaption='"&rs("title")&"' and icontent='"&rs("content")&"' and iman='"&rs("sender")&"'"
rs.close
set rs = nothing
conn.execute(sqlx)
...
rs.close set rs = nothing 已经把rs关闭了
下面的SQL语句还用到了rs("receiver")
你可以再关闭之前拼接
...
end if
sqlx = "update admininforms set lookname=lookname+'"&rs("receiver")&"' where icaption='"&rs("title")&"' and icontent='"&rs("content")&"' and iman='"&rs("sender")&"'"
rs.close
set rs = nothing
conn.execute(sqlx)
...
展开全部
在end if
前加个rs.update
如果还不行的话
就在
title = rs("title") 前面加个rs.addnew
然后再在endif前加个rs.update
前加个rs.update
如果还不行的话
就在
title = rs("title") 前面加个rs.addnew
然后再在endif前加个rs.update
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
怎么个不好用法啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
错误: 已经 rs.close 还使用记录集对象
==============
试试下面
====================
<%
pk = request("pk") ''主键
''********修改时先添好被修改信息.***************
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from VIEW3 where ID="& pk
rs.open sql,conn,1,1
if rs.eof then
salert "数据库出错!!"
response.end
else
title = rs("title")
content = rs("content")
receiver = rs("receiver")
sender = rs("sender")
Expr1 = rs("Expr1")
tdate = rs("tdate")
end if
conn.execute("update admininforms set lookname=lookname+'"&rs("receiver")&"' where icaption='"&rs("title")&"' and icontent='"&rs("content")&"' and iman='"&rs("sender")&"'")
conn.execute("delete from remind where id=" & pk)
rs.close
set rs = nothing
%>
==============
试试下面
====================
<%
pk = request("pk") ''主键
''********修改时先添好被修改信息.***************
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from VIEW3 where ID="& pk
rs.open sql,conn,1,1
if rs.eof then
salert "数据库出错!!"
response.end
else
title = rs("title")
content = rs("content")
receiver = rs("receiver")
sender = rs("sender")
Expr1 = rs("Expr1")
tdate = rs("tdate")
end if
conn.execute("update admininforms set lookname=lookname+'"&rs("receiver")&"' where icaption='"&rs("title")&"' and icontent='"&rs("content")&"' and iman='"&rs("sender")&"'")
conn.execute("delete from remind where id=" & pk)
rs.close
set rs = nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
conn.execute("update admininforms set lookname=lookname+'"&receiver &"' where icaption='"&title&"' and icontent='"&content&"' and iman='"&sender&"'")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询