Arsip: koreksi coding untuk filter..

more 12 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 12 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 12 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 12 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 12 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 12 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 12 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 12 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 12 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
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- multi filtering pada TZTable
by ImanD in Tip n Trik Pemrograman more 17 years ago - KOPI DARAT DELPHI-ID 2008
by gust4m4n in OOT more 16 years ago - send email pada delphi 7
by shindo in Hal umum tentang Pascal Indonesia more 16 years ago - Finger Scan...
by budi_bunga in Hal umum tentang Pascal Indonesia more 18 years ago - Logic data untu penanganan inventory manufaktur
by grounders in Enginering more 18 years ago - clientdataset pada aplikasi client
by bad2001 in Bedah Kasus more 17 years ago - Handle Error Store Procedure
by supermuam in MsSQL more 16 years ago - menampilkan record?
by banja in FireBird more 15 years ago - Unique Identifier
by _aa_ in Tip n Trik Pemrograman more 17 years ago - capture data dari aplikasi lain
by nurez in Tip n Trik Pemrograman more 17 years ago