请教

Question

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连接,客户,静态

Answer 1

改成这样行吗？rst_gljde_b.Filter = "jx_dh =" & "'" & rst_xtglj_b!glj_dh & "'"
If rst_gljde_b.Recordcount>0 then rst_gljde_b.Delete

Answer 2

rst_gljde_b.Delete 当然行,加adAffectGroup就不行了,主要是一次删除多条记录

Answer 3

SQL的Delete语句如何删除RST中记录?(不是数据表的,还未写入)

Answer 4

我以前也遇到批量删除本地记录集的情况,
但是用这个参数好象不管用,后来用了笨办法,一条条删,希望能有更好的方法
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 =""