Python和VBA连接MySQL

Python篇

直接上代码

import pymysql

conn = pymysql.Connect(host="localhost", port=3306, user="root", password="123456", charset='utf8', db="database")
sql = "select * from data"
df = pd.read_sql(sql, conn)

直接调用python的pymysql即可调用，这个是获取本地主机的，如果是想获取其他地方的，比如云服务器的192.168.1.139，只需要将localhost改为服务器的IP即可，公司允许的话一般会给一个视图防止修改数据库的内容

Excel篇

Excel用VBA获取云服务器的MySQL数据，需要下载插件
下载连接：https://dev.mysql.com/downloads/connector/odbc




在弹出的窗口中的“用户DSN”选项卡右侧，选择“添加”，在新数据库源中会出现两个MySQL驱动，分别为“MySQL ODBC 8.0 ANSI Driver”及"MySQL ODBC 8.0 Unicode Driver"，

很明显两者的区别在于编码标准。我选择的是Unicode版本。选中其中一个，点完成即可。
点击完成后弹出配置界面，关于界面的说明如下：

Data Source Name： 连接名称，会显示在之前的“ODBC数据源管理器“的列表中；

TCP/IP Server： 服务器地址，如果是内网/外网，需要填写对应的IP地址。如果是本机则填写 127.0.0.1；

User： 登录用户名，这里如同我在1.1中设置的，填写 root；

Password： 登录密码，这里如同我在1.1中设置的，填写 abc；

Database：这里需要选择 数据库（一个服务器上可能有多个数据库），根据自己的需要选择一个就可以。

填写完毕后，推荐点击【test】按钮测试一下连接是否正常，如果有问题的话，需要重新检查一下1.1中的局域网访问设置，如果是本地服务器的话，可能是数据库未启动。

1.2和1.3的配置顺序可以随意，但1.4必须在1.3之后，否则在ODBC数据源中添加新数据源时，是找不到MySQL选项的。

**

接下来就是VBA连接MySQL

**
在按照上述步骤配置了环境支持后，就可以在VBA中使用代码连接MySQL了。

Sub 连接MySQL数据库()
'1. 引用ADO工具
'2. 创建连接对象
Dim con As New ADODB.Connection
'3. 建立数据库的连接
con.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=192.168.1.139;DB=test;UID=root;PWD=abc;OPTION=3;"
con.Open
MsgBox ("连接成功！" & vbCrLf & "数据库状态：" & con.State & vbCrLf & "数据库版本：" & con.Version)
con.Close
Set con = Nothing
End Sub

这里注意，Driver变量的值是必须要和数据源中添加的新数据源一致的，否则会提示找不到数据源。

'从test数据库的database表中取出所有数据
    rs.Open "select * from database", conn
'设置表头
    Range("A1:B1").Value = Array("ID", "Name")
'将数据输出到工作表
    Range("A2").CopyFromRecordset rs
'关闭连接
    rs.Close: Set rs = Nothing
    conn.Close: Set conn = Nothing

这样，就可以让Excel连接服务器的数据库，只需要每次刷新即可获得，这样对于Excel需要经常更新数据的可以省去很多时间和精力，不需要复制粘贴了