【分享成果，随喜正能量】因为没有，从不担心失去；因为想要，才会患得患失。其实，世界上没有什么真正属于你，我们也不过是个匆匆的过客，赤条条的来，终将一无所有的离开。人心不足蛇吞象，善意给错自损伤。你永远叫不醒一个装睡的人，也永远喂不饱一个不知感恩的灵魂。在这个世界上，没有一劳永逸、完美无缺的选择。你不可能同时拥有春花和秋月，不可能同时拥有硕果和繁花。你不可能所有的好处都是你的。你要学会权衡利弊，学会放弃一些什么，然后才可能得到些什么。你要学会接受命的残缺和悲哀，然后，心平气和。因为，这就是人

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

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

第二十四讲  把工作表中提供的数据在数据表中逐一删除

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

1  应用场景的具体分析

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

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

2  把工作表中提供的数据在数据表中删除的代码及代码解读

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

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

   Dim cnADO As New ADODB.Connection

   Dim rsADO As ADODB.Recordset

   Dim strPath, strSQL, strTable As String

     strPath = ThisWorkbook.Path & "\mydata2.accdb"

     strTable = "19年销售情况"

     cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

     strSQL = "SELECT * FROM " & strTable

     Set rsADO = New ADODB.Recordset

     rsADO.Open strSQL, cnADO, 1, 3

     '汇报给用户记录数

     MsgBox "删除前记录数为：" & rsADO.RecordCount

     Sheets("24").Select

     '删除记录

     t = 2

     Do While Cells(t, 1) <> ""

     GG = ""

     rsADO.MoveFirst

     For m = 1 To rsADO.RecordCount

      SC = ""

       For i = 0 To rsADO.Fields.Count - 1

         If rsADO.Fields(i) = Sheets("24").Cells(t, i + 1) Then

           SC = SC & "OK"

         Else

           SC = SC & "NOT"

         End If

      Next i

      If InStr(SC, "NOT") = 0 Then

        rsADO.Delete

        rsADO.Update

        GG = "OK"

      End If

      rsADO.MoveNext

     Next m

     If GG <> "OK" Then MsgBox "第" & t & "行数据没有找到，无法删除"

     t = t + 1

     Loop

   '汇报给用户最后的记录数

     MsgBox "删除后记录数为：" & rsADO.RecordCount

    rsADO.Close

    cnADO.Close

    Set rsADO = Nothing

    Set cnADO = Nothing

End Sub

部分代码截图：

代码解读：

1）:

  Dim cnADO As New ADODB.Connection

    Dim rsADO As ADODB.Recordset

    Dim strPath, strSQL, strTable As String

     strPath = ThisWorkbook.Path & "\mydata2.accdb"

     strTable = "19年销售情况"

     cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath

     strSQL = "SELECT * FROM " & strTable

     Set rsADO = New ADODB.Recordset

     rsADO.Open strSQL, cnADO, 1, 3

     '汇报给用户记录数

     MsgBox "删除前记录数为：" & rsADO.RecordCount

     Sheets("Sheet4").Select

仍是用前期绑定的方法建立ADO，打开连接和记录集

2)：

   t = 2

     Do While Cells(t, 1) <> ""

     rsADO.MoveFirst

     For m = 1 To rsADO.RecordCount

      SC = ""

      GG = ""

       For i = 0 To rsADO.Fields.Count - 1

         If rsADO.Fields(i) = Sheets("Sheet4").Cells(t, i + 1) Then

           SC = SC & "OK"

         Else

           SC = SC & "NOT"

         End If

      Next i

      If InStr(SC, "NOT") = 0 Then

        rsADO.Delete

        rsADO.Update

        GG = "OK"

      End If

      rsADO.MoveNext

     Next m

     If GG <> "OK" Then MsgBox "第" & t & "行数据没有找到，无法删除"

     t = t + 1

     Loop

上述代码中，用t记录了当前工作表的行数，一直循环到空值出现，然后，针对每一行的数据，在数据表中校验，如果完成相同，那么删除，如何判断呢，我们用了两个标识，一个是SC,如果每个值都相同，那么SC中不会出现“NOT”,在最后我们判断SC中如果没有“NOT”,那么我们删除，否则向下运行。而GG的标识则是提示是否有数据没有找到，如果没有找到，那么提示某行没有找到。

在删除数据的时候用了

rsADO.Delete

 rsADO.Update

这是删除某个数据常用的方法。

3）：

'汇报给用户最后的记录数

     MsgBox "删除后记录数为：" & rsADO.RecordCount

    rsADO.Close

    cnADO.Close

    Set rsADO = Nothing

    Set cnADO = Nothing

在最后提示给用户删除的结果并释放内存。

下面看我们程序的运行，首先会提示当前数据的数量：

如果没有找到数据，则有提示：

我们再次运行，会提示数据没有找到：

今日内容回向：

1 如何删除记录集中的数据？

2 如何根据工作表中提供的数据删除数据表中的数据？

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

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