VB.NET 2010浅入浅出________连接MySql

最近一直很纠结，forword java or maybe vb.net 2010

from vb.net2010 is myjob， I am  worker ，I want to become a programmer

1找了好几个资料和网站，现在从头说起。

同事介绍，买了《Visual Basic 2005 完全开发指南》这本书，前段时间看到了关联数据库

1、我们公司他们研发的数据库使用的什么我也不知道，肯定是有数据库。同时有个DATEBASE4这个软件，估计是操作数据库的中间件。

2、在网上搜索一番，没有对头的文件。

3、分享似乎是低等程序员的事情，为了让和自己同样搜寻的人有个答案。我记录一下

A 前段时间看狂神说JAVA有 iDEA 通过 SQLyang 连接数据库MYSQL 我想道理是一样的尝试一下

-----------------真的成功了，虽然这方面的案例分享较少，但是确实亲测成功。-------------------

B 上步骤。

1、MYSQL 官网下载两个东西， MYSQL AND MySQL Connector/Net 说实话，百度靠谱

   MYSQL  我原来用Java操作的是8.0.34 & connector is 8.1.0

        说明：Mysql 是被操作者和存储内存

                connector 为了得到他的DLL和xml 放到我们的VB.net下面的文件夹中（是文件夹中不是在VB.NET执行文件中找）

至此准备工作完成。

2、VB.NET创建一个窗口文件夹，下面蓝色的是百度的只能回答

       说明：1 uid 是root  2 pwd=是你数据库的的密码，3datebase填你要操作的数据库的名字，

                4.your_table 是你数据库下的表名字，一定对应起来。5 我是先用SQLyang连接测试的

Sub Main()

Dim connectionString As String = "server=localhost;user id=root;password=your_password;database=your_database"

Dim conn As New MySqlConnection(connectionString)

Try

conn.Open()

Dim query As String = "SELECT * FROM your_table"

        

下面的代码，是验证过的，小伙伴请开启你的学习吧。

Imports MySql.Data.MySqlClient '引入MySQL

Public Class Form1

    Dim connStr As String = "server=localhost; uid=root; pwd=password; database=school"
    ' 定义公共的MySQL数据库链接字符串
    Dim conn As New MySqlConnection(connStr)    '实例化MySQL连接

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        Dim sql As String = "select * from app_user"  ' 写sql 语句
        DataGridView2.DataSource = SelectDB(sql)  '将Data Table中的数据传给DataGridView1的datasource显示
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        Dim sql As String = "update user set name=120 where id=1 "  ' 写sql 语句
        If UpdateDel(sql) = 1 Then
            MsgBox("执行成功")
            Button2_Click(sender, e) '在调用显示数据，刷新一下
        Else
            MsgBox("执行失败")
        End If
    End Sub

    Public Function SelectDB(ByVal SQL As String) As DataTable '获取数据库数据函数
        Dim SDA As MySqlDataAdapter ' 声明连接器
        SDA = New MySqlDataAdapter(SQL, conn) ' 实例化连接器
        Dim Dst As New DataSet '声明并实例化DataSet
        Try
            SDA.Fill(Dst)
            Return Dst.Tables(0)
        Catch ex As Exception
            Return Nothing
        Finally
            conn.Close()
        End Try
    End Function

    Public Function UpdateDel(ByVal SQL As String) As Integer '添加，更新，删除数据函数
        Dim cmmd As MySqlCommand = New MySqlCommand(SQL, conn) ' 声明并实例化命令器
        Try
            conn.Open()
            Return cmmd.ExecuteNonQuery()
        Catch ex As Exception
            Return 0
        Finally
            conn.Close()
        End Try
    End Function
End Class

以上，使用vb.net2010 打开mysql