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

VB 连接MySQL数据库 报错 未发现数据源名称且未指定默认驱动程序 求解~~感谢!!MySQL是8.0版本的,第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上的中小型网站中。

首先将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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5928641.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-03-08
下一篇 2023-03-08

发表评论

登录后才能评论

评论列表(0条)

保存