分享一个VBA连接mysql数据库的方法

Dim strcn As String
Dim cn As New ADODB.Connection

'构造函数
Private Sub Class_Initialize()
strcn = "driver=mysql odbc 3.51 driver;" & _
"server=192.168.101.89;" & _
"database=mmtest;" & _
"uid=test;" & _
"pwd=test" & _
";Stmt=set names gb2312"
'";Stmt=set names gb2312" '连接字符串

cn.Open strcn
cn.CursorLocation = adUseClient
End Sub

'析构函数
Private Sub Class_Terminate()
cn.Close
End Sub

'执行sql语句，返回行数
Public Function ExecCmd(ByVal strSql As String) As Long
Dim N As Long
cn.Execute strSql, N
ExecCmd = N
End Function

'执行sql语句，返回Recordset
Public Function ExecRecordset(ByVal strSql As String) As ADODB.Recordset
Dim rd As Recordset
Set rd = cn.Execute(strSql)
Set ExecRecordset = rd
End Function

这是一个类模块，要先安装mysql-odbc