ADODB.Field '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前

ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个~

查看 rs.open 下边 是不是存在 if rs.eof then 这样的东西~~
因为你打开数据库的时候，并没有判断有没有数据，而是直接就默认它存在数据

当他没有数据的时候，自然会出错了~

那个sql没有检索出来数据。
判断一下：
if rs.bof and rs.eof then
...没有数据
else
end if

在读取数据时一般都要先判断是否为空数据
if rs.eof then
这里执行数据为空时的操作
else
这里执行数据读取操作
end if
注意：在循环读取数据时应用到rs.movenext得注意，如果已经到最后一条记录时再向下移动指针就会是空数据，会报错，请在循环处加上not rs.eof或者在movenext 前加上判断if rs.eof then break或者if rs.eof then exit for 退出循环

修正后的代码：
<%
set conn = server.CreateObject("adodb.connection")
conn.Open "driver={microsoft access driver (*.mdb)}; dbq=" & server.MapPath("ewuyi.mdb")

if Len(Trim(Request("id")))=0 Then '返回目标页码的判断
page=1
Else
if isnumeric(Trim(Request("id")))=false then
page=1
else
page=CInt(Trim(Request("id")))
end if
End if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from mail"
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize=1
rs.AbsolutePage=page
for k=1 to rs.PageSize
email=rs("email")
name=rs("user")

rec=""&page&"--->"&email&"--->"&name&""
Response.Write "<font color='blue'>" & rec & "</font><br>"
rs.movenext
if rs.eof then exit for
next
end if
%>
<meta http-equiv="refresh" content="5;URL=qunmail.asp?id=<%=page+1%>">

---

新巴尔虎右旗15772021642： ADODB.Field 错误 '800a0bcd' - ？
熊秀绪健： 你应该已经解决了把判断语句 where 后面有一个为flase 找不到记录解决办法,数据库添加符合条件的记录还有就是你的这个办法if not rs.eof then…………end if

新巴尔虎右旗15772021642： Delphi TreeView 使用方法.连接access数据库 - ？
熊秀绪健： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, DB, ADODB, Mask, DBCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; Button2: ...

新巴尔虎右旗15772021642： vb6.0中进行编程将TXT内容转成ACCESS的mdb怎么弄? - ？
熊秀绪健： 创建mdb只用ADO还挺麻烦的,一般使用ADOX对象,使用以下方法,成功后用ADO对象打开.用后面的方法写入,不过你的分隔符号,的用＂:＂及空格两种区分.字段也的相应修改.Dim cat As New ADOX.Catalog cat.Create ＂Provider=...

新巴尔虎右旗15772021642： asp 列求和 - ？
熊秀绪健： rs.movenext前加上Sum=sum+Rs(＂Links_ID＂) 金额合计<%=sum%>

新巴尔虎右旗15772021642： ASP中单引号如何处理? - ？
熊秀绪健： 你可以用＂＂把单引号包起来.或者也可以用chr(39)来代替单引号.

新巴尔虎右旗15772021642： C#treeview控件动态加载ACCESS数据库的问题(在Windows应用程序中使用) 求完整的C#代码 - ？
熊秀绪健： 看了一下,这个比较适合你.这是完整代码 private DataSet ds; private SqlDataAdapter sqlDataAdapter1; private int maxnodeid; private void Form1_Load(object sender, System.EventArgs e) { string strconn=ConfigurationSettings.AppSettings[＂...

新巴尔虎右旗15772021642： mysql如何删除数据库中所有数据但是要保留表 - ？
熊秀绪健： 删除的办法是执行truncat方法,只是不需要每次手动的输入truncate命令进行删除. 通过sql命令的方式生成所有的truncate语句并写入到.sql脚本文件中,然后执行脚本即可完成删除操作,并且保留了表结构.生成truncate命令的sql语句为: ...

新巴尔虎右旗15772021642： access vba 一个sub多次使用sql - ？
熊秀绪健： 1)sql2 = ＂select last(成本单价) from RM_橱柜分厂材料成本2015 where 材料类别 = '＂ & Combo0.Value & ＂'＂ data.Open sql1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 这里也是sql1么?似乎应改为sql2吧2)关了sql1重...

新巴尔虎右旗15772021642： 判断access表是否存在,不存在就创建表 - ？
熊秀绪健： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51Public Function TableExists(DatabaseName As String, _TableName As String) As Boolean...

新巴尔虎右旗15772021642： Microsoft VBScript 编译器错误 '800a03ea' 语法错误 - ？
熊秀绪健： CreateObject(＂CDO.Message＂) 这是IIS6以上版本的写法,IIS6以下的要用 Server.CreateObject