vba 连接mysql，几点经验

yimibaer

折腾了三个小时，防止以后有人走弯路记录一下。

    Dim cn As ADODB.Connection  '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
    Dim rs As ADODB.Recordset '定义记录集对象，保存数据表
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    '设服务器地址、所连数据，及登录用户密码
    ser = "localhost"
    Db = "你的数据库名字"
    user = "root"
    pwd = "root"
    strconnt = "DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=" & ser & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd
    cn.ConnectionString = strconnt
    cn.Open
以上为连接代码，网上都有的。折腾我三小时的是mysql odbc数据源驱动
最开始下载mysql odbc驱动,我的系统是win7 64位，下载的是64位驱动
提示您的系统“找不到myodbc5S.dll”
试了好久，最后发现要安装vc++ 2013运行库
又在微软下载vc++ 2013运行库
再次安装，ok
但vba运行代码，提示报错"未发现数据源名称并且未指定默认驱动程序"
查看-管理工具-数据源，MySQL ODBC 5.3 Unicode Driver驱动已经有了。
百思不得其解，最后在网上找到原因，虽然我的系统是64位，但office是32位的，要32位的mysql odbc驱动
下载32位的mysql odbc驱动，安装又提示“找不到myodbc5S.dll”，恍然大悟，vc++运行库是64位的，又从新下载32位库，最后运行代码成功。
以下是需要用到的下载的官方网址
mysql odbc驱动forwin：
https://dev.mysql.com/downloads/connector/odbc/
vc++ 2013运行库：
http://download.microsoft.com/download/b/e/8/be8a5444-cdd8-4d3d-ae09-a0979b05aee3/vcredist_x86.exe

lanpiawu

顶，好帖子，有时候就是这些小问题折腾人啊

tianqixueyu

十分感谢，确实在很多时候很有用，自己摸索需要很久。

任飘渺

留名学习 迟早有用

jiminyanyan

连过 SQL2014.。。。。。。

rzz8118

有时候就是这样，需要不断总结

rosemai

万分感谢楼主分享，我原来和你问题是一样的，但我不知道需要安装vc++ 2013运行库
请教你从哪里查到需要安装这个库的呢？为什么大部分描述文章却没有写，另外也没人放配置驱动程序的配置图。
不管怎么样，我也可以连库了，感谢您和万能的Home平台！

dy_ysl

我也一直连接不上，出现与楼主同样的提示，但是office怎么查看是32位的还是64位的？

看见星光

dy_ysl 发表于 2018-3-15 08:59
我也一直连接不上，出现与楼主同样的提示，但是office怎么查看是32位的还是64位的？

Sub test()
    If Chr(32) <> "A" Then n = 64 Else n = 32
    MsgBox n
End Sub

岁寒→蓝天

不错不错！