SIMPAN, EDIT, HAPUS, BATAL, DAN PENCARIAN pada VB.net (FULL dari awal pembuatan database hingga selesai)

Cara membuat SIMPAN, EDIT, DELETE, BATAL, PENCARIAN TAHAP 1 pada VB.net

Sebelumnya kita sudah membahas tentang cara membuat module koneksi dan menu login.
Sekarang kita lanjutkan dengan membuat menu simpan, edit, delete, batal, dan pencarian. Dimana
ke empat tombol inilah yang masih di bingungkan oleh pengguna vb.net.

Banyak teman saya menanyakan pada saya cara membuat ke empat tombol tersebut. Sudah saya jawab tapi teman satunya tanya lagi. Capek jawab akhirnya saya buat artikel ini. Jadi ketika saya di tanya lagi, saya suruh buka blog ini aja :). Perlu di ingat sebelum kita buat program yang berhubungan dengan database, kita membutuhkan module koneksi untuk menghubungkan database ke vb.net. Sebenarnya bisa juga menggunakan class tapi saya lebih suka menggunakan module karena lebih mudah.

Langsung saja ke pembahasan. Cara membuat program simpan, edit, delete, batal, dan pencarian pada vb.net ikuti langkah di bawah ini :

• Sebelum membuat koding kita logikakan dulu seperti ini. Jika tampil1 di tampilkan maka tombol perbarui di matikan (tidak bisa di klik). Jadi jika textbox1 tidak menemukan ID dari database, maka tombol perbarui tidak bisa di tekan. Yang bisa di klik adalah tombol simpan, hapus, kosongkan, tutup.

• Jika semua textbox dalam keadaan kosong di klik button simpan, maka akan muncul messagebox (data harus di isi).

• Jika semua textbox dalam keadaan kosong di klik button hapus, maka akan muncul messagebox (harus pilih data yang akan di hapus) dan ketika akan menghapus data ada pemberitahuan "yakin ingin hapus data ini?" jika pilih "yes" maka akan di hapus jika pilih "no" maka tidak di hapus dan data pada textbox di kosongkan.

1. Buka vb.net => buat form baru (kita umpamakan saja form ini adalah tampil1) => desain
tampilan dan berinama seperti gambar di bawah (tulisan warna merah adalah nama dari masing-masing).

2. Klik 2x pada tampil1 => isi koding seperti berikut (karena saya menggunakan database
ms.access, maka pakai oledb. nnt akan saya share juga jika menggunakan database sql).

Imports System.Data.OleDb

Public Class tampil1

    Dim pilihan As String

#Region "sub"
    Sub tampilgrid()
        da = New OleDbDataAdapter("select * from tbl_daftar", conn)
        ds = New DataSet
        da.Fill(ds)
        dgv.DataSource = ds.Tables(0)
        dgv.ReadOnly = True
    End Sub


    Sub ketemu()
        TextBox1.Text = dr.Item(0)
        TextBox2.Text = dr.Item(1)
        TextBox3.Text = dr.Item(2)
        TextBox4.Text = dr.Item(3)

        If dr.Item(4) = "Laki-laki" Then
            RadioButton1.Checked = True
        Else
            If dr.Item(4) = "Perempuan" Then
                RadioButton2.Checked = True
            End If
        End If

        ComboBox1.Text = dr.Item(5)
        TextBox7.Text = dr.Item(6)
        TextBox8.Text = dr.Item(7)
        TextBox9.Text = dr.Item(8)
        TextBox10.Text = dr.Item(9)
    End Sub


    Sub carikode()
        cmd = New OleDbCommand("select * from tbl_daftar where ID= '" & TextBox1.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
    End Sub

    Sub kosong()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        RadioButton1.Checked = False
        RadioButton1.Checked = False
        ComboBox1.Text = ""
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        TextBox10.Clear()
        Button4.Enabled = False
        Button1.Enabled = True
        TextBox1.Focus()
    End Sub


    Sub tampilbaru()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        RadioButton1.Checked = False
        RadioButton1.Checked = False
        ComboBox1.Text = ""
        TextBox7.Clear()
        TextBox8.Clear()
        TextBox9.Clear()
        TextBox10.Clear()
        TextBox2.Focus()
    End Sub

#End Region
   
    Private Sub tampil1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load
        Call koneksi()
        Call tampilgrid()
        TextBox1.Focus()
        Button4.Enabled = False
    End Sub


2. Klik 2x pada button simpan dan isikan koding seperti berikut :

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Data ada yang kosong")
        Else
            Try
                If RadioButton1.Checked = True Then
                    pilihan = RadioButton1.Text
                Else
                    If RadioButton2.Checked = True Then
                        pilihan = RadioButton2.Text
                    End If
                End If
                Call carikode()
                If Not dr.HasRows Then
                    Dim simpan As String = "insert into tbl_daftar values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & pilihan & "', '" & ComboBox1.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & "', '" & TextBox9.Text & "', '" & TextBox10.Text & "')"
                    cmd = New OleDbCommand(simpan, conn)
                    cmd.ExecuteNonQuery()
                End If
                Call kosong()
                Call tampilgrid()
            Catch ex As Exception
            End Try
        End If
    End Sub


3. Klik 2x pada button kosongkan dan isikan koding seperti berikut :

    Private Sub txtkosong_Click(sender As Object, e As EventArgs) Handles txtkosong.Click
        Call kosong()
    End Sub

4. Klik 2x pada button tutup dan isikan koding sebagai berikut :

    Private Sub txttutup_Click(sender As Object, e As EventArgs) Handles txttutup.Click
        Me.close()
    End Sub

5. Klik 2x pada textbox1. Buat text changednya (kanan atas) jadi keypress dan isikan koding sebagai berikut :
(logikannya jika setelah mengisikan ID pada textbox 1 tekan enter dan menemukan baris maka panggil ketemu. Jika tidak menemukan baris maka panggil tampilbaru).

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Call carikode()
            If dr.HasRows Then
                Call ketemu()
                Button1.Enabled = False
                Button4.Enabled = True
            Else
                Call tampilbaru()
                Button4.Enabled = False
                Button1.Enabled = True
            End If
        End If

    End Sub

End Class

6. Setelah semua selesai buat koding seperti di atas, jalankan program / start dan klik button simpan. Maka data yang anda simpan akan masuk ke database anda. Untuk kelanjutan pembuatan button edit dan hapus, KLIK DISINI.

Karena artike ini sudah terlalu panjang, untuk button edit dan delete saya pisahkan dengan artikel lainnya. Sekian dan semoga bermanfaat. Terimakasih.