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
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.
BalasHapusiya aq pake adodc. kalo yg pake koneksi ADODB bisa di coba yg ini bro:
BalasHapusSQL = "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
mantap. terima kasih sharing nya.
BalasHapusmakasih banyak gan
BalasHapus