批量更改 DAO 记录集
时 间:2022-01-22 09:10:37
作 者:杨雪 ID:42182 城市:南京
摘 要:创建表类型或记录集类型的 Recordset 对象后,可以更改、删除或添加新记录。 不能在快照类型或仅向前类型的 Recordset 对象中更改、删除或添加记录。
正 文:
在循环中执行的许多更改都可以通过使用 SQL 中的更新或删除查询来更有效地完成。
下面的示例创建一个 QueryDef 对象来更新 Employees 表,然后运行查询。
Dim dbsNorthwind As DAO.Database Dim qdfChangeTitles As DAO.QueryDef Set dbsNorthwind = CurrentDb Set qdfChangeTitles = dbsNorthwind.CreateQueryDef("") qdfChangeTitles.SQL = "Update Employees SET Title = " & _ "'Account Executive' Where Title = " & _ "'Sales Representative'" ' 调用查询. qdfChangeTitles.Execute dbFailOnError
您可以将本示例中的整个 SQL 字符串替换为存储的参数查询,在这种情况下,过程会提示用户输入参数值。 以下示例演示如何将上一个示例重写为存储参数查询。
Dim dbsNorthwind As DAO.Database Dim qdfChangeTitles As DAO.QueryDef Dim strSQLUpdate As String Dim strOld As String Dim strNew As String Set dbsNorthwind = CurrentDb strSQLUpdate = "PARAMETERS [Old Title] Text, [New Title] Text; " & _ "Update Employees SET Title = [New Title] Where " & _ "Title = [Old Title]" ' 创建未存储的 QueryDef 对象. Set qdfChangeTitles = dbsNorthwind.CreateQueryDef("", strSQLUpdate) ' 提示旧标题. strOld = InputBox("Enter old job title:") ' 提示新标题. strNew = InputBox("Enter new job title:") ' 设置参数. qdfChangeTitles.Parameters("Old Title") = strOld qdfChangeTitles.Parameters("New Title") = strNew '调用查询. qdfChangeTitles.Execute
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)