Sub mysql_conn()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Driver={MySQL ODBC 8.0 ANSI Driver};Server=127.0.0.1;Port=3306;Database=test;Uid=dev;Pwd=123456;OPTION=3;"
conn.Open
Sql = "SELECT * FROM `demo` WHERE `common_language`.`language_name_key` = 'CHINESE'"
rs.Open Sql, conn
Sheets("Mysql").Range("A1").CopyFromRecordset rs
End Sub
VBA连接Mysql的宏代码,注意其中Driver 为驱动名。
配置如下