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%>">
电影《木乃伊》
其他演出的作品还有与文生培瑞兹一同演出的《碧海奇缘》、和约瑟夫·费恩斯的哥哥,《英伦情人》的拉尔夫·费恩斯合作的《阳光照耀》、和班·阿佛来克共同演出的《Going Allthe Way》,以及和裘德·洛合作的战争巨片《兵临城下》,她在片中饰演万绿丛中一点红的勇敢女大兵。虽然瑞切尔·薇兹曾和这么多知名演员合作过,...
熊秀绪健: 你应该已经解决了把判断语句 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