28,407
社区成员
发帖
与我相关
我的任务
分享问遍整个动网都没人回答的问题－抱一线希望！
写入数据库遇到的怪事！
向数据库提交数据：程序运行不报错，但是数据库里根本没有增加数据！
字段也没有错，路径没有错，权限也对，就是写不进数据库！
代码：
<%
Set Conn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("job.mdb")
If Err.Number <> 0 Then
Response.write "数据库链接出错!"
Response.End()
End if
'id_name="dffsadfsdfsa"
dim strsql
strsql="INSERT INTO job(cname)valueS ('写入测试')"
Conn.execute(strsql)
'response.write strsql
%>
写入成功！
上面这段代码是在本机上运行的！
同样的代码放在一个免费空间上就可以，为什么啊？？？？？
向数据库提交数据：程序运行不报错，但是数据库里根本没有增加数据！
字段也没有错，路径没有错，权限也对，就是写不进数据库！
代码：
<%
Set Conn = Server.CreateObject("ADODB.Connection")
On Error Resume Next
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("job.mdb")
If Err.Number <> 0 Then
Response.write "数据库链接出错!"
Response.End()
End if
'id_name="dffsadfsdfsa"
dim strsql
strsql="INSERT INTO job(cname)valueS ('写入测试')"
Conn.execute(strsql)
'response.write strsql
%>
写入成功！
上面这段代码是在本机上运行的！
同样的代码放在一个免费空间上就可以，为什么啊？？？？？
...全文
请发表友善的回复…
发表回复
ljupin 2003-12-05
- 打赏
- 举报
最后一贴了:)该去睡了,呵呵
我只能建议你把这篇贴子从头到尾好好看一遍,可能出现的问题大概都在里面,仔细检查,希望明天来了,你告诉我问题解决了:)
我只能建议你把这篇贴子从头到尾好好看一遍,可能出现的问题大概都在里面,仔细检查,希望明天来了,你告诉我问题解决了:)
dancecat110 2003-12-05
- 打赏
- 举报
楼上哥们，我也是没办法啊，我做了一个很大的网站，我想在本机上测试完后再放上去，要是现在就一点一点的往免费空间上传我得做到什么时候啊！
ljupin 2003-12-04
- 打赏
- 举报
晕死,你说的哪跟哪啊?
你不是说在本机上可以,上传到免费空间上就不行了吗?那你今天装个MDAC2.8有个P用,那是你自己的机子!
唉,懒的说了:)
你不是说在本机上可以,上传到免费空间上就不行了吗?那你今天装个MDAC2.8有个P用,那是你自己的机子!
唉,懒的说了:)
dancecat110 2003-12-04
- 打赏
- 举报
我今天早上刚装的一个MDAC 28.0 重启后还是不行！
ljupin 2003-12-04
- 打赏
- 举报
SQL没错的话,除了服务器不支持ACCESS操作外,就是MDAC版本太低,请改用低版本的连接,否则我没招了:)
dancecat110 2003-12-04
- 打赏
- 举报
TO:ljupin(无情刀) 加上空格还是说Conn.execute(strsql) 这一行有错误
ljupin 2003-12-04
- 打赏
- 举报
晕,下面写法复制过去试试
strsql="INSERT INTO job (cname) valueS ('写入测试')"
请确保SQL没错,似乎少了空格
strsql="INSERT INTO job (cname) valueS ('写入测试')"
请确保SQL没错,似乎少了空格
dancecat110 2003-12-04
- 打赏
- 举报
用了alexzhang00(三角猫(sjcatsoft)) 这位朋友的代码
set rs = server.Createobject("adodb.recordset")
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
后提示：
错误类型：
Microsoft JET Database Engine (0x80040E09)
/book/com_register2.asp, 第 7 行
就是rs.addnew这一行错误！
set rs = server.Createobject("adodb.recordset")
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
后提示：
错误类型：
Microsoft JET Database Engine (0x80040E09)
/book/com_register2.asp, 第 7 行
就是rs.addnew这一行错误！
DeltaCat 2003-12-04
- 打赏
- 举报
set rs = server.Createobject("adodb.recordset")
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
上面的代码报什么错？
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
上面的代码报什么错？
dancecat110 2003-12-04
- 打赏
- 举报
注释掉On Error Resume Next以后
提示：
错误类型：
Microsoft JET Database Engine (0x80004005)
/book/com_register2.asp, 第 12 行
也就是Conn.execute(strsql) 这一行
提示：
错误类型：
Microsoft JET Database Engine (0x80004005)
/book/com_register2.asp, 第 12 行
也就是Conn.execute(strsql) 这一行
ljupin 2003-12-04
- 打赏
- 举报
算了,再简单一点,你传个探针大家看看
dancecat110 2003-12-04
- 打赏
- 举报
没有错误：
执行结果为：
http://test.63sky.com/test/com_register2.asp
但是数据库里就是不见有数据写入
执行结果为：
http://test.63sky.com/test/com_register2.asp
但是数据库里就是不见有数据写入
dick8125 2003-12-04
- 打赏
- 举报
On Error Resume Next
你加了这个当然不报错
你加了这个当然不报错
ljupin 2003-12-04
- 打赏
- 举报
如果上传到空间后,写入信息而实际数据库没有写入,说明数据库名有写权限
否则注释掉On Error Resume Next,看看出错信息
否则注释掉On Error Resume Next,看看出错信息
DeltaCat 2003-12-04
- 打赏
- 举报
错误信息？
dancecat110 2003-12-04
- 打赏
- 举报
用下面的代码运行不成功！！
set rs = server.Createobject("adodb.recordset")
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
另： 我的MDAC是刚下的最新版本！
set rs = server.Createobject("adodb.recordset")
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
另： 我的MDAC是刚下的最新版本！
DeltaCat 2003-12-04
- 打赏
- 举报
set rs = server.Createobject("adodb.recordset")
rs.open "job",conn,3,2,2
rs.addnew
rs("cname") = "测试"
rs.update
rs.close
上面的代码执行是否成功？
DeltaCat 2003-12-04
- 打赏
- 举报
你的MDAC版本多少？
DeltaCat 2003-12-04
- 打赏
- 举报
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'On Error Resume Next
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("job.mdb")
'If Err.Number <> 0 Then
'Response.write "数据库链接出错!"
'Response.End()
'End if
'id_name="dffsadfsdfsa"
dim strsql
strsql="INSERT INTO job(cname)values('写入测试')"
Conn.execute(strsql)
'response.write strsql
%>
Set Conn = Server.CreateObject("ADODB.Connection")
'On Error Resume Next
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("job.mdb")
'If Err.Number <> 0 Then
'Response.write "数据库链接出错!"
'Response.End()
'End if
'id_name="dffsadfsdfsa"
dim strsql
strsql="INSERT INTO job(cname)values('写入测试')"
Conn.execute(strsql)
'response.write strsql
%>
