使用vb.net和VS2010在mysql上插入数据

Imports MySql.Data.MySqlClient

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connStr As String = "server=服务器地址;user id=用户名;password=密码;database=数据库名"
        Dim conn As New MySqlConnection(connStr)

        Try
            conn.Open()

            Dim query As String = "INSERT INTO 表名 (列1, 列2, 列3) VALUES (@value1, @value2, @value3)"
            Dim cmd As New MySqlCommand(query, conn)
            cmd.Parameters.AddWithValue("@value1", TextBox1.Text)
            cmd.Parameters.AddWithValue("@value2", TextBox2.Text)
            cmd.Parameters.AddWithValue("@value3", TextBox3.Text)

            cmd.ExecuteNonQuery()

            MessageBox.Show("数据插入成功！")

        Catch ex As Exception
            MessageBox.Show("数据插入失败：" & ex.Message)

        Finally
            conn.Close()

        End Try
    End Sub
End Class