目光长远的名言:谁能帮我解决这个代码错误啊!先谢谢了?

来源:百度文库 编辑:高考问答 时间:2024/04/29 16:21:52
为什么出现下列错误?
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。
代码如下:
<%
dim names, sex, jg, whcd, zzmm, csyy, comname, byzk, address, yb
dim bdcc, web, phone1, phone2, lxr, email, note
names=trim(request.form("name"))
sex=trim(request.form("sex"))
jg=trim(request.form("jg"))
whcd=trim(request.form("whcd"))
zzmm=trim(request.form("zzmm"))
csyy=trim(request.form("csyy"))
comname=trim(request.form("comname"))
byzk=trim(request.form("btzk"))
address=trim(request.form("address"))
yb=trim(request.form("yb"))
bdcc=trim(request.form("bdcc"))
web=trim(request.form("web"))
phone1=trim(request.form("phone1"))
phone2=trim(request.form("phone2"))
lxr=trim(request.form("lxr"))
email=trim(request.form("email"))
note=trim(request.form("note"))
dim conn, ssql
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data/xiezhaohui.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
ssql="insert into xie(names, sex, jg, whcd, zzmm, csyy, comname, byzk, address, yb, bdcc, web, phone1, phone2, lxr, email, note) values( ' " & names & " ',' " & sex & " ',' " & jg & " ',' " & whcd & " ',' " & zzmm & " ',' " & csyy & " ',' " & comname & " ',' " & byzk & " ',' " & address & " ',' " & yb & " ',' " & bdcc & " ',' " & web & " ',' " & phone1 & " ',' " & phone2 & " ',' " & lxr & " ',' " & email & " ',' " & note & " ')"
conn.execute(ssql)
conn.close
set conn=nothing
%>

如果是插入一两个值的话可以这么写,但是在多值插入的时候不要这么写,这么写以后维护起来很麻烦,建议你用recordset 来实现插入功能.
将ssql="insert .....conn.execute(ssql)
换成这个,简单明了,
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from [xie] ",conn,1,3
rs.addnew
rs("names")=names
.....
rs("note")=note
rs.update
rs.close
set rs=nothing