时实错误：3021 ，BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录

marywang1981 2013-12-09 09:51:44

怎么解决vb运行中的一个时实错误：3021 ，BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。感谢大家支持！程序如下：
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
Adodc2.RecordSource = "select * from kucunbiao where ylnumber='" & Adodc1.Recordset.Fields("ylnumber") & "'"
Adodc2.Refresh

If Adodc2.Recordset.Fields("amount") - Adodc1.Recordset.Fields("amount") < 0 Then
MsgBox ("编号" + Adodc1.Recordset.Fields("ylnumber") + "的商品库存不足")
Exit Sub
End If
Adodc1.Recordset.MoveNext
Loop

Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
Adodc2.RecordSource = "select * from kucunbiao where ylnumber='" & Adodc1.Recordset.Fields("ylnumber") & "'"
Adodc2.Refresh

Adodc2.Recordset.Fields("amount") = Adodc2.Recordset.Fields("amount") - Adodc1.Recordset.Fields("数量")
Adodc2.Recordset.Update
Adodc1.Recordset.MoveNext
Loop
这是商品出库程序，运行时在If Adodc2.Recordset.Fields("amount") - Adodc1.Recordset.Fields("amount") < 0 显示如题问题，请大家帮忙看看，多谢！

...全文

320 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

marywang1981 2013-12-12

打赏
举报

回复

多谢of123的帮助

marywang1981 2013-12-09

打赏
举报

回复

有人在吗？帮帮我吧！

of123 2013-12-09

打赏
举报

回复

... Adodc2.Refresh If Adodc2.Recordset.EOF Then MsgBox "No such record" Exit Sub End If If Adodc2.Recordset.Fields("amount") - Adodc1.Recordset.Fields("amount") < 0 Then ...

我们这时要做的就是在使用Recordset对象的moveNext 等方法之前先利用RecordsetCount属性判断一下数据库中的数据是否为空方法：代码如下: dim objRs as New Recordset dim objCn as New connection dim strSql as string objCn.ConnectionString=”fileDsn=student.dsn;User_Id=sa;PassWord=123″ objcn.open strSql=”SELECT * FROM Student_info” objRs.Open strSql ,objCn,

if rs.bof then 表示：当前指针的位置是在第一行记录之前 if rs.eof then 表示：当前指针的位置是在最后一行记录之后 if not rs.eof then 表示：当前指针的位置没有到达最后一条记录 if not rs.bof then 表示：当前指针的位置没有到达第一条记录－－－－－－－－－－－－－－－－－－－－－－－－－＃＃＃推荐使用下面两条 if not (rs.bof and rs.eof) then 表示：指针位于 RecordSet 的当中（并非是最后一条和第一条），说明一定有记录。 if rs.bof and rs.eof then 表示：没有任何记录

在这些天敲写和调试学生信息管理系统的时候，经常会用到EOF（Endof File）和BOF(Before of File)，稍加不注意查询我们的数据库会出错，那么这俩到底是何方神圣，是怎么用的，之间又有什么区别呢？　　一、认识　　BOF：指当前记录位置位于Recordset对象的第一个记录之前　　EOF：指当前记录位置位于Recordset对象的后一个记录之后　　这两个的属性值均返回布尔型：True和False，使用BOF 和 EOF 属性可确定 Recordset 对象是否包含记录，或者从一个记录移动到另一个记录时是否超出 Recordset 对象的限制。下表即是各

解决T3/T6打最新增量补丁后，提示本地版本高于服务器安装版本适用版本：T3/T6 1、解决了使用工具报EOF或BOF错误的问题 2、使用工具后，如果还不行，请尝试重启电脑 3、重启还不行，看一下是不是360之类的软件把update.exe给隔离了更新日期：2013-7-25

本文是在《玩转 Android MediaPlayer之视频预加载(优化)》基础上修复Http代理服务器(Http Proxy()透传的bug。前面几篇相关文章所用的代理服务器一个时间只能监听来自Mediaplayer的一个Request请求，但在实际项目开发过程中，发现有些支持m3u8格式Mediaplayer发出新的Request请求之前不会中断旧的Request请求，所以本文代码会加入多线程监听Request请求。

1,066

社区成员

6,496

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章