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

《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上的中小型网站中。

必须安装MYSQL的驱动才行，不管是VB还是c++都需要这个驱动。代码如下： Public Function exemysql(ByVal sql As String) As ADODB.Recordset sql = Trim$(sql) Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Driver=MySQL ODBC 3.51 Driver" &_ "Server=服务器地址" &_ "Port=3306" &_ "Database=数据库名" &_ "Uid=用户名" &_ "Pwd=密码" conn.DefaultDatabase = "数据库名" conn.CursorLocation = adUseClient Set rs.ActiveConnection = conn rs.LockType = adLockBatchOptimistic rs.CursorType = adOpenKeyset rs.Open sql Set exesql = rs Set rs = Nothing Set conn = Nothing End Function

---