vba删除mysql表_VBA｜数据库操作04：通过Excel工作表删除记录（Delete删）

Sub 删除记录()

Dim cnn As New Connection

Dim strcon As String, strSql As String, custID As String

custID = Worksheets("修改").Range("B1")

If Trim(custID) = "" Then

MsgBox "请输入“客户ID”信息！", vbCritical + vbOKOnly

Exit Sub

End If

On Error Resume Next

strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" _

& "Data Source=" & ThisWorkbook.Path & "Northwind.mdb"

cnn.Open strcon '打开数据库连接

strSql = "DELETE FROM 客户 WHERE 客户ID='" & custID & "'" '删除"客户"表的SQL语句

cnn.Execute (strSql)

If Err <> 0 Then '显示错误信息

MsgBox Err.Description

End If

cnn.Close

Set cnn = Nothing

End Sub