Dear All,
Mohon bantuannya, saya mau memfilter tanggal didatabase dan di tampilkan di
Listview.
Masalahanya adalah ketika parameter 2 menggunakan bulan yang berbeda dtanya
tidak mau tampil
Misalnya saya punya data
tanggal
05/05/2008
06/05/2008
25/06/2008
Jika saya sortir misalnya dari tanggal 01/05/2008 sampai 30/06/2008
Maka yang tampil hanya 05/05/2008, 06/05/2008
Sedangkan yang tanggal 25/06/2008 tidak tampil di Listview
Berikut saya lampirkan tampilan kodenya :
Private Sub cmdGenerate_Click()
If DTPicker1.Value DTPicker2.Value And DTPicker2.Value < DTPicker1.Value
Then
MsgBox "Periksa Tanggal inputan", vbInformation, "Perhatian"
Else
Set rsLembur = New ADODB.Recordset
rsLembur.Open "SELECT * FROM tblOverTime WHERE nik LIKE '" & cboNIK.Text &
"' AND TanggalMulai BETWEEN '" & DTPicker1.Value & "' AND '" &
DTPicker2.Value & "'", ConStr, adOpenKeyset, adLockOptimistic
lstLembur.ListItems.Clear
With rsLembur
If .RecordCount > 0 Then
While Not .EOF
lblNama.Caption = .Fields("NAMA")
TblLemburTittle.Caption = "Tabel Lembur" & " - "
& "[ " & lblNama.Caption & " ]"
'lblJmlJam.Caption = "Jumlah Lembur (Jam)" & " :
" & .Fields("JamTotal")
'lblJmlUang.Caption = "Jumlah Lembur (Uang)" & "
: " & .Fields("UangLembur")
Set lstItem = lstLembur.ListItems.Add(, , "" &
.Fields("NIK"))
lstItem.SmallIcon = 2
lstItem.SubItems(1) = .Fields("Nama")
lstItem.SubItems(2) = .Fields("TanggalMulai") &
" - " & .Fields("JamMulai")
lstItem.SubItems(3) = .Fields("TanggalSelesai")
& " - " & .Fields("JamSelesai")
lstItem.SubItems(4) = .Fields("JamTotal")
lstItem.SubItems(5) =
Format(.Fields("UangLembur"), "###,###,##0.00")
.MoveNext
Wend
End If
End With
End If
Mohon pencerahnnya
Terimakasih
Narif RS
