请教

bjbs_vb 2004-08-31 11:09:19
yn = MsgBox("确定要删除'" & RTrim(rst_xtglj_b!mc) & " '吗", vbYesNo)
If yn = vbYes Then
rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
rst_gljde_b.Delete adAffectGroup
End If

执行以上命令,错误提示"此种状态不能这样操作"
我不知是什么原因,请指教.
ADO连接,客户,静态
...全文
59 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bjbs_vb 2004-09-01
rst_gljde_b.Delete 当然行,加adAffectGroup就不行了,主要是一次删除多条记录
回复
bjbs_vb 2004-09-01
只能这样了,谢谢你,不知还有没有其他方法
回复
阿泰 2004-09-01
我以前也遇到批量删除本地记录集的情况,
但是用这个参数好象不管用,后来用了笨办法,一条条删,希望能有更好的方法
rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
If rst_gljde_b.Recordcount>0 then
rst_gljde_b.MoveFirst
DO While not rst_gljde_b.EOF
rst_gljde_b.Delete
rst_gljde_b.MoveNext
Loop
End If
rst_gljde_b.Filter =""
回复
bjbs_vb 2004-09-01
SQL的Delete语句如何删除RST中记录?(不是数据表的,还未写入)
回复
RUKYO 2004-09-01
那就用SQL的Delete语句
回复
阿泰 2004-08-31
改成这样行吗?

rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
If rst_gljde_b.Recordcount>0 then rst_gljde_b.Delete
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-31 11:09
社区公告
暂无公告