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 Connector Net

工程引用mysql.data

连接数据库：

     Imports MySql.Data

    Imports MySql.Data.MySqlClient

 ‘连接字符串dbServerName 是ip,下面的英文应该懂得吧。

dim sA as string

sA = "server=" &Me.dbServerName &"port=3306database=" &Me.dbDataBaseName &_

                      "user id=" &Me.dbUserName &"password=" &Me.dbPassWord &""

dim mvardbConnectionMysql As MySqlConnection

              With mvardbConnectionMysql

                     .ConnectionString = sA

                  .Open()

              End With

4. 读取数据

dim xx As MySqlDataReader

Dim oC As MySqlCommand = New MySqlCommand(sSql, Me.mvardbConnectionMysql)

 oC.CommandType = CommandType.Text

xx= oC.ExecuteReader()

if xx.HasRows

do while xx.read()   ’一次读取一行

 msgbox xx.item(2)   '取出当前行的第三个字段的值显示。

loop

end if

5. 写入数据

      Dim oT As MySqlTransaction = Me.mvardbConnectionMysql.BeginTransaction()

      Try

          Dim oC As MySqlCommand

   '下面的commandtext是执行的更新语句，例如Insert into 语句。

          oC = New MySqlCommand(CommandText, Me.mvardbConnectionMysql, oT)

          oC.CommandType = CommandType.Text

          oC.ExecuteNonQuery()

          oT.Commit()

          oC = Nothing

          oT = Nothing

      Catch oe As Exception

          oT.Rollback()

      End Try

Dim ADOrs AS RecordsetADOrs.Open "select * from {你的表名} where name='"+text1+"'" '把textbox1作为检索的对象即用来输入查找的条件 if NOT ADOrs.EOF then '开始查找(用了取么 *** 作没有找到到指针即找到了记录)那么执行下面的语句 ADOrs("name")=trim(text1) '把字段name显示给textbox1 ADOrs("year")=trim(text2） '把字段year显示给textbox2else msgbox "数据库没有检索到你要搜索的记录！"，vbokonly,"提示" end ifADOrs.close '最后记得把刚才打开的记录集给关闭掉或则会给数据库添加负荷的。

---