Insert, Update, Delete Vb.Net & MySql

baiklah saya akan memberikan coding input, update dan delete pada VB.Net dengan MySql .

langkah pertama adalah desain form seperti berikut ini

selanjutnya langsung beraksi..................

langkah pertama yang harus anda lakukan adalah melakukan koneksi dari Vb.Net dengan Mysql dapat anda lihat disini


Perintah Simpan
double klick simpan kemudian ketikkan koding berikut
 Try
            Openconn()
            Mysqlcm = MySqlConn.CreateCommand
            Mysqlcm.Transaction = MysqlTrans
            Mysqlcm.CommandType = CommandType.StoredProcedure
            Mysqlcm.CommandText = "simpan_barang"

            Mysqlcm.Parameters.AddWithValue("pkode_barang", TextBox1.Text)
            Mysqlcm.Parameters.AddWithValue("pnama_barang", TextBox2.Text)
            Mysqlcm.Parameters.AddWithValue("pharga_jual", TextBox3.Text)
            Mysqlcm.Parameters.AddWithValue("pharga_beli", TextBox4.Text)
            Mysqlcm.Parameters.AddWithValue("pstock", TextBox5.Text)
            Mysqlcm.ExecuteNonQuery()
            gtransStat = True
        Catch ex As Exception
            gtransStat = False
            Beep()
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "pesan")
        Finally
            Mysqlcm.Dispose()
            closeconn()
            TAMPILBARANG()

        End Try


Perintah Update

Try
            Openconn()
            Mysqlcm = MySqlConn.CreateCommand
            Mysqlcm.Transaction = MysqlTrans
            Mysqlcm.CommandType = CommandType.StoredProcedure
            Mysqlcm.CommandText = "update_barang"

            Mysqlcm.Parameters.AddWithValue("pkode_barang", TextBox1.Text)
            Mysqlcm.Parameters.AddWithValue("pnama_barang", TextBox2.Text)
            Mysqlcm.Parameters.AddWithValue("pharga_jual", TextBox3.Text)
            Mysqlcm.Parameters.AddWithValue("pharga_beli", TextBox4.Text)
            Mysqlcm.Parameters.AddWithValue("pstock", TextBox5.Text)
            Mysqlcm.ExecuteNonQuery()
            gtransStat = True
        Catch ex As Exception
            gtransStat = False
            Beep()
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "pesan")
        Finally
            Mysqlcm.Dispose()
            closeconn()
            TAMPILBARANG()

        End Try

Perintah Delete

Try
            Openconn()
            Mysqlcm = MySqlConn.CreateCommand
            Mysqlcm.Transaction = MysqlTrans
            Mysqlcm.CommandType = CommandType.StoredProcedure
            Mysqlcm.CommandText = "delete"

            Mysqlcm.Parameters.AddWithValue("pkode_barang", TextBox1.Text)
            Mysqlcm.ExecuteNonQuery()
            gtransStat = True
        Catch ex As Exception
            gtransStat = False
            Beep()
            MsgBox(ex.Message, MsgBoxStyle.OkOnly, "pesan")
        Finally
            Mysqlcm.Dispose()
            closeconn()
            TAMPILBARANG()

        End Try