我连过mysql数据库通过vba:
1.下载安装odbc驱动:https://dev.mysql.com/downloads/connector/odbc/
'这里最好使用把32/64位的驱动都打上
2.配置odbc connector
具体方法:win+R运行odbcad32
用户DSN>添加>Mysql ODBC 8.0 ANSI/UNICODE driver(具体编码看你的数据库了)
填写参数:socks,用户名,密码,数据库名
3.进vbe编辑器:
[Visual Basic] 纯文本查看 复制代码 Sub 连接MySQL数据库()
'1. 引用ADO工具
'2. 创建连接对象
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
'3. 建立数据库的连接
con.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=212.60.5.135;DB=nineteen;UID=nineteen;PWD=2019;OPTION=3;"
con.Open
rs.Open "select * from `tower`", con
'MsgBox ("连接成功!" & vbCrLf & "数据库状态:" & con.State & vbCrLf & "数据库版本:" & con.Version)
Range("A1").CopyFromRecordset rs
con.Close
Set con = Nothing
Set rs = Nothing
End Sub
以上是读取数据表tower到excel的代码
|