Cara NEW,SAVE, UPDATE, DELETE Pada Vb.Net

Membuat Menu NEW,SAVE,UPDATE,DELETE Visual Basic .Net ke Databse MySql.  
Pada tutorial kali ini saya akan melanjutkan dari tutorial sebelumnya("Menampilkan Tabel ke DataGridView"), yakni membuat menu tambah, simpan, ubah dan hapus beserta kode programnya,


Gimana si langkah-langkahnya, oke kita simak

• Pertama masukan label, textbox dan button sebagaimana yang di butuhkan untuk input tabel, lebih jelasnnya lihat gambar

• Setelah membuat tampilan seperti di atas ganti setiap nama Label,TextBox dan Button sesuai nama yang di inginkan dengan cara seperti gambar di bawah ini

• Bagian Text yang bertanda panah merah kecil menandakan ganti nama text pada label, dan tanda panah merah besar ganti nama dari label itu sendiri, lakukan seperti itu pada semua Label, TextBox dan Button. Catatan ("pada TextBox menggunakan txtname sedangkan di jenis itu menggunakan combobox jadi pakenya cbbjenis itu cukup yang di ganti di bagian yang bertanda panah merah besar di bagian panah merah kecil tidak perlu, sedangkan pada button gunakan btnTambah dan Seterusnya ")
• Kemudian setelah selesai mengganti nama tersebut, sekarang kita masuk bagian Simpan data masukan kode di bawah ini tepat di bawah kode yang kemaren kita buat :

• Setelah itu save, terus jalankan  :

• Jika anda mengikuti dengan benar maka Simpan akan berhasil.

Kemudian Ubah,Hapus,Tambah dan Exit

• Langkah pertama kalian matikan semua Textbox dan tombol Button kecuali tombol Tambah dan EXIT, caranya simak gambar berikut :

• Nah Klik dulu label yang akan di matikan kemudian menuju ke yang saya tandai panah merah dengan mengganti dari TRUE menjadi FALSE, ini fungsinya ketika di RUN menu-menu yang di matikan tadi tidak bisa di klik maupun di ketik sebelum tombol Tambah di Klik, sampai sini paham ? kalu sudah kita lanjut
• Setelah semua selesai masukan Kode lengkap seperti gambar di bawah ini mulai dari Ubah,Hapus, Tambah dan Keluar persis di bawah kode SIMPAN

Private Sub tabelayam_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles tabelayam.CellClick

        Dim i As Integer
        With tabelayam

            If e.RowIndex >= 0 Then
                i = .CurrentRow.Index

                txtname.Text = .Rows(i).Cells("nama").Value.ToString
                cbbjenis.Text = .Rows(i).Cells("jenis").Value.ToString
                txtberat.Text = .Rows(i).Cells("berat").Value.ToString
                txtjumlah.Text = .Rows(i).Cells("jumlah").Value.ToString

                Call toEnable(True)
                btnNew.Enabled = False
                txtname.Enabled = True
                btnSave.Enabled = False

                btnUpdate.Enabled = True
                btnDelete.Enabled = True
            End If
        End With
    End Sub


    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Call Connection()
        Try
            Dim edit As String = "UPDATE ayam SET `jenis`='" & cbbjenis.Text & "', `berat`='" & txtberat.Text & "', `jumlah`='" & txtjumlah.Text & "' WHERE `nama`='" & txtname.Text & "'"

            CMD = New OdbcCommand(edit, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Data Berhasil diUbah")

            Call dataShow()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        If MessageBox.Show("Apakah Anda Yakin Akan Menghapus Data Tersebut !!!", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

            Call Connection()
            Dim hapus As String = "DELETE FROM ayam  WHERE Nama='" & txtname.Text & "'"
            CMD = New OdbcCommand(hapus, CONN)
            CMD.ExecuteNonQuery()

            Call dataShow()
            Call toEmpty()
            Call toEnable(False)
        End If
    End Sub

    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
        Call toEnable(True)
        Call toEmpty()
    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Sub toEmpty()
        txtname.Text = ""
        cbbjenis.Text = ""
        txtberat.Text = ""
        txtjumlah.Text = ""
    End Sub

    Sub toEnable(bool)
        txtname.Enabled = bool
        cbbjenis.Enabled = bool
        txtberat.Enabled = bool
        txtjumlah.Enabled = bool
        btnSave.Enabled = bool

        btnUpdate.Enabled = False
        btnDelete.Enabled = False
    End Sub

Setelah semua di ketik dengan benar, tentuya setiap Label,TextBox dan Button sudah di ganti sesuai nama milik kalian dan nama tabel dalam DataBase kalian dengan benar dan mengikuti langkah tersebut diatas dengan benar maka InsyaAlloh Tambah, Simpan, Hapus dan Exit bisa berfungsi sebagai mana mestinya, Semoga artikel ini bisa membantu temen-temen dan bermanfaat :)