一個網站程序，在添加新聞時出現錯誤 以下是錯誤提示： 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
