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

蓝字关注，加微信NZ9668获资料信息

《VBA代码解决方案》系列书作者
头条百家平台 VBA资深创作者
_______________________________

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

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

下面我们就解决如何删除这些记录，代码如下：
Sub mynzCreateDataTable_2() ' 第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("Sheet4").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("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
'汇报给用户最后的记录数
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 如何根据工作表中提供的数据删除数据表中的数据？

_____________________________

觉得有启发，点个“在看”，转给朋友们
欢迎你“留言”，和作者直接交流

更多关联阅读