已有23人关注
只能删除首记录,其它均无法删除
发表在VB答疑区 2017-04-06
是否精华
版块置顶:

VB6.0  与access数据库,只能删除首记录,其它均无法删除.

Private Sub cmdDelete_Click() 'cmdDelete 删除按钮,单击它执行下面代码

    x = MsgBox("确实要删除当前记录吗?", vbYesNo + vbQuestion, "确认")

    If x = vbYes Then

        If Adodc1.Recordset.RecordCount > 0 Then '记录集为空时,不删除与更新记录集

            Adodc1.Recordset.Delete        '删除记录

            Adodc1.Recordset.Update        '更新数据表

        End If

    End If

    Exit Sub          


分享到:
精彩评论 3
yksjb
学分:26 LV2
2017-04-06
沙发

出错后,表的左侧那个小三角也没有了


yksjb
学分:26 LV2
2017-04-06
板凳

问题补充说明:增加记录、 修改记录、 浏览记录,均正常无问题。

淡.印象
学分:323 LV5
TA的每日心情
学习Python
2020-11-23 22:17:24
2017-05-02
地板

读者你好:

 

 请问这个是例子是哪本书的哪个实例啊?Adodc1.Recordset.Delete 删除的是表格中指定的记录,如果没有指定记录删除就会出错。

首页上一页 1 下一页尾页 3 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照