vba删除mysql表_利用VBA，把工作表中提供的数据在数据库表中逐一删除

大家好,我们今日继续讲解VBA数据库解决方案的第24讲内容：利用VBA，把工作表中提供的数据在数据表中删除。在上一讲中，我们讲了利用rsADO.addnew 和 rsADO.Update 语句实现在数据表添加记录的方法，今日我们讲解，如何在记录集中删除记录。也是在有重复记录的数据表中删除记录的方法，如果有重复的数据将一并删除。

实例：我们仍是利用之前的数据库中的数据进行处理，数据如下：

我们要把上面3月份的记录要全部删除，为什么要删除呢？或许是我们是录入错误吧，也或许是数据需要重新再确认，总之我们要删除这些已经录入的记录，好在我们在ECXEL表格中还有这些记录，需要按这些记录来删除数据表中的记录。也许在职场中的你很熟悉上述的场景吧。

下面是EXCEL工作表中还存在的记录：

下面我们就解决如何删除这些记录，代码如下：

Sub mynzCreateDataTable_2() ' 第24讲利用VBA把工作表中提供的数据在数据表中删除

Dim cnADO As New ADODB.Connection

Di