Arsip: Seach pake ADOQuery
                
                   more 16 years ago
                  
              RoenZ
Hi All,
Saya mau tanya bagaimana caranya pake ADOQuery untuk fitur search data ?
Sekarang untuk fitur search data saya masi pakai cara Locate, tapi yang jadi permasalahan klo pake Locate, saya tidak dapat search pada bagian kata kedua.
Misalnya pada field Alamat --> Mangga Besar, ketika saya input kata Mangga --> Data ditemukan akan tetapi ketika saya search Besar --> Data tidak ditemukan.
Mohon penerangannya...
Thx.
                
                
                   more 16 years ago
                  
              danu
kalau pakai ADOQuery ya tinggal pake Query aja mas..
begini kira2.. 
Adoquery1.Close;
AdoQuery1.SQL.Text:=
'SELECT * FROM Nama_Tabel Where Alamat Like '+ '''' + '%' + namakomponen(mis:edit1.text) + '%' + '''';
Adoquery1.ExecSQL;
Adoquery1.Open;
InsyaAllah bisa, kalau ada trouble mungkin cuma sintaksnya aja, silahkan dicoba dulu..javascript:emoticon('8)')
 8)  8)  8)
                
                
                   more 16 years ago
                  
                
              AndyK
with DM.ADOQuery1 do
begin
   SQL.Clear;
   SQL.Add('Select * From TabelData Where Alamat like ''%'+Edit1.text+'%''');
   Open;
end;
edit1.text <- isi sama alamat yang dicari
if not DM.ADOQuery1.IsEmpty then
begin
   //tampilkan......
end
else
  //tampilkan pesan data tidak ada......
sukses Om........
                
                   more 16 years ago
                  
                
              RoenZ
@deLogic: coba di parameter LocateOptions nya, tambahkan loPartialKey.Sudah aku coba mas, tapi masi nga bisa klo pake loPartialKey. :? Begini kira-kira kodenya :
begin
      if DMCustomer.ADOTable1.Locate('Company_Name',Edit1.Text,[loPartialKey,loCaseInsensitive]) then
      ShowMessage('Data found !')
        else
      ShowMessage('Data not found !');
    end;
@AndyK:makasih banyak om atas code nya, tapi masukkin properti di ADOQuery apaan ya mas ? di property TStrings nya ? Soalnya aku bingung di syntax SQL nya... masi nubie banget nih.. :roll:edit1.text <- isi sama alamat yang dicariwith DM.ADOQuery1 do begin SQL.Clear; SQL.Add('Select * From TabelData Where Alamat like ''%'+Edit1.text+'%'''); Open; end;sukses Om........if not DM.ADOQuery1.IsEmpty then begin //tampilkan...... end else //tampilkan pesan data tidak ada......
                
                   more 16 years ago
                  
              AndyK
Connection-nya aza sambungin ke ADOConnection
udah itu doank...,
syntax SQLnya dicoding pencarian disimpennya, misalnya di ButtonOnClick ato OnKey
                
                
                   more 16 years ago
                  
              AndyK
waduh.. kepencet sumbit-nya...,heu.."
ato OnKeyPress.., disesuaikan saja Om...
                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 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 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 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago 
Random Topic
- compact db,compress exe
by ImanD in Enginering more 19 years ago - menampilkan record?
by banja in FireBird more 16 years ago - Pembayaran International - Paypal
by DelphiExpert in OOT more 18 years ago - postgre delphi
by fafenail in Hal umum tentang Pascal Indonesia more 19 years ago - Desktop VS Web Programming
by dannyong1999 in OOT more 18 years ago - pemisahan karakter pada komponen edit
by adit4it in Hal umum tentang Pascal Indonesia more 18 years ago - error connect MySQL ke komputer lain
by goehsatrio in MySQL more 18 years ago - Asking...???JPG
by latto in Multimedia & Graphic Enhancement more 14 years ago - Membuat Database Sendiri
by IdrisZZ in Hal umum tentang Pascal Indonesia more 17 years ago - Menampilkan Report dengan Grouping
by Anonymous in Reporting more 18 years ago 
