通过表单修改数据库表的数据问题
通过表单来修改数据库中的数据,提交之后竟然没有改变!
是不是跟表字段名称用中文命名有关系啊??
问题点数：0、回复次数：9Top
1 楼bluemoon0001（小天--追梦浪子）回复于 2005-03-03 09:50:37 得分 0
代码贴出来看一下，与用中文应该没有关系。Top
2 楼jianhuang（小皇）回复于 2005-03-03 10:21:22 得分 0
帮我看看下面的代码有没错
<%
dim II
II=request("id")
dim exec
dim zzsrcdj
dim a1,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16
a1=request("日期")
a2=request("转入公猪")
a3=request("转入母猪")
a4=request("转入阉公猪")
a5=request("死亡公猪")
a6=request("死亡母猪")
a7=request("死亡阉公猪")
a8=request("消毒卡")
a9=request("消毒猪舍")
a10=request("饲料1")
a11=request("饲料2")
a12=request("气候温度")
a13=request("存栏纯母猪总数")
a14=request("存栏LY母猪总数")
a15=request("存栏纯公猪总数")
a16=request("存栏阉公猪总数")
set zzsrcdj=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("datebase\zhu.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
exec="update 中猪舍日常登记表 set 转入公猪='"&a2&"',饲料1='"&a10&"',饲料2='"&a11&"' where id="+II
zzsrcdj.Open exec,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('记录修改成功！');"&"window.location.href = 'zzsrc.asp'"&" </script>"
set zzsrcdj=nothing
%>
Top
3 楼jianhuang（小皇）回复于 2005-03-03 10:21:52 得分 0
在线Top
4 楼bigluckyfox（幸运狐狸）回复于 2005-03-03 10:47:23 得分 0
你把从表单接收过来的变量在该页面输出一下看看是否能正确输出Top
5 楼bluemoon0001（小天--追梦浪子）回复于 2005-03-03 12:13:06 得分 0
表字段用中文没有关系，你传递参数也用中文就搞不清了，你还是打印一下你接收过来的有没有值，或是看一下数据库文件能不能更新，或是你更新的是不是同一个数据库文件。Top
6 楼l_0117（笑看山河）回复于 2005-03-03 12:19:58 得分 0
response.write "update 中猪舍日常登记表 set 转入公猪='"&a2&"',饲料1='"&a10&"',饲料2='"&a11&"' where id="+II
看看会显示什么？Top
7 楼jianhuang（小皇）回复于 2005-03-03 13:01:47 得分 0
传递参数已经改过来了
现在看看
<%@ Language=VBScript %>
<%
dim exec
dim zzsrcdj
dim a1,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16
a1=request("rq")
a2=request("zrgz")
a3=request("zrmz")
a4=request("zrygz")
a5=request("swgz")
a6=request("swmz")
a7=request("swygz")
a8=request("xdk")
a9=request("xdzs")
a10=request("sl1")
a11=request("sl2")
a12=request("qhwd")
a13=request("clcmz")
a14=request("clLYmz")
a15=request("clcgz")
a16=request("clygz")
set zzsrcdj=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("datebase\zhu.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
exec="select * from 中猪舍日常登记表 where 日期='" & a1 & "'"
zzsrcdj.Open exec,conn,1,1
if zzsrcdj.EOF then
exec="insert into 中猪舍日常登记表(日期，转入公猪，转入母猪，转入阉公猪，死亡公猪，死亡母猪，死亡阉公猪，消毒卡，消毒猪舍，饲料1，饲料2，气候温度，存栏纯母猪总数，存栏LY母猪总数，存栏纯公猪总数，存栏阉公猪总数) values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"','"&a6&"','"&a7&"','"&a8&"','"&a9&"','"&a10&"','"&a11&"','"&a12&"','"&a13&"','"&a14&"','"&a15&"','"&a16&"',)"
Response.Write "添加记录成功！"
Response.Redirect "main.asp"
else
Response.Write "该日期已经存在记录!"
end if
%>
Top
8 楼jianhuang（小皇）回复于 2005-03-03 13:03:41 得分 0
浏览器错误提示
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/zhu/recordsave.asp, 第 25 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
网页：
POST 173 ??? /zhu/recordsave.asp
POST Data:
rq=2005-03-30&zrgz=12&zrmz=123&zrygz=123&swgz=&wsmz=&swygz=&xdk=&xdzs=&sl1=&sl2=&qhwd=&clcmz=&clLYmz=&ckcgz=&%B4%E6%C0%B8%D1%CB%B9%AB%D6%ED%D7%DC%CA%FD=&button2=%CC%E1%BD%BBTop
9 楼jianhuang（小皇）回复于 2005-03-03 13:04:53 得分 0
这句有问题
zzsrcdj.Open exec,conn,1,1
Top
