这段删除程序怎么改?
Private Sub CmdDelete_Click() '删除记录
Dim myval As String
myval = MsgBox("是否要删除该记录?", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.Movelast
End If
End Sub
运行的时候如果记录集中只有一条记录时候,运行这段删除程序就出现“BOF或EOF中有一个是真,或者当前的记录已被删除,所需操作要求一个当前的记录”的报错。
我想是因为已经删除了最后一条记录了,再往下移一条记录的话,EOF就为真,这时记录集为空,如果还用到MOVELAST,就会报错,因为已经没有记录了。你们说我理解的对吗?
我应该怎么该呢?
Dim myval As String
myval = MsgBox("是否要删除该记录?", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.Movelast
End If
End Sub
运行的时候如果记录集中只有一条记录时候,运行这段删除程序就出现“BOF或EOF中有一个是真,或者当前的记录已被删除,所需操作要求一个当前的记录”的报错。
我想是因为已经删除了最后一条记录了,再往下移一条记录的话,EOF就为真,这时记录集为空,如果还用到MOVELAST,就会报错,因为已经没有记录了。你们说我理解的对吗?
我应该怎么该呢?
...全文
相关推荐
c#.net中的删除程序
### C#.NET中的删除程序知识点解析#### 一、引言在软件开发过程中,对数据库的操作是非常重要的一个环节,其中包括了数据的增删改查等基本操作。
自动化数据库巡检脚本:Oracle与MySQL优化工具
Shell 脚本是使用 shell 程序语言编写的文本文件,它可以在类Unix操作系统的shell环境中执行一系列命令来自动化完成任务。Shell脚本具有灵活、方便、易于编写和修改的特点,是数据库自动化管理中的重要工具之一。通过编写shell脚本,可以将多个复杂的命令和操作步骤集中管理,简化重复操作,提高工作效率。数据库中的表空间(Tablespace)是数据库的逻辑存储单元,它允许数据库管理员(DBA)更细致地控制数据的物理存储和管理。
【Oracle】Oracle 巡检脚本(自动化)
【代码】Oracle 巡检脚本(自动化)
C#简单改键工具源码(新)
通过阅读和理解这段代码,开发者不仅可以提升C#编程技巧,还能深入理解Windows系统级别的键盘交互机制。
京东改代码
当选择民生银行作为充值渠道时,会有一个跳转过程,并在跳转后的页面中出现一段代码,这段代码可能与银行接口有关,用于识别处理来自不同银行的支付请求。


数据库(包含打印,安装,报表)
