请高手指点

whbchy 2006-05-30 08:35:22
下面是客户信息修改页面的程序代码，当运行时老是出现如下错误：

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 ''0,address='东大街1号附8号',phone='028-87654321',remark=' ' where keyid=2' 中。
/ClientEdit.asp, 第 42 行

出问题的代码段我已经放在了最后。请高手指点。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>更新销售的产品数据</title>
</head>
<%
SellId=trim(Request.QueryString("id")+"")
if len(SellId)<1 then
msgErr="没有需要修改的销售产品数据！请进入查询页面选择！"
Response.Redirect("SellView.asp")
end if

Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=SellDSN;UID=admin;Database=SellManage"
msgErr=""
productid=trim(Request("productid")+"")
Numbers=trim(Request("Numbers")+"")
clientid=trim(Request("clientid")+"")
Producedate=trim(Request("Producedate")+"")
Content=trim(Request("Content")+"")

isPostBack=trim(Request("IsPostBack")+"")
if isPostBack="PostBack" then
checked=true '用于判断所有信息是否合法，如合法则保存数据
if len(productid)<1 then
checked=false
msgErr="销售产品必须选择！"
end if
if len(Numbers)<1 then
checked=false
msgErr=msgErr+"销售数量必须输入！"
end if
if len(clientid)<1 then
checked=false
msgErr=msgErr+"购买客户必须选择！"
end if
if len(Producedate)<1 then
checked=false
msgErr=msgErr+"销售日期必须输入！"
end if
if checked then
strsql="update xt_t_Produce set "
strsql =strsql + "productid='"+productid+"'"
strsql =strsql + ",selldate=#"+ProduceName+"#"
strsql =strsql + ",numbers="+Numbers
strsql =strsql + ",clientid="+Clientid+",content='"+Content+"'"
strsql =strsql + " where keyid="+SellId
con.Execute strsql
msgErr="修改销售产品信息成功！"
end if
end if
Set rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_sell where keyid="+SellId
rs.Open strsql,con

Set pr_rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_produce "
pr_rs.Open strsql,con

Set client_rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_client "
client_rs.Open strsql,con

%>
<body>
<form name="form1" method="post" action="">
<input name="IsPostBack" type="hidden" value="PostBack">
<table width="100%" border="1" align="center">
<tr>
<td align="right">产品名称：</td>
<td ><select name="productid" id="productid">
<% do while not (pr_rs.EOF) %>
<option value="<%=trim(pr_rs("keyid")) %>"
<%if trim(pr_rs("keyid"))=trim(rs("productid")) then%>
selected <%end if%>><%=pr_rs("name")%></option>
<%pr_rs.MoveNext
loop
pr_rs.Close %>
</select><font color="red" >**</font></td>
</tr>
<tr>
<td align="right">销售日期：</td>
<td><input name="Producedate" type="text" id="Producedate" maxlength="10"
value="<%=trim(rs("producedate"))%>"></td>
</tr>
<tr>
<td align="right">销售数量：</td>
<td ><input name="Numbers" type="text" id="Numbers" maxlength="8"
value="<%=trim(rs("Numbers"))%>">
</td>
</tr>
<tr>
<td align="right">购买客户：</td>
<td ><select name="clientid" id="clientid">
<% do while not (client_rs.EOF) %>
<option value="<%=trim(client_rs("keyid")) %>"
<%if trim(client_rs("keyid"))=trim(rs("clientid")) then%>
selected <%end if%>><%=client_rs("name")%></option>
<%client_rs.MoveNext
loop
client_rs.Close %>
</select><font color="red" >**</font></td>
</tr>
<tr>
<td align="right">销售说明：</td>
<td><textarea name="Content" rows="4" style="width:100% ">
<%=trim(rs("content")) %></textarea></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td align="center"><input type="submit" name="Submit" value="更新"></td>
</tr>
<tr>
<td ><font color="red" ><%=msgErr %></font></td>
</tr>
</table>
<%rs.Close%>
</form>
</body>
</html>




