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

首先将myodbc3.dll文件复制到系统下，然后将以下内容做成xxx.reg文件并运行。Windows

Registry

Editor

Version

5.00[HKEY_LOCAL_MACHINE\SOFTWARE\MySQL

AB\MySQL

Connector/ODBC

3.51]

"Version"="3.51.24"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\MySQL

ODBC

3.51

Driver]

"UsageCount"=dword:00000001

"Driver"="C:\\WINDOWS\\system32\\myodbc3.dll"

"Setup"="C:\\WINDOWS\\system32\\myodbc3S.dll"

[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC

Drivers]

"MySQL

ODBC

3.51

Driver"="Installed"

ODBC加载.

vb中添加一个Adodc的控件.

Public Function conn() As String

conn = "Provider=SQLOLEDB.1Password=数据库管理密码Persist Security Info=TrueUser ID=数据库管理帐号Initial Catalog=数据库名Data Source=计算机名"

End Function

Dim rs As New ADODB.Recordset

Dim con As New ADODB.Connection

Dim sql As String

Set con = CreateObject("ADODB.Connection")

con.Open conn

sql = "select * from Admin where username='" &username.Text &"' and password='" &password.Text &"'"

rs.Open sql, con, 1, 1

---