Cara Menghapus Record Tabel Dengan VB 6 Dan Access

Sebelumnya kami sudah membuat artikel mengenai penyimpanan data ke dalam database dengan VB6 dan Access. Pada kesempatan ini kami akan membuat artikel dengan judul Cara Menghapus Record Tabel Dengan VB 6 Dan Access.

Singkat saja berikut Cara Menghapus Record Tabel Dengan VB 6 Dan Access.

1. Buka project sebelumnya masih menggunakan design yang kita buat pada artikel sebelumnya (Cara Menyimpan Data Ke Dalam Database Access Dengan VB6). Jika baru pertama kali mengikuti bisa design kembali seperti gambar berikut ini.




2. Masukkan script berikut ini



Dim Db As New ADODB.Connection
Private Sub Koneksi()
Dim Constr As String

Constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DbLatihan.accdb"
Db.Open Constr

End Sub

Private Sub ListViewData()
Dim sql As String
Dim rs As New ADODB.Recordset
Dim Ldata As ListItem

sql = "Select * From tbBarang"
rs.Open sql, Db, adOpenDynamic, adLockOptimistic

ListView1.ListItems.Clear

Do While Not rs.EOF
    Set Ldata = ListView1.ListItems.Add(, , rs.Fields("KodeBarang"))
        Ldata.SubItems(1) = rs.Fields("NamaBarang")
        Ldata.SubItems(2) = rs.Fields("Harga")
    rs.MoveNext
Loop
End Sub

Private Sub CmdHapus_Click()
Dim sql As String

sql = "Delete From tbBarang Where KodeBarang = '" & txtKodeBarang & "'"
Db.Execute sql

MsgBox "Data berhasil disimpan!", vbInformation

ListViewData
End Sub

Private Sub CmdSimpan_Click()
Dim sql As String

sql = "Insert into tbBarang (KodeBarang,NamaBarang,Harga) " & vbCrLf & _
      "Values ('" & txtKodeBarang & "','" & txtNamaBarang & "'," & txtHarga & ")"

Db.Execute sql

MsgBox "Data berhasil dihapus!", vbInformation

ListViewData
txtKodeBarang = ""
txtNamaBarang = ""
txtHarga = ""
End Sub

Private Sub Form_Load()
    Call Koneksi
    Call ListViewData
End Sub

Private Sub ListView1_DblClick()
    txtKodeBarang.Text = ListView1.SelectedItem
    txtNamaBarang.Text = ListView1.SelectedItem.SubItems(1)
    txtHarga.Text = ListView1.SelectedItem.SubItems(2)
End Sub



3. Coba sekarang jalankan kemudian double klik salah satu data di dalam Listview.



4. Setelah itu klik tombol Hapus. Kami coba hapus kode barang B05, maka hasilnya terhapus langsung.

Sekian dari blog pandai VB. Semoga cepat pandai VB.

Related Posts:

Tweet