我尝试使用文档中提供的方法连接到本地MySQL实例。以下是我的表现:
Sub connectToDB()
Dim recset As ADODB.Recordset
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
conn.connectionString = "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _
"SERVER=localhost;" & _
"DATABASE=myDB;" & _
"USER=myUser;" & _
"PASSWORD=myPassword;" & _
"OPTION=3;"
conn.Open
cmd.ActiveConnection = conn
cmd.CommandText = "select * from object"
Set recset = cmd.Execute()
recset.MoveFirst
MsgBox recset.Fields(1).Value
conn.Close
End Sub
安装了驱动程序:
...我已通过ODBC管理员测试按钮验证了连接:
但是,当我在VBA中运行时,我收到一条消息说"未找到数据源名称且未指定默认驱动程序":
我有很多使用ADO以相同的方式连接到SQL Server的经验,但我暂时没有完成它,所以如果我错过了一些明显的东西,请随时称我为菜鸟