VBA 链接 mysql 写入数据

首先，你需要安装 MySQL Connector/ODBC 驱动程序，它可以允许 VBA 与 MySQL 数据库进行连接。然后，你需要创建一个 MySQL 连接字符串，包括服务器名称、数据库名称、用户名、密码等信息。接下来，使用 ADODB.Connection 和 ADODB.Recordset 对象来执行 SQL 查询语句并写入数据。以下是一个示例代码：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'创建连接字符串
Dim serverName As String
Dim databaseName As String
Dim userName As String
Dim password As String
Dim connectionString As String

serverName = "localhost"
databaseName = "mydatabase"
userName = "myusername"
password = "mypassword"

connectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverName & ";DATABASE=" & databaseName & ";UID=" & userName & ";PWD=" & password & ";"

'打开连接
conn.Open connectionString

'执行 SQL 查询语句
rs.Open "INSERT INTO mytable (column1, column2) VALUES ('value1', 'value2')", conn

'关闭连接
rs.Close
conn.Close

注意：上述代码中的 mydatabase、myusername、mypassword、mytable、column1 和 column2 应该替换为实际的数据库名称、用户名、密码、表名称以及列名称。同时，为了防止 SQL 注入攻击，应该使用参数化查询。