![97f46b28543121e3dedd3c6102443f3f.png](https://i-blog.csdnimg.cn/blog_migrate/373c4a03423691b605cbba02fe7f3cd5.png)
大家好,我们今日继续讲解VBA数据库解决方案的第24讲内容:利用VBA,把工作表中提供的数据在数据表中删除。在上一讲中,我们讲了利用rsADO.addnew 和 rsADO.Update 语句实现在数据表添加记录的方法,今日我们讲解,如何在记录集中删除记录。也是在有重复记录的数据表中删除记录的方法,如果有重复的数据将一并删除。
实例:我们仍是利用之前的数据库中的数据进行处理,数据如下:
![da937c460d0087863ffb4f4d19c588a7.png](https://i-blog.csdnimg.cn/blog_migrate/33cff8ac899f534c9adbbe91bea025bf.jpeg)
我们要把上面3月份的记录要全部删除,为什么要删除呢?或许是我们是录入错误吧,也或许是数据需要重新再确认,总之我们要删除这些已经录入的记录,好在我们在ECXEL表格中还有这些记录,需要按这些记录来删除数据表中的记录。也许在职场中的你很熟悉上述的场景吧。
下面是EXCEL工作表中还存在的记录:
![213ef6b1aad3274ac7545c7b523298b8.png](https://i-blog.csdnimg.cn/blog_migrate/8c95dd3acdbad5238cbc4cd7fcc477ec.jpeg)
下面我们就解决如何删除这些记录,代码如下:
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
代码截图:
![55990f869b65c425290207981acbcf94.png](https://i-blog.csdnimg.cn/blog_migrate/7bd364cdc9b5b280cc371f7b1d355695.jpeg)
![c8963dc7be23fd4186ec9dd6b2dfd89f.png](https://i-blog.csdnimg.cn/blog_migrate/302bf5aa7569f3035d7ca178e2724c2f.jpeg)
代码讲解:
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
在最后提示给用户删除的结果并释放内存。
下面看我们程序的运行:
首先会提示当前数据的数量:
![2e13599441ecdb97de647841b607e0b1.png](https://i-blog.csdnimg.cn/blog_migrate/abf73594a8a12507fc6dfaff93b8d25a.jpeg)
如果没有找到数据,则有提示:
![a12fac9a701727685bfecfa8c8df4785.png](https://i-blog.csdnimg.cn/blog_migrate/2f52cccafa1fe433323080a409fbd514.jpeg)
我们增加后最后一行的测试:
![fc236473480d698a768028956a1ff703.png](https://i-blog.csdnimg.cn/blog_migrate/976d617db32656dd92ca48090bcf6403.jpeg)
最后会提示有一条没有删除:
![009d2c81f9e533d917e3633737950db9.png](https://i-blog.csdnimg.cn/blog_migrate/b1a0e3d3bfb265243243990ac1d2c34f.jpeg)
今日内容回向:
1 如何删除记录集中的数据?
2 如何根据工作表中提供的数据删除数据表中的数据?
《VBA代码解决方案》系列电子书,是我将一些非常实用的VBA内容结集成册,PDF格式文件,朋友们可以从中查找到你想要解决问题的思路和方法,可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668