VBA连接mysql报3706错误未找到提供程序
VBA连接mysql报3706错误未找到提供程序,该程序可能未正确安装。
Public Sub LinkMySQL()
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Con.ConnectionString = "Driver={MySQL ODBC 5.2 Driver};" + _
"Database=mysql;" + _
"Server=localhost;" + _
"UID=root;" + _
"PWD=123456;" + _
"OPTION=3;"
Con.Open
If Con.State = adStateOpen Then
MsgBox "链接状态:" & Con.State & vbCrLf & "ADO版本:" & Con.Version, vbInformation, ""
End If
Con.Close: Set Con = Nothing
End Sub