Question

VB 连接MySQL数据库 报错 未发现数据源名称且未指定默认驱动程序 求解～～感谢！！MySQL是8.0版本的

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
Dim sql As String
db_host = "localhost"
db_user = "root"
db_pass = "1203"
db_data = "test"
strCn = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & "SERVER=" & db_host & ";" & "DATABASE=" & db_data & ";" & "UID=" & db_user & ";PWD=" & db_pass & ";" & "OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn
cn.CursorLocation = adUseClient
sql = "select * from tg_user"
rs.Open sql, cn
MsgBox rs.RecordCount
End Sub





Answer 1

《MySQL 8.0.17》百度网盘资源免费下载:

链接: https://pan.baidu.com/s/1PQdVY20q0er1aX7mgxu-QQ

?pwd=988a 提取码: 988a

MySQL 8.0.17是一种开放源代码的关系型数据库管理系统，使用最常用的数据库管理语言–结构化查询语言SQL进行数据库管理。MySQL 8.0.17优化了SQL查询算法，有效地提高查询速度；支持多线程，充分利用CPU资源，支持多用户；提供用于管理、检查、优化数据库操作的管理工具。由于其体积小、速度快、总体拥有成本低，目前被广泛地应用在Internet上的中小型网站中。

Answer 2

cn.Open "DSN=数据源名称;Uid=用户ID;Pwd=密码"   '标准语句
cn.Open "DSN=MySQL;Uid=" & db_user & ";Pwd=" & db_pass & ""  '尽供参考

这才是连接本地 ODBC 数据源的语句。

你的语句不是连接数据源的，好像是连接数据库的，但驱动程序不正确。

Answer 3

我来告诉你吧
别管你系统是64还是32
你用vb就要装32的mysql-connector-odbc-noinstall-8.0.17-win32
我是装了这个就不报数据源错了
但是。。。。。开始报这个了 [MySQL][odbc 8.0(a) Driver]Bad handshake

Answer 4

你参考一下下面这个网址：

追问

你好，感谢您给提出的建议，但是我是一个初学者，网站上的好多例子看的不是很明白，您能给指点一下吗？

追答

你改用OLE DB 方式试试

追问

麻烦老师给个实例吧，自身水平真的是太有限了。。。

追答

这里的篇幅有限，你发个私信联系一下。

Answer 5

驱动版本太高了。降级。。

追问

驱动版本太高了？不都是高级别兼容低级别的吗？