Simpan dan Update data koneksi Vb.net ke Mysql

Kali ini saya ingin membagikan source code simpan, edit,Update, hapus data Vb.net ke databse mysql.

 Private Sub Simpan_Click(sender As Object, e As EventArgs) Handles Simpan.Click
        If TextBox1.Text = "" Then   'kode pihak kosng
            MsgBox("Kode Pihak harus diisi")
            Exit Sub
        End If
        If TextBox2.Text = "" Then 'nama pihak kosong
            MsgBox("Nama Pihak harus diisi")
            Exit Sub
        End If

        Dim command As New MySqlCommand

        command.Connection = conn
        command.CommandText = "select * from tbl_pihak where kd_pihak = '" & TextBox1.Text & "'"
        DR = command.ExecuteReader
        If DR.Read Then
            If Not DR Is Nothing Then DR.Close()
            command.CommandText = "update tbl_pihak set nm_pihak = '" & TextBox2.Text & "' where kd_pihak = '" & TextBox1.Text & "'"
            command.ExecuteNonQuery()
            ClearForm(Me)
            skepdireksi.isilist()
        Else
            If Not DR Is Nothing Then DR.Close()
            command.CommandText = "insert into tbl_pihak (kd_pihak, nm_pihak) values('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            command.ExecuteNonQuery()
            ClearForm(Me)
            skepdireksi.isilist()
        End If
        If DR Is Nothing Then DR.Close()
        command.Dispose()
 
    End Sub

'textbox1 = kode pihak
'textbox2 = nama pihak

sekian source code untuk pembelajaran mengenai simpan data dan update data dijadikan dalam 1 procedure.

jangan lupa baca juga untuk Hapus data, Edit Data

Terima kasih telah membaca artikel ini, semoga bermafaat buat kalian semua.
maaf jika ada kesalahan, dalam penulisan.