Arsip: pencarian data berdasarkan dua field

more 17 years ago
Ayahe_Hasna
gmana pencarian data kalau berdasarkan dua field?
sy punya listing prog begini
if table1.findkey([NIS])=combTahun.text then
if table1.findkey([Kelas])=combKelas.text then
//tampil data
else
//data belum ada
end;
ternyata salah. gmana penyelesaianya?
trimakasih.

more 17 years ago
BorlandMania
table memp. keyfield NIS & KELAS ? coba ini mas :
untuk komponen ttable :
.....
If tTable.FindKey () Then
// Found
Else
// Not Found
.....
untuk komponen query :
.....
qQuery.Close;
qQuery.SQL.Clear;
qQuery.SQL.Add ('Select * [TableName] Where (NIS = :cNIS) And (Kelas = :cKelas)');
qQuery.ParamByName ('cNIS').AsString := meNIS.Text;
qQuery.ParamByName ('cKelas').AsString := meKelas.Text;
qQuery.Prepare;
qQuery.Open;
If Not qQuery.IsEmpty Then
// Found
Else
// Not Found
....
moga dikit membantu ... :wink:

more 17 years ago
Ayahe_Hasna
ya mas sy memp. key field NIS,tahun,komp,BP3,Jumlah dsb.
trus dlm menampilkan datanya blum bs N yg dr mas Borlan Mania blm sy coba
sy pakai dtbase paradoks.
smg bs N trima kasih.

more 17 years ago
asiyrob
kalo pake komponen TTable
coba yang ini
if (Table1.Locate('NIS;Kelas',VarArrayOf(),))then
begin
{data ada}
end
else
begin
{data ga' ada}
end;
kalo pake Komponen TQuery
bener punya @BorlandMania

more 17 years ago
Ayahe_Hasna
makasih semuanya. aq pakai TTable.
kl ada ksulitan aq tanya lg. makasih bnget......
more ...
- Pages:
- 1
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
- Licence Delphi
by anaconda in MySQL more 17 years ago - database jumlah pengunjung dgn delphi 7 koneksi port serial
by khokho in Hal umum tentang Pascal Indonesia more 16 years ago - ASK: Grant Role to User Gak Jalan?
by deLogic in FireBird more 18 years ago - cara menyembunyikan srollbar pd DBGRID ?
by imunk in Enginering more 19 years ago - nampilin jpg dari MySQL
by lela in MySQL more 19 years ago - Tanya Tentang Filter Database Paadox
by tAtA in Tip n Trik Pemrograman more 17 years ago - membuat function untuk menuliskan data ke memo ???
by jajang in Tip n Trik Pemrograman more 16 years ago - Finger Scan
by budi_bunga in Hal umum tentang Pascal Indonesia more 18 years ago - Mohon Petuahnya (Query di Stroreprocedure)
by supermuam in MsSQL more 16 years ago - InfraRed, bluetooth dan handphone
by frans_jp in Tip n Trik Pemrograman more 19 years ago