dear team pakar Vb, aku minta tolong dong.
bagaimana caranya untuk mendelete data dari listview dgn data acces fieldnya
adalah:
no
kode_film
judul
qty
harga
status
status film aku buta 'ada' dan 'keluar'
kalau kita klik 2x di data listview, maka jika film berstatus 'keluar' tidak
bisa didelete tapi kalau status 'ada' baru bisa didelete.
akau udah coba script berikut tapi tetap aja terhapus semua :
Private Sub listView1_DblClick()
Dim i As Integer
Dim TempIndex As Integer
Dim strSQL As String
If ListView1.ListItems.Count = 0 Then
Exit Sub
'Form1.Show
End If
TempIndex = ListView1.SelectedItem.Index
TempKode = ListView1.ListItems.Item(TempIndex)
'Konfirmasi penghapusan record
jawab = MsgBox("Apakah Anda yakin Data " & kode_film & _
vbCrLf & " Akan dihapus ? ", vbInformation + vbYesNo)
If jawab = vbNo Then Exit Sub
If jawab = vbYes Then
strSQL = "select status FROM film " & _
"WHERE kode_film = '" & TempKode & "'"
Set RS_film = New ADODB.Recordset
RS_film.LockType = adLockOptimistic
RS_film.Open strSQL, con
On Error Resume Next
rsfilm.MoveFirst
rsfilm.Find "status" = "ADA"
If rsfilm.EOF Then
MsgBox "Kode film " & UCase(ListView1.ListItems) & _
" yang dicari tidak terdaftar !", vbInformation
Exit Sub
End If
'Pengeksekusian penghapusan
i = ListView1.SelectedItem.Index
ListView1.ListItems.Remove i
RS_film.Delete
End If
Exit Sub
End Sub
mohon bantuannya para pakar vb, aku lagi bikin untuk tugas akhir nih, please
ya......
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
[Non-text portions of this message have been removed]
