Dim objRS As ADODB.Recordset
Dim i As Integer
Set objRS = New ADODB.Recordset
''''添加一笔记录
objRS.Fields.Append "col", adVarChar, 10
''''打开记录集
objRS.Open
''''增加两笔数据
objRS.AddNew "col", "Row1"
objRS.AddNew "col", "Row2"
''''将指针移动到记录集最后,逆向删除每一行
objRS.MoveLast
For i = 0 To objRS.RecordCount - 1
''''删除当前行
objRS.Delete adAffectCurrent
''''向前移动指针
objRS.MovePrevious
Next
MsgBox objRS.RecordCount ''''Will be 0
来源:博远电子(软件定制),如涉及版权问题请与我们联系。
TAG
软件定制,软件开发,瀚森HANSEN