Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

批量更改 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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助