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
如何将RecordSet对象中的数据全部清除
最新推荐文章于 2025-11-20 16:45:52 发布
博客展示了使用ADODB记录集进行数据操作的代码。定义了记录集对象和整数变量,添加字段并打开记录集,增加两笔数据,然后将指针移到最后逆向删除每一行,最后显示记录集数量为0。
124

被折叠的 条评论
为什么被折叠?



