Excel VBA 操作 MySQL(八，九，十)

原创

種法龍

修改于 2023-12-28 14:54:18

2540

修改于 2023-12-28 14:54:18

文章被收录于专栏：未知未知

要使用Excel VBA修改MySQL数据库中的记录，可以使用ADODB.Connection对象执行SQL UPDATE语句。以下是一个示例代码，演示如何执行修改操作：

首先，确保已经建立了与MySQL数据库的连接（如前面示例所示），然后可以使用以下代码执行修改操作：

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数据库的连接（如前面示例所示），然后可以使用以下代码执行删除操作：

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：简单查询并将结果显示在工作表中

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：带参数的查询

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查询语句和参数，以满足不同的查询需求。

原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。

如有侵权，请联系 cloudcommunity@tencent.com 删除。

excel