sql如何删除一条记录_如何删除数据库中特定记录的数据

大家好,我们今日继续讲解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