标题:关于recordset写入数据库(我写不进去)
只看楼主
hokylove
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-6-13
 问题点数:0 回复次数:6 
关于recordset写入数据库(我写不进去)
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
if request.form("providername")<>"" then
sql="select * from gongying where gname='"&request.form("providername")&"'"
rs.open sql,conn,3,2
if rs.eof then
  rs.addnew
  rs("gname")=request.form("providername")
  rs("memo")=request.form("memo")
  rs.update
  response.write "<p align=center>添加成功,请<a href='viewgong.asp'>返回</a><br><br>"
else
  response.write "<p align=center>该供应商已存在,请<a href='addgong.asp'>重新输入</a><br><br>"
end if
rs.close
else
   response.write "<p align=center>请<a href='addgong.asp'>输入供应商名称</a><br><br>"
end if
else
%>


我的conn.asp文件
<%
   dim conn,str  
   on error resume next
   str="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123;DATABASE=kucun"
   set conn=server.createobject("ADODB.CONNECTION")
   Set rs = Server.CreateObject("ADODB.Recordset")
   Set rs2 = Server.CreateObject("ADODB.Recordset")
   Set rs3 = Server.CreateObject("ADODB.Recordset")
   if err then
      err.clear
      response.Write("数据库连接错误!")
   else
        conn.open str
        if err then
           err.clear
           response.Write("数据库打开错误!")
        end if
   end if
%>


大家帮帮我啊。。。急需。。。

我问了老师,老师居然不能解决。。。
搜索更多相关主题的帖子: recordset 数据库 form request 
2008-06-13 21:10
hokylove
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-6-13
得分:0 
有没有高手能帮我解决下。。。

明天就得检查课程设计啦。。。
2008-06-13 21:27
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
得分:0 
rs.open sql,conn,3,2
改成
rs.open sql,conn,1,3

[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2008-06-14 08:13
hokylove
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-6-13
得分:0 
这样还是不行。。。
不知道为什么,理论上应该没问题啊????

还是改用SQL语句吧。。。还是得谢谢版主哈。。。。
2008-06-14 10:28
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
得分:0 
你是添加还是修改?
如果是修改,就把rs.addnew删除
如果是添加,就把where gname='"&request.form("providername")&"'删除

[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2008-06-14 13:36
hokylove
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-6-13
得分:0 
谢谢斑竹啊。。。

我现在搞定啦。。
2008-06-16 18:41
wangmeng6313
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-17
得分:0 
2008-06-17 17:43



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-219072-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039239 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved