Arsip: koreksi coding untuk filter..

more 8 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 8 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 8 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 8 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 8 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 8 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 8 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 8 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 8 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Login admin / User Delphi-Access
by lukman_ais in Lain-lain more 12 years ago - Tanya Kenapa !!!
by tAtA in Tip n Trik Pemrograman more 14 years ago - Label barcoce
by Iansx in Tip n Trik Pemrograman more 14 years ago - cara membuat grafis (gambar) pada delphi??
by meyde23 in Multimedia & Graphic Enhancement more 12 years ago - cari component
by alfian in Enginering more 15 years ago - Program setting dial-up menggunakan delphi
by em052007 in Bedah Kasus more 13 years ago - tanya cara Export Delphi ke XLS
by yehez_kiel in Tip n Trik Pemrograman more 14 years ago - Sertifikasi Delphi-ID
by ImanD in Moderator Only more 10 years ago - tutorial QuickReport
by strike_set in Reporting more 13 years ago - INDY (Internet Direct)
by vercaso in Tutorial & Community Project more 13 years ago