利用vb操作mysql数据库

Imports MySql.Data.MySqlClient

Public Class Form1
    Dim connString As String = "server=服务器地址;user id=用户名;password=密码;database=数据库名;"
    Dim conn As New MySqlConnection(connString)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            conn.Open()
            MessageBox.Show("连接成功")
        Catch ex As Exception
            MessageBox.Show("连接失败：" & ex.Message)
        End Try
    End Sub

    Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        Dim cmd As New MySqlCommand()
        cmd.Connection = conn
        cmd.CommandText = "INSERT INTO 表名 (列1, 列2) VALUES (@Value1, @Value2)"
        cmd.Parameters.AddWithValue("@Value1", txtValue1.Text)
        cmd.Parameters.AddWithValue("@Value2", txtValue2.Text)

        Try
            cmd.ExecuteNonQuery()
            MessageBox.Show("插入成功")
        Catch ex As Exception
            MessageBox.Show("插入失败：" & ex.Message)
        End Try
    End Sub

    Private Sub btnSelect_Click(sender As Object, e As EventArgs) Handles btnSelect.Click
        Dim cmd As New MySqlCommand()
        cmd.Connection = conn
        cmd.CommandText = "SELECT * FROM 表名"

        Dim adapter As New MySqlDataAdapter(cmd)
        Dim dt As New DataTable()

        Try
            adapter.Fill(dt)
            dgvResult.DataSource = dt
        Catch ex As Exception
            MessageBox.Show("查询失败：" & ex.Message)
        End Try
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        conn.Close()
    End Sub
End Class