Arsip: koreksi coding untuk filter..

more 11 years ago
idhiel
mohon pencerahannya master...
mohon koreksi coding z berikut ini ...
procedure TForm8.sButton11Click(Sender: TObject);
begin
dm.ADOQuery2.Close;
dm.ADOQuery2.SQL.Text := 'select noref,nama,addrs,upload,kode_kurir,antar,bank from data '
+'where bank like '+QuotedStr('%'+scombobox3.Text)
+'and kode_kurir like '+QuotedStr('%'+look.Text)
+' and DTOS(upload) between ' +QuotedStr(formatdatetime('yyyymmdd',dtp1.date))+' and '+ QuotedStr(formatdatetime('yyyymmdd',dtp2.date));
dm.ADOQuery2.ExecSQL ;
dm.ADOQuery2.Open;
dm.RvProject1.ProjectFile := 'D:\Skripsi\pending.rav';
dm.RvProject1.Execute;
dm.RvProject1.ExecuteReport('pending.rav');
end;
kode di atas untuk menampilkan data di report..
masalahnya adalh kode di atas tdk berhasil memfilter apa yg diinginkan ...
database = foxpro..
mohon bantuannya para master...
more 11 years ago
hendrang67
@idhiel: mohon pencerahannya master... mohon koreksi coding z berikut ini ...procedure TForm8.sButton11Click(Sender: TObject); begin dm.ADOQuery2.Close; dm.ADOQuery2.SQL.Text := 'select noref,nama,addrs,upload,kode_kurir,antar,bank from data ' +'where bank like '+QuotedStr('%'+scombobox3.Text) +'and kode_kurir like '+QuotedStr('%'+look.Text) +' and DTOS(upload) between ' +QuotedStr(formatdatetime('yyyymmdd',dtp1.date))+' and '+ QuotedStr(formatdatetime('yyyymmdd',dtp2.date)); ShowMessage(dm.ADOQuery2.SQL.Text); <-- taruh code ini di sini dm.ADOQuery2.ExecSQL ; dm.ADOQuery2.Open; dm.RvProject1.ProjectFile := 'D:\Skripsi\pending.rav'; dm.RvProject1.Execute; dm.RvProject1.ExecuteReport('pending.rav'); end; dengan ShowMessage(dm.ADOQuery2.SQL.Text) ini bisa dilihat apa hasil dari SQL ini, spt nilai konstanta dari scombobox3.Text, look.Text, dtp1.date dan dtp2.date dan bisa diketahui kenapa hasil filter tidak sesuai yang diharapkan.kode di atas untuk menampilkan data di report.. masalahnya adalh kode di atas tdk berhasil memfilter apa yg diinginkan ... database = foxpro.. mohon bantuannya para master...procedure TForm8.sButton11Click(Sender: TObject); begin dm.ADOQuery2.Close; dm.ADOQuery2.SQL.Text := 'select noref,nama,addrs,upload,kode_kurir,antar,bank from data ' +'where bank like '+QuotedStr('%'+scombobox3.Text) +'and kode_kurir like '+QuotedStr('%'+look.Text) +' and DTOS(upload) between ' +QuotedStr(formatdatetime('yyyymmdd',dtp1.date))+' and '+ QuotedStr(formatdatetime('yyyymmdd',dtp2.date)); dm.ADOQuery2.ExecSQL ; dm.ADOQuery2.Open; dm.RvProject1.ProjectFile := 'D:\Skripsi\pending.rav'; dm.RvProject1.Execute; dm.RvProject1.ExecuteReport('pending.rav'); end;

more 11 years ago
idhiel
maaf gan..
aq g ngerti maksud agan but klo aq ikutin cara agan yg tampil dalam message adalah query sql dari adoquery itu sendiri...
select noref,nama,addrs,upload,kode_kurir,antar,bank from data where bank like '%BII' and kode_kurir like '%MS' and DTOS(upload) between '08/06/2012' and '20/06/2012'
mohon pencerahannya lagi gan...

