cara ini bisa di coba, tapi mungkin ada cara yang lebih baik ya. silahkan
cari sendiri atau yang lain mungkin akan membantu.
sayang anda tidak menyebutkan anda pakai database apa,
ini untuk Ms SQL
data1.recordsource ="Select * from Nama_Table Where Cust_id='" & Cust_Id &
"' " & _
" and Tgl>='" & format(tglawal, "mm/dd/yyyy")
& "' " & _
" and Tgl<='" & format(tglakhir,
"mm/dd/yyyy") & "' "
ini untuk .MDB
data1.recordsource ="Select * from Nama_Table Where Cust_id='" & Cust_Id &
"' " & _
" and Tgl>=#" & format(tglawal, "mm/dd/yyyy")
& "# " & _
" and Tgl<=#" & format(tglakhir,
"mm/dd/yyyy") & "# "
**dengan catatan:
1. Format tanggal di regional setting adalah mm/dd/yy
silahkan ubah format tanggal dengan tanggal regional setting anda.
(sebaiknya biarkan default saja )
2. Coding-coding diatas saya langsung ketik dari email editor saya, jadi
saya belum sempet nyoba,
tapi saya jamin anda bisa coba dan berjalan.
3. pada beberapa kasus, karena kelalaian dalam mendesign struktur database/
pada pembuatan table, bisa saja terjadi kesalahan berikut:
a. programer salah atau ngga tepat dalam pengisian data tanggal atau
dalam menginput data.
contoh: data seharusnya bertipe date, tapi ternyata bertipe datetime
data seharusnya berisi '12/31/2000' tapi berisi
'12/31/2000 15:34'
hal ini akan menyebabkan code di atas tidak berfungsi dengan baik.
... " and Tgl<='" & Format(TglAkhir, "mm/dd/yyyy") & "' "
untuk itu, untuk mengantispasi data seperti itu, kita bisa gunakan /
modifikasi code tersebut menjadi seperti ini:
... " and Tgl<'" & Format(dateadd("dd", 1, TglAkhir),
"mm/dd/yyyy") & "' " atau
... " and Tgl<'" & Format(TglAkhir+ 1, "mm/dd/yyyy") & "'
"
b. pada penginputan data, mungkin anda melakukan ini:
"insert into nama_table(tgl, dan_lain_lain) values ('" & Tgl & "',
dan_lain_lain "
atau mungkin
data1.recordset.fields("tgl") = dtpicker_Tgl.value
hal di atas bisa menyebabkan jam ikut tersimpan di database. dan
akan menyebabkan point 3.a terjadi.
sekali lagi, semua ini saya ketik langsung dencan email editor saya, jadi
saya ga sempat untuk mengecek lagi perbaris atau mencobanya.
silahkan di coba-coba sendri. dan dipahami. ok
--
big smile and great regards in advance,
-----------------------------------------------------------------
Jacky Supit
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
dekstop or web programming,
anything i can do 4 you ;-)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-----------------------------------------------------------------
----- Original Message -----
From: sick of it all <mailto:[EMAIL PROTECTED]>
To: [email protected]
Sent: Tuesday, September 26, 2006 7:14 AM
Subject: [indoprog-vb] Sortir data di dbgrid
Dear Rekan VBers
Saya sedang buat penyortiran data berdasarkan "Kode Pelanggan" dan "Tanggal
Pembayaran", saya menggunakan DbGrid1, Data1,TxtPelanggan,DtAwal,DtAkhir,
dan CmdProses.
Saya sudah bisa jika pernyotirannya hanya berdasarkan TxtPelanggan saja
dengan code :
Data1.RecordSource = "Select * from QDetail_Invoice_Customer Where Cust_Id =
'" & TxtPelanggan.Text & "'"
klw ditambah dengan dengan periode DtAwal, DtAkhir bagaimana ya, yang nanti
hasilnya adalah "saya mendapatkan Pelanggan dengan range tanggal yang
berasal dari DtAwal dan DtAkhir. misalnya:
Cari data "C0001" periode "01/02/06" s/d "02/02/06"
C0001 Firman Buku Tulis 01/02/06 (Tampil)
C0001 Firman Pulpen 02/02/06 (Tampil)
C0001 Firman Penggaris 05/02/06 (Tidak)
Mohon bantuannya terima kasih.
Salam.
---------------------------------
All-new Yahoo! Mail - Fire up a more powerful email and get things done
faster.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
