Dim adoConn '定义ADO连接对象
Dim ConnectionStr '定义数据库连接字符串
'获取连接数据库字符串
ConnectionStr="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties='DSN=mysql;SERVER=localhost;UID=root;PWD=root;DATABASE=test;PORT=3306'"
Set adoConn = CreateObject("ADODB.Connection")
Msgbox adoConn.State
'利用数据库连接字符串打开数据库
On Error Resume Next
adoConn.Open ConnectionStr
Msgbox adoConn.State
问题补充:经过一天的努力,终于找出问题了,一直用的是Windows64位的ODBC数据源,应该用c盘下的32位的ODBC数据源,并下载对应的32位的mysql数据库驱动,OK了
提问时间:2018-06-29 09:42:32 提问者: lax1226 - 新生  第1级
问题ID: 194232