要使用Excel VBA修改MySQL数据库中的记录，可以使用ADODB.Connection对象执行SQL UPDATE语句。以下是一个示例代码，演示如何执行修改操作：
首先，确保已经建立了与MySQL数据库的连接（如前面示例所示），然后可以使用以下代码执行修改操作：
代码语言：VBA复制Sub UpdateDataInMySQL()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
' MySQL数据库连接信息
Dim serverName As String
Dim dbName As String
Dim userName As String
Dim password As String
serverName = "localhost" ' MySQL服务器地址
dbName = "mydatabase" ' 数据库名称
userName = "myuser" ' 数据库用户名
password = "mypassword" ' 数据库密码
' 构建连接字符串
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=" & serverName & ";" & _
"DATABASE=" & dbName & ";" & _
"USER=" & userName & ";" & _
"PASSWORD=" & password & ";"
' 打开数据库连接
conn.Open
' 定义修改数据的SQL语句
Dim updateSQL As String
updateSQL = "UPDATE MyTable SET Age = 35 WHERE Name = 'John Doe'"
' 执行修改数据的SQL语句
conn.Execute updateSQL
' 关闭数据库连接
conn.Close
Set conn = Nothing
End Sub在这个示例中，使用UPDATE语句来修改"MyTable"表格中的数据。在此示例中，将"John Doe"的年龄更改为35岁。可以根据需要修改SQL语句来满足不同的修改需求。
使用Excel VBA删除MySQL数据库中的记录，你可以使用ADODB.Connection对象执行SQL DELETE语句。以下是一个示例代码，演示如何执行删除操作：
首先，确保已经建立了与MySQL数据库的连接（如前面示例所示），然后可以使用以下代码执行删除操作：
代码语言：VBA复制Sub DeleteDataInMySQL()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
' MySQL数据库连接信息
Dim serverName As String
Dim dbName As String
Dim userName As String
Dim password As String
serverName = "localhost" ' MySQL服务器地址
dbName = "mydatabase" ' 数据库名称
userName = "myuser" ' 数据库用户名
password = "mypassword" ' 数据库密码
' 构建连接字符串
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=" & serverName & ";" & _
"DATABASE=" & dbName & ";" & _
"USER=" & userName & ";" & _
"PASSWORD=" & password & ";"
' 打开数据库连接
conn.Open
' 定义删除数据的SQL语句
Dim deleteSQL As String
deleteSQL = "DELETE FROM MyTable WHERE Name = 'John Doe'"
' 执行删除数据的SQL语句
conn.Execute deleteSQL
' 关闭数据库连接
conn.Close
Set conn = Nothing
End Sub在这个示例中，使用DELETE语句来删除"MyTable"表格中符合条件的记录。在此示例中，删除了姓名为"John Doe"的记录。可以根据需要修改SQL语句来满足不同的删除需求。
以下是一些使用Excel VBA执行查询的示例，这些示例演示了如何检索数据库中的数据并将其显示在Excel工作表中。要运行这些示例，确保你已经建立了与MySQL数据库的连接（如前面的示例所示）。
示例1：简单查询并将结果显示在工作表中
代码语言：VBA复制Sub SimpleQueryToWorksheet()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
' MySQL数据库连接信息
Dim serverName As String
Dim dbName As String
Dim userName As String
Dim password As String
serverName = "localhost" ' MySQL服务器地址
dbName = "mydatabase" ' 数据库名称
userName = "myuser" ' 数据库用户名
password = "mypassword" ' 数据库密码
' 构建连接字符串
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=" & serverName & ";" & _
"DATABASE=" & dbName & ";" & _
"USER=" & userName & ";" & _
"PASSWORD=" & password & ";"
' 打开数据库连接
conn.Open
' 执行查询
Dim strSQL As String
strSQL = "SELECT Name, Age FROM MyTable"
' 创建Recordset对象
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
' 执行查询并将结果存储在Recordset中
rs.Open strSQL, conn
' 将结果写入Excel工作表
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 使用工作表的名称，你可以根据需要更改
Dim iRow As Integer
iRow = 2 ' 从第二行开始，根据需要更改
Do Until rs.EOF
ws.Cells(iRow, 1).Value = rs("Name").Value
ws.Cells(iRow, 2).Value = rs("Age").Value
iRow = iRow 1
rs.MoveNext
Loop
' 关闭Recordset和数据库连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub示例2：带参数的查询
代码语言：VBA复制Sub ParameterizedQueryToWorksheet()
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
' MySQL数据库连接信息
Dim serverName As String
Dim dbName As String
Dim userName As String
Dim password As String
serverName = "localhost" ' MySQL服务器地址
dbName = "mydatabase" ' 数据库名称
userName = "myuser" ' 数据库用户名
password = "mypassword" ' 数据库密码
' 构建连接字符串
conn.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=" & serverName & ";" & _
"DATABASE=" & dbName & ";" & _
"USER=" & userName & ";" & _
"PASSWORD=" & password & ";"
' 打开数据库连接
conn.Open
' 定义带参数的查询
Dim strSQL As String
strSQL = "SELECT Name, Age FROM MyTable WHERE Age > ?"
' 创建Command对象
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
' 设置连接
cmd.ActiveConnection = conn
cmd.CommandType = 1 ' adCmdText
' 添加参数
cmd.Parameters.Append cmd.CreateParameter("AgeParam", 3, 1, , 25) ' adInteger
' 设置查询
cmd.CommandText = strSQL
' 创建Recordset对象
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
' 执行查询并将结果存储在Recordset中
Set rs = cmd.Execute
' 将结果写入Excel工作表
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 使用工作表的名称，你可以根据需要更改
Dim iRow As Integer
iRow = 2 ' 从第二行开始，根据需要更改
Do Until rs.EOF
ws.Cells(iRow, 1).Value = rs("Name").Value
ws.Cells(iRow, 2).Value = rs("Age").Value
iRow = iRow 1
rs.MoveNext
Loop
' 关闭Recordset和数据库连接
rs.Close
conn.Close
Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing
End Sub这些示例演示了如何在Excel VBA中执行查询操作，并将结果显示在Excel工作表中。可以根据需求修改SQL查询语句和参数，以满足不同的查询需求。
