| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 878 人关注过本帖
标题:[求助]INSERT INTO出错
只看楼主 加入收藏
林新程
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-8-26
收藏
 问题点数:0 回复次数:10 
[求助]INSERT INTO出错
我是新手,看了半天没看出来!
<%
name=request("name")
password=request("password")
rt=request("rt")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("wangba.mdb")
Conn.Open
' 建立Recordset对象并以追加记录方式打开数据表admin
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from admin where name='"&name&"'"
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
rs1.Open "admin",conn,3,4
exec="insert into admin(name,password,rt)values('"+name+"','"+password+"','"+rt+"')"
conn.execute exec
%>

错误类型:
Microsoft JET Database Engine (0x80040E14)
INSERT INTO 语句的语法错误。
/789/10/123/addnewuser.asp, 第 18 行
搜索更多相关主题的帖子: INTO INSERT INTO INSERT 
2007-08-27 13:13
qhscqb
Rank: 1
等 级:新手上路
威 望:1
帖 子:343
专家分:0
注 册:2007-2-3
收藏
得分:0 
你将+变为&amp;

编程快乐,快乐编程! 没有最好,只有更好!
2007-08-27 13:40
林新程
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-8-26
收藏
得分:0 

变了也不行,还是报这个错误!

2007-08-27 13:44
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 

少了end if

2007-08-27 14:12
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 
<%
name=request("name")
password=request("password")
rt=request("rt")
Set Conn = Server.CreateObject("ADODB.Connection")
Constr="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("wangba.mdb")
Conn.Open =constr
set rs=server.createobject("adodb.recordset")
sql="select * from admin where name='"&name&"'"
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
rs.close
set rs = nothing
conn.close
set conn = nothing
Set Conn = Server.CreateObject("ADODB.Connection")
Constr= "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("wangba.mdb")
Conn.Open =constr
conn.execute("insert into admin(name,password,rt)values('"&name&"','"&password&"','"&rt&"')")
conn.close
set conn = nothing
end if
%>
2007-08-27 14:17
林新程
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2007-8-26
收藏
得分:0 
<!--#include file="conn.asp" -->
<%
name=request("name")
password=request("password")
rt=request("rt")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("wangba.mdb")
Conn.Open
' 建立Recordset对象并以追加记录方式打开数据表admin
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select * from admin where name='"&name&"'"
rs.Open sql,conn,1,1
if rs.EOF or rs.bof then
rs1.Open "admin",conn,3,4
exec="insert into admin(name,password,rt)values('"+name+"','"+password+"','"+rt+"')"
conn.execute exec
%>
<script language="vbscript">
alert ("用户信息添加成功!!!!")
window.location.href = "index.asp"
</script>
<%
rs1.close
set rs1=nothing
else
%>
<script language="vbscript">
alert ("用户名重复!!!")
history.back
</script>
<%
end if
end if
rs.Close
set rs=nothing
%>

这是我全部代码,你帮我看看,谢谢
2007-08-27 14:46
qhscqb
Rank: 1
等 级:新手上路
威 望:1
帖 子:343
专家分:0
注 册:2007-2-3
收藏
得分:0 
rs1.Open "admin",conn,3,4
admin是一个sql查询吗?

编程快乐,快乐编程! 没有最好,只有更好!
2007-08-27 14:59
qhscqb
Rank: 1
等 级:新手上路
威 望:1
帖 子:343
专家分:0
注 册:2007-2-3
收藏
得分:0 
我想问题可能出在name此字段上,因为它是sql的保留字,你改成adminName试一下,还有password改成PSword

编程快乐,快乐编程! 没有最好,只有更好!
2007-08-27 15:03
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 

不懂这句什么意思
rs1.Open "admin",conn,3,4


[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2007-08-27 15:21
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 
同意楼上的说法.在name此字段上,因为它是sql的保留字,你改成adminName试一下,还有password改成PSword.
2007-08-27 15:44
快速回复:[求助]INSERT INTO出错
数据加载中...
 
   



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

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