批量更改 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交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)