more 11 years ago
hendrang67
@idhiel: maaf gan.. aq g ngerti maksud agan but klo aq ikutin cara agan yg tampil dalam message adalah query sql dari adoquery itu sendiri... select noref,nama,addrs,upload,kode_kurir,antar,bank from data where bank like '%BII' and kode_kurir like '%MS' and DTOS(upload) between '08/06/2012' and '20/06/2012' mohon pencerahannya lagi gan...Masalahnya ada di ini : DTOS(upload) between '08/06/2012' and '20/06/2012' seharusnya yg muncul DTOS(upload) between '20120608' and '20120620'

more 11 years ago
idhiel
maaf gan..ralat sedikit hasil codingx hingga tampilanx seperti ini...
select noref,nama,addrs,upload,kode_kurir,antar,bank from data where bank like '%BII' and kode_kurir like '%MS' and DTOS(upload) between '20120605' and '20120622'
but tetep aja semua data tampil di laporan...
mohon pencerahn lagi gan...

more 11 years ago
hendrang67
@idhiel: maaf gan..ralat sedikit hasil codingx hingga tampilanx seperti ini... select noref,nama,addrs,upload,kode_kurir,antar,bank from data where bank like '%BII' and kode_kurir like '%MS' and DTOS(upload) between '20120605' and '20120622' but tetep aja semua data tampil di laporan... mohon pencerahn lagi gan...Kalau dilihat SQL nya sudah benar dan tidak mungkin Querynya menghasilkan semua data seakan2 tidak ada filter. Mungkin Rave nya yg harus diperiksa misalnya apakah Rave nya benar mengambil data dari hasil query dm.ADOQuery2. Saya tidak pernah pakai Rave Report jadi tdk mengerti caranya, tp untuk memastikan bahwa querynya sudah benar atau tidak coba tampilkan hasil query ADOQuery2 di TDBGrid dulu untuk lht hasil querynya, kalau DBGRid menampilkan data Query dengan benar maka yang harus di cek di Rave Reportnya.

more 11 years ago
idhiel
klo di dbgrid filterx dah bener gan ...
settingan ravex aq rasa juga dah bener...
klo codingx dah bener, lalu knp di report tampil semua datax gan...
jadi, masalahx ada dimana gan ..???
mohon pencerahnnx lagu gan ....

more 11 years ago
hendrang67
@idhiel: klo di dbgrid filterx dah bener gan ... settingan ravex aq rasa juga dah bener... klo codingx dah bener, lalu knp di report tampil semua datax gan... jadi, masalahx ada dimana gan ..??? mohon pencerahnnx lagu gan ....Berarti masalahnya di Rave. Maksud mu dari hasil query ini dilakukan filter lagi ya ? Filter nya di ADOQuery atau di komponent Rave ? ( apa di TRvDataSetConnection ? ) Kalau di komponent Rave di Event apa dan apa code nya ?

more 11 years ago
hendrang67
@idhiel: filterx cuma sekali gan dan g ada coding lagi di rave..Jadi cuma ada filter di AdoQuery aja dan Filter nya benar kalau di TDbGrid, sedangkan di komponen Rave nya tidak ada code filter atau code apa2 di event lainnya. Apa pengaruh dari setting property di komponen Rave yah. Saya tidak pakai Rave report , mungkin member lain di sini bisa membantu. Tapi kalau sebelumnya setting property default di komponen Rave pernah di ubah, bisa di test dengan pakai komponent rave TRvProject baru misal (RvProject2) dan komponen rave lain yg baru untuk execute report nya tanpa mengubah setting property Default nya.
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- [release] PooLander!
by ZeAL in Games more 18 years ago - ThumnalList By saysansay
by saysansay in Tip n Trik Pemrograman more 17 years ago - App Pemesanan Makanan, Multiuser atau Client Server ?
by echo_crazz in Network, Files, I/O & System more 12 years ago - Maaf Posting thread yang ter-lock
by n3o_cybertech in Moderator Only more 14 years ago - Error yang ga bisa nyelesaikannya!
by Shodddd in Tip n Trik Pemrograman more 15 years ago - Barcode
by anak_s0leh in Tip n Trik Pemrograman more 14 years ago - Database Selain Access
by khairulfahmi in Hal umum tentang Pascal Indonesia more 16 years ago - fungsi count
by novicute in Paradox more 17 years ago - help ttg infopower
by petrucc1 in Tip n Trik Pemrograman more 15 years ago - Soempah Pemoeda
by LuriDarmawan in OOT more 13 years ago