saya coba jawab ya,
dim rsfilm as adodb.recordset
dim sqlfilm as string
dim sqldelete as string
dim stat as string
if lvwfilm.listitem(lvwfilm.selectitem.index).subitem(6)="ada" then
sqldelete="delete * from tfilm where no='" &
lvwfilm.listitem(lvwfilm.selectitem.index).subitem(1) & "'"
elseif lvwfilm.listitem(lvwfilm.selectitem.index).subitem(6)="keluar" then
msgbox "Data telah keluar",vbexclamation,"Warning"
end if
lihat dia ada di item ke berapa itu contoh kalo itemnya ada di posisi 6
gitu aja sih
semoga membantu.
Dian Rahmadi <[EMAIL PROTECTED]> wrote: 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/
between 0000-00-00 and 9999-99-99
[Non-text portions of this message have been removed]
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
[Non-text portions of this message have been removed]
