Arsip: Menentukan Jumlah Yang Difilter Pada Query ?

more 17 years ago
umarbakri
Mohon pencerahannya dong...
Gimana cara menentukan jumlah record pada query yang diFilter ?
Gambaranya begini :
Aku ada menyeleksi sebuah tabel (misal tabelA) dengan QueryA, dari hasil query tersebut diperolehlah data yang kita inginkan dan Jumlah recordnya bisa kita tampilkan sbb :
Panel16.Caption := inttostr(QueryA.RecordCount);
Nah ..., setelah itu QueryA tadi Aku Filter dari Eventnya, untuk menampilkan lagi dari kreteria yang udah kita buat pada QueryA tadi.
Gimana agar jumlah record sesuai dengan hasil record setelah diFilter ya..?
Karena setelah filternya aku aktifkan jumlah record tidak berubah dan yang berlaku masih record QueryAnya bukan record Filternya.

more 17 years ago
DelphiExpert
- hitung manual menggunakan cara konvensional (while not eof) atau
- jangan gunakan filter, gunakan query biasa, masukkan filter di WHERE clause :mrgreen:

more 17 years ago
e_soep
-btw gini...
adoquery1.active:=false;
adoquery1.sql.text:='select * from data where status=1';
adoquery1.active:=true;
panel16.caption:=adoquery1.field[2].asstring;
-----yg di filter adalah tabel data yg statusnya 1...
mungkin temen2 yg lain ada saran?...

more 17 years ago
nurez
mugikn ini bs ngebantu.. atau sama ..?
begin
SQL.text:=('select * from table1 where mid(nama,1,2)=:nama'); // filternya di where//
parameters[0].value:=b.text;
execsql;
open;
label2.Caption:= inttostr(QueryA.RecordCount);
end;
nanya nya kurang jlas, atau sY yg kurang ngerti??? klo mau di filter lgg.? buat filter baru lgg ajha.. i hope its helps u

more 17 years ago
umarbakri
Kalau diFilter mengunakan Query Lagi Ane Sih Tau ...
Maksud Ane Tanpa menggunakan Query Lagi, biar agak simple lah jadi Ane gunakan OnFilterRecord pada QueryA_nya tersebut ... dan hasil Flternya sih bisa Tampil di DataSource tapi jumlah recordnya masih Jumlah record hasil QueryA (ngak sesuai dengan jumlah record hasil OnFilterRecord_nya ) :roll: :roll:

more 17 years ago
umarbakri
Atau Gini aja deh...
Pernah kagak menggunakan OnFilterRecord pada suatu tabel ...
Kalau pernah, gimana cara kita menentukan jumlah record hasil OnFilterRecord tabel tersebut ?

more 17 years ago
zieborg
mas Umarbakri, untuk koneksi databsenya pakenya komponent apa ya?
kalo pake ADO ato BDE ngga ada masalah, bisa kok menghitung record setelah difilter, dan hasilnya ya bener, sesuai dengan kriteria filter kita

more 17 years ago
umarbakri
Kasus Ane begini :
WITH QSHOW DO
begin
Active := False;
Sql.Text := 'Select NIMHSMSMHS,NMMHSMSMHS,STMHSMSMHS,TGLLSMSMHS,TGMSKMSMHS,' +
'TPLHRMSMHS,TGLHRMSMHS,KDJEKMSMHS,ALAMTMSMHS,STPIDMSMHS,ORTUMSMHS AS NAMA_ORANG_TUA,SHIFTMSMHS from msmhs where KDPSTMSMHS = ' + QuotedStr(copy(combobox2.Text,1,5)) +
'and KDJENMSMHS = ' + QuotedStr(copy(combobox3.Text,1,1)) +
'and STMHSMSMHS = ' + QuotedStr(copy(combobox4.Text,1,1)) +
'and LEFT(NIMHSMSMHS,2) = ' + QuotedStr(copy(combobox1.Text,3,2)) +
'ORDER BY LEFT(NIMHSMSMHS,2),RIGHT(NIMHSMSMHS,3)';
Active := True;
end;
Nah dari hasil query tsb khan bisa memunculkan jumlah recordnya misalnya :
label2.Caption:= inttostr(QShow.RecordCount);
Kemudian Hasil QUery Tadi Aku Filter MElalui ONFILTERRECORD pada Querynya untuk mencari Jenis Kelamin Laki dan permpuannya dengan melalui tombol 'Jumlah Laki-Laki' dan tombol 'Jumlah Perempuan' lalu aku munculkan lagi dengan
label2.Caption:= inttostr(QShow.RecordCount);
Nah Hasilnya Jumlahnya kagak berubah ,... Pusing dech....

more 17 years ago
zieborg
Ya, saya cobanya juga ADO+MSSQL dan bisa
coba filternya ditaruh di tombol 'Jumlah Laki-laki' dan 'Jumlah Perempuan', jadinya kurang lebih begini :
QSHOW.filtered := false;
QSHOW.filter := 'KDJEKMSMHS=''L''';
QSHOW.filtered := true;
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
- Mohon Pencerahan Delphi + .pdf...
by umarbakri in Multimedia & Graphic Enhancement more 17 years ago - Exe dengan Parameter
by machomen in Hal umum tentang Pascal Indonesia more 19 years ago - Setting Untuk Client???
by bayu in MySQL more 17 years ago - nilai max query
by yayaretina in MySQL more 18 years ago - otomatis click di caption pada sebuah form
by wati in Hal umum tentang Pascal Indonesia more 13 years ago - Embedding the Project in the Executable
by paidi in Tip n Trik Pemrograman more 14 years ago - Chatting !
by onClinic in OOT more 17 years ago - MySQL Migration Toolkit
by umarbakri in Hal umum tentang Pascal Indonesia more 18 years ago - T[ASK] Tentang DBExpress baru make bingung :)
by lord_kimm in Tip n Trik Pemrograman more 18 years ago - ZStoredProc?
by kupretkutu in MySQL more 18 years ago