vba mysql 乱码_VBA Mysql 类

Option Explicit

'==================================== 声明属性 =================================

Private Con As ADODB.Connection

' ====================================声明事件===================================

'==================================== 初始化 类 ===================================

Private Sub Class_Initialize()

Set Con = New ADODB.Connection

Con.CursorLocation = adUseClient '设置此项才可获取 recordset.RecordCount

Con.ConnectionString = "Driver={MySQL ODBC 5.2 ANSI Driver};" + _

"Server=sc;" + _

"DB=oa;" + _

"UID=UID;" + _

"PWD=PWD;" + _

"OPTION=3;" + _

"Stmt=Set Names 'UTF-8';"

End Sub

'=================================== 以“属性”的形式