Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

mahongzuoye 2009-06-27 04:26:21
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC Microsoft Access Driver] UPDATE 语句的语法错误。

/lx/626/mod-3.asp,行 24


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改数据库的例子</title>
</head>

<body>
<center>
<%
name=request.Form("name")
sex=request.Form("sex")
classname=request.Form("class")
score=request.Form("score")
set conn=server.CreateObject("adodb.connection")
conn.open "student"
sqlstmt="update student"
sqlstmt=sqlstmt & "set name='"&name&"',"
sqlstmt=sqlstmt & "set sex='"&sex&"',"
sqlstmt=sqlstmt & "set class='"&classname&"',"
sqlstmt=sqlstmt & "set score='"&score&"',"
sqlstmt=sqlstmt & "where name='"&name&"'"
set rs=conn.execute(sqlstmt)
if err.number>0 then
response.Write("vbscript errors occured:" &"<p>")
response.Write("error number="& err.number &"<p>")
response.Write("error descr.="& err.description &"<p>")
response.Write("help context="& err.helpcontext &"<p>")
response.Write("help path="& err.helppath &"<p>")
response.Write("native error="& err.nativeerror &"<p>")
response.Write("source="& err.source &"<p>")
response.Write("sqlstate="& err.sqlstate &"<p>")
end if
if conn.errors.count>0 then
response.Write("database errors occurd" & "<p>")
response.Write(sqlstmt & "<p>")
for counter=0 to conn.errors.count
response.Write("error #"& conn.errors(counter).number &"<p>")
response.Write("error desc.->"& conn.errors(counter).description &"<p>")
next
else
response.Write("<font face='arial' size=4>")
response.Write("<br><br>记录已经被成功修改。")
response.Write("</b></font>")
end if
conn.close
set conn=nothing
%>
</center>
</body>
</html>

...全文
245 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
mahongzuoye 2009-06-28
  • 打赏
  • 举报
回复

红色的那行还是有错
<%
name=request.Form("name")
sex=request.Form("sex")
classname=request.Form("class")
score=request.Form("score")
set conn=server.CreateObject("adodb.connection")
conn.open "student"
sqlstmt="update student "
sqlstmt=sqlstmt & " SET sex='" & sex & "', "
sqlstmt=sqlstmt & " [class]='" & classname & "', "
sqlstmt=sqlstmt & " score=" & score
sqlstmt=sqlstmt & " where [name]='" & name & "'"
set rs=conn.execute(sqlstmt)
if err.number>0 then
response.Write("vbscript errors occured:" &"<p>")
response.Write("error number="& err.number &"<p>")
response.Write("error descr.="& err.description &"<p>")
response.Write("help context="& err.helpcontext &"<p>")
response.Write("help path="& err.helppath &"<p>")
response.Write("native error="& err.nativeerror &"<p>")
response.Write("source="& err.source &"<p>")
response.Write("sqlstate="& err.sqlstate &"<p>")
end if
if conn.errors.count>0 then
response.Write("database errors occurd" & "<p>")
response.Write(sqlstmt & "<p>")
for counter=0 to conn.errors.count
response.Write("error #"& conn.errors(counter).number &"<p>")
response.Write("error desc.->"& conn.errors(counter).description &"<p>")
next
else
response.Write("<font face='arial' size=4>")
response.Write("<br><br>记录已经被成功修改。")
response.Write("</b></font>")
end if
conn.close
set conn=nothing
%>[Quote=引用 7 楼 hookee 的回复:]
name不需要 set, 注意字符串中保留的空格.

VBScript code
sqlstmt="update student "
sqlstmt=sqlstmt & " SET sex='" & sex & "', "
sqlstmt=sqlstmt & " [class]='" & classname & "', "
sqlstmt=sqlstmt & " score=" & score
sqlstmt=sqlstmt & " where [name]='" & name & "'"
[/Quote]
hookee 2009-06-27
  • 打赏
  • 举报
回复
name不需要 set, 注意字符串中保留的空格.

sqlstmt="update student "
sqlstmt=sqlstmt & " SET sex='" & sex & "', "
sqlstmt=sqlstmt & " [class]='" & classname & "', "
sqlstmt=sqlstmt & " score=" & score
sqlstmt=sqlstmt & " where [name]='" & name & "'"
mahongzuoye 2009-06-27
  • 打赏
  • 举报
回复
只有score是数值类型的,其他的都是文本类型的要怎样改呀!
[Quote=引用 5 楼 hookee 的回复:]
各个字段的数据类型是什么?
Response.Write sqlstmt 看下是什么
[/Quote]
hookee 2009-06-27
  • 打赏
  • 举报
回复
各个字段的数据类型是什么?
Response.Write sqlstmt 看下是什么
mahongzuoye 2009-06-27
  • 打赏
  • 举报
回复
还是显示第24行有错,应该怎样改呀![Quote=引用 2 楼 hookee 的回复:]


VBScript code
sqlstmt="update student "
sqlstmt=sqlstmt & " set name='" & name & "', "
sqlstmt=sqlstmt & " sex='" & sex&"', "
sqlstmt=sqlstmt & " [class]='" & classname & "', "
sqlstmt=sqlstmt & " score=" & score
sqlstmt=sqlstmt & " where name='"&name&"'"
[/Quote]
hookee 2009-06-27
  • 打赏
  • 举报
回复


sqlstmt="update student "
sqlstmt=sqlstmt & " set name='" & name & "', "
sqlstmt=sqlstmt & " sex='" & sex&"', "
sqlstmt=sqlstmt & " [class]='" & classname & "', "
sqlstmt=sqlstmt & " score=" & score
sqlstmt=sqlstmt & " where name='"&name&"'"
sy_binbin 2009-06-27
  • 打赏
  • 举报
回复
sqlstmt="update student"
sqlstmt=sqlstmt & "set [name]='"&name&"',"
sqlstmt=sqlstmt & "sex='"&sex&"',"
sqlstmt=sqlstmt & "[class]='"&classname&"',"
sqlstmt=sqlstmt & "score='"&score&"'"
sqlstmt=sqlstmt & " where [name]='"&name&"'"

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