导航整个 DAO 记录集
时 间:2021-12-17 19:43:02
作 者:杨雪 ID:42182 城市:南京
摘 要:导航整个 DAO 记录集示例。
正 文:
Recordset 对象通常具有当前位置,通常位于记录处。 引用 Recordset 中的字段时,将从当前位置的记录中获取值,该记录称为当前记录。 但是,当前位置也可以是紧靠 Recordset 中第一条记录之前的位置,或紧靠最后一条记录之后的位置。 在某些情况下,当前位置未定义。
可以使用以下 Move 方法循环浏览 Recordset 中的记录:
MoveFirst 方法用于移动到第一条记录。
MoveLast 方法用于移动到最后一个记录。
MoveNext 方法用于移动到下一个记录。
MovePrevious 方法用于移动到上一个记录。
Move 方法用于向前或向后移动您在其语法中指定的记录数。
可以对表类型、动态集类型和快照类型的 Recordset 对象使用上述方法中的任何一个。 在仅向前类型的 Recordset 对象上,您只能使用 MoveNext 和 Move 方法。 如果在仅向前类型 Recordset 上使用 Move 方法,则指定要移动的行数的参数必须是正整数。
以下代码示例在包含所有记录(这些记录在 ReportsTo 字段中具有 Null 值)的 Employees 表上打开 Recordset 对象。 函数随后将更新记录以指明这些员工是临时员工。 对于 Recordset 中的每个记录,该示例都会更改 Title 和 Notes 字段,并使用 Update 方法保存更改。 该示例使用 MoveNext 方法移动到下一个记录。
Sub UpdateEmployees() Dim dbsNorthwind As DAO.Database Dim rstEmployees As DAO.Recordset Dim strSQL As String Dim intI As Integer On Error GoTo ErrorHandler Set dbsNorthwind = CurrentDb ' 在employee表中的所有记录上打开一个记录集 ' ReportsTo字段中的空值 strSQL = "Select * FROM Employees Where ReportsTo IS NULL" Set rstEmployees = dbsNorthwind.OpenRecordset(strSQL, dbOpenDynaset) '如果记录集为空,则退出 If rstEmployees.EOF Then Exit Sub intI = 1 With rstEmployees Do Until .EOF .Edit ![ReportsTo] = 5 ![Title] = "Temporary" ![Notes] = rstEmployees![Notes] & "Temp #" & intI .Update .MoveNext intI = intI + 1 Loop End With RstEmployees.Close dbsNorthwind.Close Set rstEmployees = Nothing Set dbsNorthwind = Nothing Exit Sub ErrorHandler: MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description End Sub
备 注:
上一个示例仅用于阐明 Update 和 MoveNext 方法。 为了获得最佳性能,建议使用 SQL Update 查询执行此批量操作。
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)