UC知道ACCESS中使用ADO 的死循环
来源：百度知道 编辑：UC知道 时间：2024/05/21 09:56:44
Private Sub 删除记录_Click()
On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set conn = CreateObject("ADODB.Connection")
Set rd = CreateObject("ADODB.Recordset")
conn.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = D:\DGQA(Access)\txt.mdb"
rd.Open "SELECT * FROM po", objconn, adOpenStatic, adLockOptimistic
Do While Not rd.EOF
rd.Find "po = '4031770'", 1, adSearchForward
rd.Delete
Loop
rd.Update
rd.Close
conn.Close
End Sub
以上会死循环,如何解决.请帮解答下
或用什么方法也可以在数据中删除所有po = '4031770'记录.
On Error Resume Next
Const adOpenStatic = 3
Const adLockOptimistic = 3
Set conn = CreateObject("ADODB.Connection")
Set rd = CreateObject("ADODB.Recordset")
conn.Open _
"Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = D:\DGQA(Access)\txt.mdb"
rd.Open "SELECT * FROM po", objconn, adOpenStatic, adLockOptimistic
Do While Not rd.EOF
rd.Find "po = '4031770'", 1, adSearchForward
rd.Delete
Loop
rd.Update
rd.Close
conn.Close
End Sub
以上会死循环,如何解决.请帮解答下
或用什么方法也可以在数据中删除所有po = '4031770'记录.
Do While Not rd.EOF
rd.Find "po = '4031770'", 1, adSearchForward
rd.Delete
rd.MoveNext ' 我记得是这个..向下游标...你最好查下手的..
Loop
P.S.用RS做删除没做过..不知道是不是内存游标有变化~
说清楚点啊