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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 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 4 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
- Tolong sy Konksikan USB TO Serial RS232 dgn programku
by dedidavidbala in Network, Files, I/O & System more 13 years ago - socketconnection
by nda1312 in Hal umum tentang Pascal Indonesia more 18 years ago - Penanggalan
by Harun in Tip n Trik Pemrograman more 18 years ago - E-Book Here!
by ZeAL in OOT more 19 years ago - Project pdf
by yupi in Tutorial & Community Project more 17 years ago - da yang salah g' dengan source code Q
by arjuna_1982 in Hal umum tentang Pascal Indonesia more 15 years ago - Sumpah Progammer Pemuda
by LuriDarmawan in OOT more 13 years ago - Export to Ms.Word
by bboyz in Hal umum tentang Pascal Indonesia more 17 years ago - Form Biasa dengan Form MDI
by cartrun in Tip n Trik Pemrograman more 12 years ago - delphi 6 update 2
by wati in OOT more 12 years ago