VB连接MYSQL实例

电脑需安装数据库'mysql server'和'mysql connector net'相关版本软件。

在工程的‘项目’-‘添加引用’中添加引用‘mysql.data’

实现代码如下：

Imports System.IO

Imports System

Imports System.Data

Imports System.Windows.Forms

Imports MySql.Data.MySqlClient

Public Class Form1

Dim conn As MySqlConnection

Dim data As DataTable

Dim da As MySqlDataAdapter

Dim cb As MySqlCommandBuilder

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

If Not conn Is Nothing Then conn.Close()

Dim connStr As String

Dim reader As MySqlDataReader

connStr = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", "localhost", "root", "root")  '登录mysql数据库 为本机，用户名：root 密码：root

Try

conn = New MySqlConnection(connStr)

conn.Open()

reader = Nothing

Dim cmd As New MySqlCommand("use db", conn)      '进入存储数据所用的数据库

reader = cmd.ExecuteReader()

While (reader.Read())

End While

If Not reader Is Nothing Then reader.Close()

Catch ex As MySqlException

'MessageBox.Show(ex.ToString)

MessageBox.Show("程序出现错误！请重启，或联系维护人员。", "抱歉")

Finally

If Not reader Is Nothing Then reader.Close()

End Try

End Sub

Private Sub btnconn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconn.Click

Dim temp_int, int_lrow, int_rrow As Integer

data = New DataTable

Try

da = New MySqlDataAdapter("select * from db_table where name='lady_gaga'", conn)            '在相关表中查找数据 db_table 为表名，name 为列名

cb = New MySqlCommandBuilder(da)

da.Fill(data)

int_rrow = data.Rows.Count              '返回查找后的数据行数，返回0行则表示没有找到记录，返回大于0行，则表示找到了相关记录

If int_rrow = 0 Then

MessageBox.Show("无记录")

Else

MessageBox.Show("data.Rows.Item(0).Item(3).ToString")   'Item(0).Item(3) 表示返回的第1条记录(第一条的下标为0)中的第4列值

End If

Catch ex As Exception

MessageBox.Show(ex.ToString)

End Try

End Sub

End Class