Deleting records in a recordset
Hey everyone, I'm trying to delete all the records in a table using a while loop. When I executed the following code it deletes two records (out of 300) and immediately encounters EOF and exits the loop. I'm using ado...and I can't figure out why this isn't working.
set rsPic = new ADODB.Recordset
rsPic.Open "SELECT * FROM [PIC]", adCnGLC, adOpenDynamic, adLockOptimistic, _
adCmdText
If rsPic.BOF <> true then
rsPic.MoveFirst
Do While (Not rsPic.EOF)
rsPic.Delete
rsPic.MoveNext
DoEvents
Loop
End If
Re: Deleting records in a recordset
What is the Do Events statement for?
Re: Deleting records in a recordset
What is the Do Events statement for?
Re: Deleting records in a recordset
To yield control back to VB so it can update the gui - and do whatever other processing it does.
Re: Deleting records in a recordset
WHy are you deleting in the loop? Why not to delete everything in 1 SQl
SQL = "DELETE FROM [PIC]"
Conn.Execute SQL
where Conn is your connection
Iouri Boutchkine
[email protected]