Dear Silvi ...
Coba setelah pernyataan :
if Jawab=yes, dituliskan :
IF JAWAB=VBYES THEN
STRSQL = "DELETE FROM FILEM WHERE KODE_FILM='" &
TempKode & "' AND STATUS='ADA'"
CON.EXECUTE STRSQL
MSGBOX "DATA FILM TELAH DIHAPUS"
ENDIF
Jangan lupa, sebelum perintah di atas, berikan kode
untuk menguji apakah status="ADA" atau "KELUAR", jika
keluar berikan perintah EXIT SUB pada blok IFnya. Juga
perlu diuji apakah film dengan kode yang dimaksud ada.
Semoga membantu...
--- SELVI OYE <[EMAIL PROTECTED]> wrote:
>
> 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]
>
>
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
