Membuat Aplikasi CRUD (Simpan, Update dan Delete) di VB.Net dengan Database MySQL (Part 2)

halo sobat blogger semuanya, tutorial kali ini adalah lanjutan dari tutorial sebelumnya "Membuat Aplikasi CRUD (Simpan, Update dan Delete) di VB.Net dengan Database MySQL".., bagi yang belum baca silahkan baca disini gan...

oke gan silahkan buka kembali project sebelumnya, bagi yang belum punya silahkan download projectnya disini.
pertama silahkan agan tambahkan menu pada desain interface aplikasinya menjadi seperti ini :

pada gambar diatas terdapat 2 tambahan fitur pada button yaitu Button Update dan Delete.
silahkan agan lanjutkan dengan membuka coding agan, kemudian ketikkan kode berikut ini :

Sub IsiTeks(ByVal x As Integer)
        Try
            txtIDPelanggan.Text = DataGridView1.Rows(x).Cells(0).Value
            txtNamaPelanggan.Text = DataGridView1.Rows(x).Cells(1).Value
            txtAlamatPelanggan.Text = DataGridView1.Rows(x).Cells(2).Value
            txtNoTelp.Text = DataGridView1.Rows(x).Cells(3).Value
        Catch ex As Exception
        End Try
    End Sub

fungsi kode diatas adalah jika datagrid diklik oleh user maka data di datagrid yang dipilih akan ditampilkan di textbox.
kemudian agan tambahkan juga kode pada datagridnya dengan cara klik 2x pada datagridviewnya dan tambahkan kode berikut :

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
        IsiTeks(e.RowIndex)
    End Sub

selanjutnya, tambahkan kode berikut pada button Hapus Data :

Dim pesan As Integer
        pesan = MsgBox("Apakah anda yakin ingin menghapus data dengan ID Pelanggan : " & txtIDPelanggan.Text & " ?", vbQuestion + vbYesNo, "Tutorial Blog Guzko")
        If pesan = vbYes Then
            Try
                bukaDB()
                Dim mDA As New MySqlDataAdapter("DELETE FROM user WHERE idPelanggan = '" & txtIDPelanggan.Text & "'", konek)
                Dim dt As New DataTable
                mDA.Fill(dt)
                DataGridView1.Refresh()
                tampilPelanggan()
                aturTampilan()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If

penjelasan dari kode diatas adalah :
1. Pertama membuat pesan terlebih dahulu, pesan ini sebagai konfirmasi pada saat agan mengklik button hapus data, jika agan klik yes maka proses akan dilanjutkan.
2. Kemudian selanjutnya membuat sqladapter dengan ID Pelanggan menjadi acuan untuk menghapus data pelanggan.
3. Setelah dihapus, maka data grid akan direfresh dan memanggil fungsi tampilPelanggan dan aturTampilan

setelah selesai dengan coding pada button Hapus Data, silahkan agan lanjutkan dengan membuat coding pada button Update Data, codingnya seperti dibawah ini gan :

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As Integer
        pesan = MsgBox("Apakah anda yakin ingin meng-update data dengan ID Pelanggan : " & txtIDPelanggan.Text & " ?", vbQuestion + vbYesNo, "Tutorial Blog Guzko")
        Try
            bukaDB()
            Dim mDA As New MySqlDataAdapter("UPDATE user SET namaPelanggan='" & txtNamaPelanggan.Text & "',alamatPelanggan = '" & txtAlamatPelanggan.Text & "'," & _
                                            "noTelpPelanggan = '" & txtNoTelp.Text & "' WHERE idPelanggan = '" & txtIDPelanggan.Text & "'", konek)
            Dim dt As New DataTable
            mDA.Fill(dt)
            DataGridView1.Refresh()
            tampilPelanggan()
            aturTampilan()
            MsgBox("Data Pelanggan dengan ID : " & txtIDPelanggan.Text & " berhasil diupdate", vbInformation, "Tutorial Blog Guzko")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

kemudian setelah selesai silahkan agan jalankan aplikasi diatas dan lihat hasilnya..

oke dech gan selesai juga saya memposting tutorial tentang CRUD di VB.Net dengan menggunakan Database MySQL.
bila ada yang kurang jelas, silahkan agan tinggalkan jejak pada komentar

untuk source code lengkapnya silahkan agan download melalui link yang telah saya sediakan dibawah ini.

sekian dulu gan.... seee uuuu

• DOWNLOAD PROJECT