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

SIMPAN, EDIT, DELETE, BATAL, PENCARIAN TAHAP 2

Kelanjutan dari button simpan, sekarang kita bahas button edit dan hapusnya yang mana databasenya menggunakan ms.access. Ok langsung saja. Agar anda tahu alurnya baca dulu : Cara membuat program simpan, edit, delete, batal, dan pencarian.

Dan ini adalah tampilan formnya :

Ini adalah kelanjutanya. Ikuti langkah-langkah berikut.

1. Klik 2x button perbarui pada form => copy paste koding berikut ke dalam tombol perbarui.

 If TextBox1.Text = "" Then
            MsgBox("Cari data yang ingin de perbarui")
        Else
            Try
                If RadioButton1.Checked = True Then
                    pilihan = RadioButton1.Text
                Else
                    If RadioButton2.Checked = True Then
                        pilihan = RadioButton2.Text
                    End If
                End If
                If dr.HasRows Then
                    Dim edit As String = "update tbl_daftar set nama='" & TextBox2.Text & "', alamat='" & TextBox3.Text & "', tgl_lahir='" & TextBox4.Text & "', jenis_kelamin='" & pilihan & "', status='" & ComboBox1.Text & "', telp='" & TextBox7.Text & "', NIK='" & TextBox8.Text & "', jabatan='" & TextBox9.Text & "', tgl_masuk='" & TextBox10.Text & "' where ID='" & TextBox1.Text & "'"
                    cmd = New OleDbCommand(edit, conn)
                    cmd.ExecuteNonQuery()
                End If
            Catch ex As Exception
            End Try
        End If
        Call tampilgrid()
        Call kosong()

Ini adalah contoh gambarnya :

2. Untuk button edtinya sudah selesai. Sekarang untuk button hapusnya, klik 2x button hapus pada formnya, copy paste koding ini ke dalam button hapus.

 If TextBox1.Text = "" Then
            MsgBox("pilih data yang akan di hapus")
            Exit Sub
        End If
        If Not dr.HasRows Then
            MsgBox("ID tidak terdaftar")
            TextBox1.Focus()
            Exit Sub
        End If
        If MessageBox.Show("yakin ingin hapus ?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            Dim hapus As String = "delete from tbl_daftar where ID= '" & TextBox1.Text & "'"
            cmd = New OleDbCommand(hapus, conn)
            cmd.ExecuteNonQuery()
            Call kosong()
            Call tampilgrid()
        Else
            Call kosong()
            Call tampilgrid()
            Me.Show()
        End If

Ini adalah contoh gambarnya :

3. Nah sekarang coba jalankan program atau tekan F5 pada keyboard. Jika anda mengikuti cara di atas dengan bernar, pasti program berjalan dengan baik. Jika masih ada yang bingung dan ingin bertanya, silahkan tulis komentar di bawah. Akan saya bantu sebisa mungkin. Sekian dan semoga bermanfaat. Terimakasih.