批量修改数据库中的特定记录

VBA语言专家 2021-12-19

455

【分享成果，随喜正能量】一个自信的人，不会把厉害的亲戚挂在嘴边，因为他知道自己不争气，就算别人帮忙也没用。内心真诚善良的人，不用刻意去研究为人处世，因为他的价值观与社会倡导的价值观是一致的。能保持稳定情绪的人，内心通常都很强大。

《VBA数据库解决方案》教程是我推出的第二套教程，目前已经是第一版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第30讲：批量修改数据库中的特定记录

第三十讲如何批量修改数据库中的特定记录数据

大家好，今日我们继续VBA数据库解决方案的第30讲：如何批量修改数据库中的特定记记录数据。在上一讲中，我们讲了批量编辑数据的方案，用到的是UPDATE方法，今日我们仍用此方法解决删除特定记录。这些记录是由于是特殊的，我们可以结合SQL语句来完成我们的需求。同时我们也可以把这些固定的需求转换为动态的需求，只要略加改正就可以了。

1 应用场景的具体分析

今日的实例；下面的工作表为数据库中员工信息表的记录，

我们要把其中部门是“一厂”“二厂”的记录修正为“三厂”，如何做到呢？

2 批量修改记录集中的某些特殊记录的代码及代码解读

我们先看代码,代码如下：

Sub mynz_30() '第30讲批量修改记录集中的某些特殊记录，从而达到快捷迅速

[详细代码见教程]

代码截图：

代码的解读：

strSQL = "UPDATE " & strTable & " SET 部门='三厂' WHERE 部门='一厂' OR 部门='二厂'"

cnADO.Execute strSQL

MsgBox "数据修改成功。", vbInformation, "数据修改"

在上述代码中，SQL语句的意义是将部门为部门='一厂' OR 部门='二厂' 的人员修改为部门='一厂'，然后Execute strSQL，执行SQL语句。

l注意点：在执行SQL预计前一定要先打开数据表，数据表如果是关闭的，将无法执行。

u如果的动态修改记录的方案是修改上面WHERE之后语句，让条件在工作表单元格中体现，然后在此语句中关联到单元格的内容即可实现可以动态的修正。

下面看我们今日代码的执行过程：点击第30讲代码运行按钮。

首先会显示当前记录数：

然后提示记录修改成功：

最后提示记录数：

回头我们再看看数据库中的记录,点击显示总记录数：

今日内容回向：

1 如何处理编辑特定记录？

2 上述方法还可以用之前讲过的哪个方法实现？

本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】听别人的道理，穿适合自己的鞋子。不要见鞋就穿，跑不远还硌脚。真正从道理中受益的人，会把道理跟自己的实际情况结合，不仅要理解内化，还要在实践中不断调整，记录反思，最终提炼形成自己的「工作生活行为指南」，并因此获得丰硕的回报。

文章转载自VBA语言专家，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论