ADODB.Recordset error '800a0bcd'- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1269

會員總數：246203
討論主題：189774

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> ASP >> ADODB.Recordset error '800a0bcd'

[]

[我要回覆]

ADODB.Recordset error '800a0bcd'
價值 : 220 QP 點閱數:1601 回應數:7

樓主

Peter Ya

0	2
79	3

發送站內信

不知道怎麼搞得~網頁出現了以下字串
ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/news_tc.asp, line 13

至於13行的code

希望各位專家能幫我解答~謝謝

搜尋相關Tags的文章： [ ADODB ] , [ error ] , [ asp ] ,
本篇文章發表於2016-01-01 20:57

1樓回應香帥	你的第13行這樣有瑕疵，因為sql查詢後若無資料，就會發生主題上所說的錯誤請將第10行改為 If NOT RS.EOF THEN 第10-11行之間插入 RSnum=RS.Recordcount 第19-20行之間插入 End If 本篇文章回覆於2016-01-02 21:30 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應 Peter Ya	@香帥改完之後錯誤的確排除了..但是卻沒抓到資料。從後台編輯資料卻又出現另外一項錯誤本篇文章回覆於2016-01-03 12:44 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓作者回應 Peter Ya	圖片掛掉了重放XD 本篇文章回覆於2016-01-03 12:46 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應香帥	程式碼不要用圖片，請用小舖的程式碼標籤本篇文章回覆於2016-01-03 14:11 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓回應香帥	我不知您資料庫怎麼做的會拉不到資料，這要自己檢查名稱對不對請參考我10樓的程式碼去試看看 http://www.blueshop.com.tw/board/FUM200410061525290EW/BRD20140117105726OUX.html 本篇文章回覆於2016-01-03 14:17 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓作者回應 Peter Ya	您所列舉的程式碼為mdb我所使用的是dbf 本篇文章回覆於2016-01-03 15:25 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓最有價值解答香帥	做一個給您參考好了程式碼如下 <% Set Conn = CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft dBase Driver (.dbf)};" & "DBQ=" & "c:\ap\blueshop\ado\" Set rs = CreateObject("ADODB.Recordset") DB="mall_content.dbf" SQL = Request("SQL") If SQL = Empty Then SQL = "Select From mall_content.dbf" rs.Open SQL, conn, 3,3 If instr(ucase(SQL),"UPDATE ") THEN SQL = "Select * From mall_content.dbf" rs.Open SQL, conn, 3,3 END IF %> <HTML> <BODY bgcolor="#FFFFFF"> <FORM Action=TestSel2.asp Method=POST> SQL Command:<INPUT Type=Text Name=SQL Size = 60 Value="<%=SQL%>"><P> <INPUT Type=Submit Value="RunSQL"> </FORM> <% If Not (rs Is Nothing) Then %> <CENTER><HR><TABLE BORDER=1> <TR BGCOLOR=#00FFFF> <% ' Part I：輸出「抬頭名稱」 For i=0 to rs.Fields.Count-1 Response.Write "<TD>" & rs(i).Name & "</TD>" Next %> </TR> <% ' Part II：輸出資料表的「內容」 if Not rs.EOF then rs.MoveFirst ' 將目前資料錄移到第一筆 end if While Not rs.EOF ' 判斷是否過了最後一筆 Row = "<TR>" For i=0 to rs.Fields.Count-1 Row = Row & "<TD>" & rs(i) & "</TD>" Next Response.Write Row & "</TR>" rs.MoveNext ' 移到下一筆 Wend %> </TABLE></CENTER> <%Else%> <HR><FONT Color=Red>Select Command Error!</FONT> <%End If%> </BODY> </HTML> 測試網址在 http://ap.a168a.com/blueshop/ado/TestSel2.asp 您可以輸入 UPDATE mall_content.pdf SET NAME='john' WHERE NAME='marry'; 或 UPDATE mall_content.pdf SET NAME='marry' WHERE NAME='john'; 去測試大批更正NAME 本篇文章回覆於2016-01-04 02:36 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.

1樓回應香帥	你的第13行這樣有瑕疵，因為sql查詢後若無資料，就會發生主題上所說的錯誤請將第10行改為 If NOT RS.EOF THEN 第10-11行之間插入 RSnum=RS.Recordcount 第19-20行之間插入 End If 本篇文章回覆於2016-01-02 21:30 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓作者回應 Peter Ya	@香帥改完之後錯誤的確排除了..但是卻沒抓到資料。從後台編輯資料卻又出現另外一項錯誤本篇文章回覆於2016-01-03 12:44 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓作者回應 Peter Ya	圖片掛掉了重放XD 本篇文章回覆於2016-01-03 12:46 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
4樓回應香帥	程式碼不要用圖片，請用小舖的程式碼標籤本篇文章回覆於2016-01-03 14:11 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
5樓回應香帥	我不知您資料庫怎麼做的會拉不到資料，這要自己檢查名稱對不對請參考我10樓的程式碼去試看看 http://www.blueshop.com.tw/board/FUM200410061525290EW/BRD20140117105726OUX.html 本篇文章回覆於2016-01-03 14:17 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
6樓作者回應 Peter Ya	您所列舉的程式碼為mdb我所使用的是dbf 本篇文章回覆於2016-01-03 15:25 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
7樓最有價值解答香帥	做一個給您參考好了程式碼如下 <% Set Conn = CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft dBase Driver (.dbf)};" & "DBQ=" & "c:\ap\blueshop\ado\" Set rs = CreateObject("ADODB.Recordset") DB="mall_content.dbf" SQL = Request("SQL") If SQL = Empty Then SQL = "Select From mall_content.dbf" rs.Open SQL, conn, 3,3 If instr(ucase(SQL),"UPDATE ") THEN SQL = "Select * From mall_content.dbf" rs.Open SQL, conn, 3,3 END IF %> <HTML> <BODY bgcolor="#FFFFFF"> <FORM Action=TestSel2.asp Method=POST> SQL Command:<INPUT Type=Text Name=SQL Size = 60 Value="<%=SQL%>"><P> <INPUT Type=Submit Value="RunSQL"> </FORM> <% If Not (rs Is Nothing) Then %> <CENTER><HR><TABLE BORDER=1> <TR BGCOLOR=#00FFFF> <% ' Part I：輸出「抬頭名稱」 For i=0 to rs.Fields.Count-1 Response.Write "<TD>" & rs(i).Name & "</TD>" Next %> </TR> <% ' Part II：輸出資料表的「內容」 if Not rs.EOF then rs.MoveFirst ' 將目前資料錄移到第一筆 end if While Not rs.EOF ' 判斷是否過了最後一筆 Row = "<TR>" For i=0 to rs.Fields.Count-1 Row = Row & "<TD>" & rs(i) & "</TD>" Next Response.Write Row & "</TR>" rs.MoveNext ' 移到下一筆 Wend %> </TABLE></CENTER> <%Else%> <HR><FONT Color=Red>Select Command Error!</FONT> <%End If%> </BODY> </HTML> 測試網址在 http://ap.a168a.com/blueshop/ado/TestSel2.asp 您可以輸入 UPDATE mall_content.pdf SET NAME='john' WHERE NAME='marry'; 或 UPDATE mall_content.pdf SET NAME='marry' WHERE NAME='john'; 去測試大批更正NAME 本篇文章回覆於2016-01-04 02:36 == 簽名檔 == --未登入的會員無法查看對方簽名檔--