VBA 连接 MySQL 数据库程序
2025/04/12 21:36:43
以下是用VBA连接MySQL数据库的示例代码：
使用前要确保已安装MySQL ODBC驱动，把`your_database`、`your_username`、`your_password`、`your_table`替换成实际信息。
- Sub ConnectToMySQL()
- Dim conn As Object
- Dim rs As Object
- Set conn = CreateObject("ADODB.Connection")
- Set rs = CreateObject("ADODB.Recordset")
-
- '连接字符串
- Dim connStr As String
- connStr = "DRIVER={MySQL ODBC 8.0 ANSI Driver};" & _
- "SERVER=localhost;" & _
- "DATABASE=your_database;" & _
- "UID=your_username;" & _
- "PWD=your_password;" & _
- "OPTION=3"
-
- '打开连接
- conn.Open connStr
-
- '执行SQL查询
- rs.Open "SELECT * FROM your_table", conn
-
- '输出结果
- Do Until rs.EOF
- Debug.Print rs.Fields(0), rs.Fields(1)
- rs.MoveNext
- Loop
-
- '关闭对象
- rs.Close
- conn.Close
- Set rs = Nothing
- Set conn = Nothing
- End Sub
使用前要确保已安装MySQL ODBC驱动，把`your_database`、`your_username`、`your_password`、`your_table`替换成实际信息。