if checked then
strsql="update xt_t_Produce set "
strsql =strsql + "productid='"+productid+"'"
strsql =strsql + ",selldate=#"+ProduceName+"#"
strsql =strsql + ",numbers="+Numbers
strsql =strsql + ",clientid="+Clientid+",content='"+Content+"'"
strsql =strsql + " where keyid="+SellId
con.Execute strsql
msgErr="修改销售产品信息成功！
...全文
174 8 打赏 收藏 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
diyager 2006-06-01
  • 打赏
  • 举报
 回复
把带有address的那些个语句贴出来咯
coder1 2006-06-01
  • 打赏
  • 举报
 回复
帮顶
whbchy 2006-06-01
  • 打赏
  • 举报
 回复
下面是全部代码:


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>更新销售的产品数据</title>
</head>
<%
SellId=trim(Request.QueryString("id")+"")
if len(SellId)<1 then
msgErr="没有需要修改的销售产品数据！请进入查询页面选择！"
Response.Redirect("SellView.asp")
end if

Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=SellDSN;UID=admin;Database=SellManage"
msgErr=""
productid=trim(Request("productid")+"")
Numbers=trim(Request("Numbers")+"")
clientid=trim(Request("clientid")+"")
Producedate=trim(Request("Producedate")+"")
Content=trim(Request("Content")+"")

isPostBack=trim(Request("IsPostBack")+"")
if isPostBack="PostBack" then
checked=true '用于判断所有信息是否合法，如合法则保存数据
if len(productid)<1 then
checked=false
msgErr="销售产品必须选择！"
end if
if len(Numbers)<1 then
checked=false
msgErr=msgErr+"销售数量必须输入！"
end if
if len(clientid)<1 then
checked=false
msgErr=msgErr+"购买客户必须选择！"
end if
if len(Producedate)<1 then
checked=false
msgErr=msgErr+"销售日期必须输入！"
end if
if checked then
strsql="update xt_t_Produce set "
strsql =strsql + "productid='"+productid+"'"
strsql =strsql + ",selldate=#"+ProduceName+"#"
strsql =strsql + ",numbers="+Numbers
strsql =strsql + ",clientid="+Clientid+",content='"+Content+"'"
strsql =strsql + " where keyid="+SellId
con.Execute strsql
msgErr="修改销售产品信息成功！"
end if
end if
Set rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_sell where keyid="+SellId
rs.Open strsql,con

Set pr_rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_produce "
pr_rs.Open strsql,con

Set client_rs=Server.CreateObject("ADODB.Recordset")
strsql="select * from xt_t_client "
client_rs.Open strsql,con

%>
<body>
<form name="form1" method="post" action="">
<input name="IsPostBack" type="hidden" value="PostBack">
<table width="100%" border="1" align="center">
<tr>
<td align="right">产品名称：</td>
<td ><select name="productid" id="productid">
<% do while not (pr_rs.EOF) %>
<option value="<%=trim(pr_rs("keyid")) %>"
<%if trim(pr_rs("keyid"))=trim(rs("productid")) then%>
selected <%end if%>><%=pr_rs("name")%></option>
<%pr_rs.MoveNext
loop
pr_rs.Close%>
</select><font color="red" >**</font></td>
</tr>
<tr>
<td align="right">销售日期：</td>
<td><input name="Producedate" type="text" id="Producedate" maxlength="10"
value="<%=trim(rs("producedate"))%>"></td>
</tr>
<tr>
<td align="right">销售数量：</td>
<td ><input name="Numbers" type="text" id="Numbers" maxlength="8"
value="<%=trim(rs("Numbers"))%>">
</td>
</tr>
<tr>
<td align="right">购买客户：</td>
<td ><select name="clientid" id="clientid">
<% do while not (client_rs.EOF) %>
<option value="<%=trim(client_rs("keyid")) %>"
<%if trim(client_rs("keyid"))=trim(rs("clientid")) then%>
selected <%end if%>><%=client_rs("name")%></option>
<%client_rs.MoveNext
loop
client_rs.Close%>
</select><font color="red" >**</font></td>
</tr>
<tr>
<td align="right">销售说明：</td>
<td><textarea name="Content" rows="4" style="width:100% ">
<%=trim(rs("content")) %></textarea></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td align="center"><input type="submit" name="Submit" value="更新"></td>
</tr>
<tr>
<td ><font color="red" ><%=msgErr %></font></td>
</tr>
</table>
<%rs.Close%>
</form>
</body>
</html>
loulou_ff 2006-05-30
  • 打赏
  • 举报
 回复
