| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 743 人关注过本帖
标题:[求助]删除记录时,删到最后一条出现错误?
只看楼主 加入收藏
llijin_726
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2005-12-9
收藏
 问题点数:0 回复次数:5 
[求助]删除记录时,删到最后一条出现错误?

当程序正常执行删除操作时,只要记录中还有记录就没有问题,但是一旦删的一条数据也没有是就会出现如下错误:
实时错误'3021':
BOF或EOF中有一个是"真",或者当前的记录已被删除,所需的操作需要一个当前的记录.
我用的如下代码:
Private Sub cmdDelete_Click()
Dim ts As Integer
ts = MsgBox("是否删除当前记录?", vbYesNo, "删除记录")
If ts = vbYes Then

With Adodc1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast   错误指在红字的地方
End With
End If
End Sub

请大家说说该怎么改?谢谢了

搜索更多相关主题的帖子: 记录 删除 
2006-02-16 23:06
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 
都没有记录了你还movelast,
Private Sub cmdDelete_Click()
Dim ts As Integer
ts = MsgBox("是否删除当前记录?", vbYesNo, "删除记录")
If ts = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
'If .EOF Then .MoveLast   错误指在红字的地方
If .Eof = True then
MsgBox "记录已为空",vbOkOnly + vbInformation,"提示"
Exit Sub
End If
End With
End If
End Sub

爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-02-16 23:44
llijin_726
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2005-12-9
收藏
得分:0 
谢谢楼上的
但是有一个问题啊,如果我直接删除的是最后一条记录,而且前面还有记录,那它仍将提示我"记录已为空",这样就是错误的了!
2006-02-17 00:24
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
收藏
得分:0 
那你在加一个判断啊
Private Sub cmdDelete_Click()
Dim ts As Integer
ts = MsgBox("是否删除当前记录?", vbYesNo, "删除记录")
If ts = vbYes Then
With Adodc1.Recordset
.Delete
.MoveNext
'If .EOF Then .MoveLast   错误指在红字的地方
If .Eof = True then
If .RecordsetCount = 0 then
MsgBox "记录已为空",vbOkOnly + vbInformation,"提示"
Exit Sub
Else
.MovePrevious
End If

End If
End With
End If
End Sub

如果删除的记录是首记录的话,也用类似的语句判断就可以了,如果需要判断是移动到首记录还是尾记录的话你可以组合起来,具体怎样做你先自己想想先哦

爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-02-17 10:11
llijin_726
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2005-12-9
收藏
得分:0 
谢谢了,很有收获啊!呵呵
2006-02-17 15:31
我爱VB
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-11-28
收藏
得分:0 
不用那么复杂,直接给个错误捕捉不就得了?
On Error Resume Next
2007-05-11 06:19
快速回复:[求助]删除记录时,删到最后一条出现错误?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031424 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved