Microsoft Access & Visual Basic .Net : Edit, Hapus untuk Record

Sebelumnya setelah, koneksi database, menampilkan data, dan menambah data di pada bagian ini akan  membahas bagaimana cara mengubah dan menghapus data.

    Private Sub txtKode_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKode.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            sql = "select *from buku where kode ='" & txtKode.Text & "'"
            cmd = New OleDbCommand(sql, db)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows = True Then
                txtJudul.Text = dr.Item(1)
                txtPengarang.Text = dr.Item(2)
                txtPenerbit.Text = dr.Item(3)
                'MsgBox("Data di temukan")
            Else
                xkode = txtKode.Text
                txtKode.Text = xkode
            End If
            txtJudul.Focus()
        End If
    End Sub

    
    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        sql = "update buku set judul ='" & txtJudul.Text & "'," & _
       " pengarang='" & txtPengarang.Text & "'," & _
       " penerbit='" & txtPenerbit.Text & "'" & _
       " where kode = '" & txtKode.Text & "'"
        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Tampil()
    End Sub

    Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
        sql = "delete from buku where kode='" & txtKode.Text & "'"
        cmd = New OleDbCommand(sql, db)
        cmd.ExecuteNonQuery()
        Tampil()
    End Sub

vidio agar memperjelas dapat di lihat di halaman berikut :