Arsip: koreksi coding untuk filter..

 
user image
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...
user image
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));
 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...
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.
user image
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...
user image
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'
user image
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...
user image
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.
user image
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 ....
user image
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 ?
user image
more 11 years ago

idhiel

filterx cuma sekali gan dan g ada coding lagi di rave..
user image
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
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com