出错!BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录~

源码:PrivateSubCommand2_Click()DimdeleAsStringAdodc1.ConnectionString="Provider=Microso... 源码:
Private Sub Command2_Click()
Dim dele As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from TestTypeSet "

If Adodc1.Recordset.RecordCount > 0 Then
dele = MsgBox("确定删除吗?", vbYesNo + vbInformation, "系统提示")
If dele = vbYes Then
Adodc1.Recordset.Delete
Unload Me
Adodc1.Refresh
Else
End If
Else
MsgBox "数据库中没有记录要删除", , "系统提示"
End If
End Sub
错误指在 Adodc1.Recordset.Delete
展开
 我来答
  • 你的回答被采纳后将获得:
  • 系统奖励15(财富值+成长值)+难题奖励10(财富值+成长值)+提问者悬赏20(财富值+成长值)
ljl88900
2015-03-21 · TA获得超过2661个赞
知道大有可为答主
回答量:2197
采纳率:100%
帮助的人:2687万
展开全部
Private Sub Command2_Click()
Dim dele As String
dele = MsgBox("确定删除吗?", vbYesNo + vbInformation, "系统提示")
If dele = vbYes Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
Adodc1.RecordSource = "Delete from TestTypeSet "
Adodc1.Refresh
End If
End Sub
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
outsbmide
2015-03-21 · TA获得超过3975个赞
知道答主
回答量:166
采纳率:0%
帮助的人:28.8万
展开全部
因为只有当记录集不为空,也就是读到了记录时,才会把字段值输出来.否则的话是不能输出的.输出了就会报上面的错误.所以你在输出时加个判断是最是最后一条记录获没记录 if not recordset1.eof then 你的页面内容 else ...
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式