VBA 连接MySQL数据库,需要引用ADOB控件
'连接字符定义
Dim 连接信息 As String
'清空连接字符
连接信息 = ""
'实例化连接
Set 数据库连接 = New ADODB.Connection
'用户信息定义
Dim 数据库地址, 数据库名称, 用户名, 密码 As String
数据库地址 = "127.0.0.1"
数据库名称 = "test"
用户名 = "test"
密码 = "test"
'连接字符输入
连接信息 = "DRIVER={MySql ODBC 5.3 Unicode Driver};SERVER=" & sevip & ";Database=" & 数据库名称 & ";Uid=" & 用户名 & ";Pwd=" & 密码 & ";Stmt=set names utf8"
'数据库连接
数据库连接.ConnectionString = 连接信息
'打开数据库
数据库连接.Open