请教

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连接,客户,静态
...全文
85 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