Kamis, 30 Agustus 2012

Filtering Data


FILTER DATAGRID
Private Sub txtcari_Change()
If txtcari.Text <> "" Then
        adobarang.Recordset.Filter = "kode_barang like '*" & txtcari.Text & "*'"
    Else
  adobarang.Refresh
End If
End Sub

FILTER BERDASARKAN TANGGAL MULAI DAN TANGGAL AKHIR

Private Sub cmdfilter_Click()
adoabsensi.RecordSource = "select * from absensi where day(tanggal)>= " & Day(CDate(TXTMULAI.Value)) & " and day(tanggal)<= " & Day(CDate(TXTSAMPAI.Value)) & " and Month(tanggal)>= " & Month(CDate(TXTMULAI.Value)) & " And Month(tanggal)<= " & Month(CDate(TXTSAMPAI.Value)) & " and Year(tanggal)>=" & Year(CDate(TXTMULAI.Value)) & " and Year(tanggal)<=" & Year(CDate(TXTSAMPAI.Value)) & " AND idpegawai='" & adopegawai.Recordset!idpegawai & "'"
adoabsensi.Refresh
End Sub


4 komentar:

  1. Source Code tersebut di atas Program nya pake Adocd1 apa gak Bro..? yang ga pake Adocd1 menggunakan Data MySQL gimana tuh bro Source Code nya..?? Ane perlu nih.. Sorry Brother.. Mohon bantuan nya.. makasih.

    BalasHapus
  2. iya aq pake adodc. kalo yg pake koneksi ADODB bisa di coba yg ini bro:

    SQL = "select sum(subtotal) as tot from view_beli where faktur='" & global_faktur & "' and kodeuser= '" & pengguna & "'"
    dbview_beli.Open KONEKSI
    Set rs = dbview_beli.Execute(SQL)
    txttotal.Text = rs!tot
    dbview_beli.Close

    BalasHapus
  3. mantap. terima kasih sharing nya.

    BalasHapus

hay friend... sebelum exit, jgn lupa tinggalkan comment dulu ya...
kalau mau bertanya bisa tulis komentar atau email/fb ke: aranama@ymail.com
thank you...