一个网站程序,在添加新闻时出现错误
以下是错误提示:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
出现这种错误的原因是因为我把access连接字符串修改为"Driver={Micorsoft Access Driver ()};dbq=" & Server.Mappath(DbPath),而原来的连接字符串为"Provier=Microsoft.Jet.OLEDB.4.0;Data source=" & Server.Mappath(DbPath) 时则不会出现这种错误。看来这两种连接access数据库的方式还是有一定区别的。至少后一种连接方式在容错性上好一些,但很明显在规范上是不太正规的。
为了叙述得简单,我下面把这两种方式分别叫做provider连接和driver连接。
上述错误在修改新闻时却不会出现。我看了一下代码发现在执行添加时,有一个用Excute取得的记录集未进行关闭。我关闭了一下也无法正确执行。
于是我写了一段代码,又另外设计了一个简单的表格,发现这时两种连接方法可以添加进去,于是我又将这段代码中的表换回原来的,还是不可以执行。难道与表有关?
于是我开始仔细的研究表格,发现原表格有一个自动编号字段在程序中被赋值了。我记得自动编号是不可以被赋值的呀。于是我把那个表的自动编号一去,结果可以正常执行。
看来用Provider方式连接是可以对自动编号字段赋值的。
下面说一下另一个地方的区别。
我使用driver连接时,在频道设置时出现了一个Null值,但是实际上在数据库中是有值的,我看了一下这个字段的数据类型,是备注。那是不是说driver驱动对长的备注支持也不太好呢?不会吧,我那个新闻表中的新闻内容一定是备注的呀,应该不是这方面的原因。
是什么方面的原因呢?难道是因为他是位于另一个备注的后面?可是新闻表中也有两个备注并且内容备注也是位于简介备注的后面呀。这种怀疑也被排除。
是因为这个字段是有关键字的原因?我把这个字段值改为1,结果也是出错。
那是什么方面的原因呢?
干脆自己再写一个页面测试,测试代码如下
以下是测试代码:
复制代码 代码如下:
dim conn
set conn=server.createobject("adodb.recordset")
conn.open "driver={Microsoft access driver (*.mdb)};dbq=" & server.mappath("data/dd.mdb") 'driver连接方式
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data/dd.mdb") 'provider连接方式
set rs=conn.execute("select * from s_channel where channelID=11")
response.Write rs("UploadSetting")
rs.close
set rs =nothing
复制代码 代码如下:
if IsNull(rs("UploadSetting")) or rs("UploadSetting")="" then
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
else
UploadSetting=Split(rs("UploadSetting"),"@")
end if
复制代码 代码如下:
dim conn
set conn=server.createobject("adodb.recordset")
conn.open "driver={Microsoft access driver (*.mdb)};dbq=" & server.mappath("data/dd.mdb") 'driver连接方式
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data/dd.mdb") 'provider连接方式
set rs=conn.execute("select * from s_channel where channelID=11")
response.Write rs("UploadSetting")
if IsNull(Rs("UploadSetting")) or rs("UploadSetting")="" then
response.Write "dd"
else
response.Write rs("UploadSetting")
end if
rs.close
set rs =nothing
新闻热点
疑难解答