para pakar VB, minta tolong dong dgn scrip berikut :
Database acces.
Table Film :
- kode_film
- judul
- qty
- status ( “ada” & “keluar”)
kronologisnya :
jika judul film dgn qty 3 dan dipinjam 1 berarti tinggal 2 dgn status “keluar”.
Nah jika film akan dihapus dari database, maka akan diselecsi dgn status “ada”
jadi jika status ada maka bisa dihapus.
Ok, selanjutnya aku udah bikin scrip di Vb seperti ini :
Private Sub listView1_DblClick()
On Error GoTo ErrPesan
Dim i As Integer
Dim TempIndex As Integer
Dim strSQL As String
Dim tempKode, tempstatus As String
If listView1.ListItems.Count = 0 Then
Exit Sub
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
con.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path &
"\rental1.mdb"
If rsfilm.Fields("status") = "ADA" Then
strSQL = "DELETE FROM film where kode_film = '" & tempKode & "'"
con.Execute strSQL
MsgBox "DATA FILM TELAH DIHAPUS"
label6.Caption = "Total Record : " & rsfilm.RecordCount
i = listView1.SelectedItem.Index
listView1.ListItems.Remove i
End If
Exit Sub
ErrPesan:
MsgBox "Data belum bisa dihapus " & vbCrLf & " Film Masih diPinjam ",
vbInformation
End Sub
Tapi yg ada adalah masuk ke errpesan, sehingga data tidak bisa dihapus.
Mohon petunjuknya.
________________________________________________________
Kunjungi halaman depan Yahoo! Indonesia yang baru!
http://id.yahoo.com/
[Non-text portions of this message have been removed]
