VBA 连接MySQL数据库，需要引用ADOB控件

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