你可以在错误前面写Response.Write(你的sql)
Response.end 看看你的sql语句是否正确
itblog 2006-05-30
  • 打赏
  • 举报
 回复
错误压根就没有在你粘的这段代码里面~

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 ''0,address='东大街1号附8号',phone='028-87654321',remark=' ' where keyid=2' 中。
/ClientEdit.asp, 第 42 行

你看这个就知道了
把clientEdit.asp中的代码贴出来~
R_Kill 2006-05-30
  • 打赏
  • 举报
 回复
strsql =strsql + ",numbers="+Numbers
后面+”
aspgreener 2006-05-30
  • 打赏
  • 举报
 回复
strsql="update xt_t_Produce set "
strsql =strsql + "productid="+productid+""
strsql =strsql + ",selldate='"+ProduceName+"'"
strsql =strsql + ",numbers="+Numbers
strsql =strsql + ",clientid="+Clientid+",content='"+Content+"'"
strsql =strsql + " where keyid="+SellId
con.Execute strsql
clbaddd 2006-05-30
  • 打赏
  • 举报
 回复
把你的SQL语句打印出来贴出来看看
python怎么安装包-怎么在windows下安装python第三方包
python第三方包的windows安装文件exe格式， 这上面有很多python第三方包的二进制安装文件，包括32位和64位的。下载安装就ok了！这下面有很多python第三方包的二进制安装文件，包括32位和64位的。下载安装就ok了！包括了mysqldb,ldap等。Index by date:fionascikit-imagenetcdf4mercurialscikits.audiolabn...
pip离线安装wheel包 python2 python3离线安装mysqldb cryptography mysql-python第三方库
python27版本离线安装python-mysql版本 一：下载可执行文件 二：点击直接安装 三：或者https://www.lfd.uci.edu/~gohlke/pythonlibs/#mysql-python该目录下mysqlclient‑1.4.6‑cp27‑cp27m‑win32.whl安装包 然后执行 pip install --no-index --find-links="." mysqlclient‑1.4.6‑cp27‑cp27m‑win32.whl然后import MySQLdb即可
sudo pip install MySQLdb找不到该资源的原因
安装数据库第三方包，报错： Could not find a version that satisfies the requirement MySQLdb (from versions: )No matching distribution found for MySQLdb 将MySQLdb改成pyMySQL就OK啦：sudo pip installpyMySQL 原因MySQLdb不支持...
win8安装mysql5.7教程_安装mysql5.7.17 教程亲试 无误（win8）
MySQL是最流行的开源数据库之一，但在Python标准库中并没有集成MySQL接口程序，MySQLdb是一个第三方包，需独立下载并安装。Python连接MySQL的关键之处在于设置数据库连接，在连接成功之后，其实不管后端是何种数据库，对DB-API对象的属性和方法进行操作都是一样1 MySQL5.7.17安装教程http://jingyan.baidu.com/article/363872ec...
python virtualenv 需要使用系统的第三方包。
安装mysqldb包：yum install MySQL-python验证包的安装：import MySQLdb创建python虚拟环境并可以使用系统安装的第三方包virtualenv--system-site-packages venv 转载于:https://blog.51cto.com/hezun/1791035...
ASP

28,402

社区成员

356,940

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章