Aku Pake script beginian untuk search. namun ketika nama bukunya: Aplikasi Sistem Delphi. trus di search dengan kata Aplikasi Sistem dia keluar apa yang ada di database. Tapi ketika aku masukkan Aplikasi Delphi ga keluar sama sekali. ada yang tau salahnya dimana? Aku pake Interbase. [list=]procedure TForm1.Button1Click(Sender: TObject); var nama_buku:string; begin nama_buku:=uppercase(edit1.Text); dm.ibquery1.Close; dm.ibquery1.SQL.Clear; dm.ibquery1.SQL.Add('select * from jual where nama_buku like ''%'+nama_buku+'%'''); dm.ibquery1.Open; dm.ibquery1.close; dm.ibquery1.Open; end;[/list] Thanks Regards...[/list]

hah hari gini pake interbase...... :shock: Tapi gak papa jangan berkecil hati, coba pak adit pake contain ajah.......... :idea: coba yah coba

@Rogeb_Shewrite: hah hari gini pake interbase...... :shock:

Yah maklum nih Mas Rogeb, ini tugas kuliah yg diharuskan pake Interbase. Jadi mau gimana lagi.

@Rogeb_Shewrite: ...pake contain ajah..

contain gimana Mas...

@Rogeb_Shewrite: coba pak adit...

waduh jangan panggil Pak donk Mas. Belum tua nih.... he...he....

hehe sorry nih kirain Pak .... mas toh ....... mas adit kan pake like, nah cobain contain.BTW.. Kuliah dimana mas adit kok masih pake interbase gak pake fb, hiks.... :mrgreen:

@adit4it trouble dari listing mas yaitu hasil pencarian yang akan didapatkan jika masukan "Aplikasi Delphi" adalah tidak ada karena Query akan mencari data jika terdapat data yang %Aplikasi Delphi%. misal: Aplikasi Borland Delphi Aplikasi Bla..bla Delphi Aplikasi Delphi tujuh Bla..bla Aplikasi Delphi tujuh maka akan dihasilkan data Aplikasi Delphi tujuh Bla..bla Aplikasi Delphi tujuh jadi itulah masalahnya. klo pengen seperti google tinggal di split per kata az dengan memakai OR misal jika yang ingin dicari "Aplikasi Delphi" maka :

with dm.ibquery1 do
begin
  Close; 
  SQL.Clear; 
  SQL.Add('SELECT * FROM jual WHERE nama_buku LIKE '+QuotedStr('%Aplikasi%')+' OR nama_buku LIKE '+QuotedStr('%Delphi%'));  
  Open; 
end;

catatan u/ var nama_buku untuk dimasukkan ke sql lebih baik dibuat fungsi untuk split kata berdasarkan spasi.

Waduh tapi kok masih belum bisa ya mas2. aku udah pake dm.ibquery1.SQL.Add('select * from jual where nama_buku like '+QuotedStr('%'+nama_buku+'%')); atau scripnya Mas ImanD. Tapi ketika aku masukkan Aplikasi Delphi masih ga muncul tuh Mas. Gimana ya???

Yup.. setuju sama ImanD.. Kayaknya enakan dipecah dulu deh nama bukunya menjadi token2 terpisah berdasarkan karakter spasi... Yang ada dipikiran gue nih (berhubung dulu pernah bikin, tapi pake PHP).. 1. Trim dulu karakter spasi di depan dan dibelakang variabel nama_buku 2. pecah tiap kata dari variabel nama_buku berdasarkan karakter spasi ke dalam variabel array.. misal: "ini ibu budi", jadinya: data[0] = "ini", data[1] = ibu", data[2] = "budi" 3. Pake iterasi, rangkai sebuah query berdasarkan data misal : 'select * from jual where nama_buku like "%' + QuotedStr(data[0]) + '%" AND nama_buku like "%' + QuotedStr(data[1]) + '%" AND nama_buku like "%' + QuotedStr(data[2]) + '%" '; Kalo script dari ImanD gak jalan, coba rubah OR jadi AND... trus kalo masih gak jalan juga, coba ganti dari ... LIKE %'+QuotedStr('Aplikasi') + '% OR ... Kalo masih gak jalan juga, mendingan berlibur dulu.. refreshing.. hehehe..

Saran Pak Zeal untuk memecah kalimat menjadi kata-kata (token) berdasarkan karakter spasi memang lumrah dilakukan oleh search engine. Biasanya diwujudkan dengan minimal 2 tabel yg terhubung. Tabel yg pertama (parent) untuk menyimpan kalimat secara utuh, yg kedua (child) untuk menyimpan token/keyword. Tabel2 itu sederhana saja strukturnya. Jika anda butuh contoh, coba anda kunjungi http://www.databaseanswers.org/ Kalau tidak salah ingat disana ada contoh rancangan databasenya. Sebelum kalimat dipecah, biasanya dilakukan normalisasi, yaitu membuat kalimat menjadi bentuk standar sebelum pengolahan selanjutnya. Contoh proses normalisasi misalnya mengubah kalimat menjadi huruf besar, menghilangkan tanda baca, dsb. Sejauh mana normalisasi dilakukan tergantung kepada algoritma pencarian / matching yang akan anda gunakan selanjutnya. Yang harus diingat bahwa cara normalisasi yang sama juga harus dikenakan pada kalimat pencarian (query) yg diketikkan user. Setelah kalimat melalui tahap normalisasi, kemudian kalimat dipecahkan menjadi token2 dan disimpan pada tabel child, maka anda dapat melanjutkan proses yg spesifik dengan algoritma pencarian yg anda lakukan. Jika anda tidak menggunakan algoritma pencarian tertentu, maka anda dapat langsung melakukan pencarian dengan melakukan select pada tabel child yg secara prinsip mirip dengan saran dari pak ImanD. Hasilnya adalah key dari record pada tabel parent yg mengandung kata kunci tersebut. Selamat mengerjakan tugas. BTW, untuk topik skripsi/disertasi/thesis, algoritma cari-mencari & ranking hasil pencarian adalah topik yg "hot". Ingat bahwa Google sendiri berawal dari thesis PhD. Tapi topiknya silahkan cari sendiri di Google ya... :wink: jrp

@adit4it program yang aku bikin ditempatku jalan lhoooo. ya udah tuk test coba bikin aplikasi simple az. perintahnya samain dengan diatas. klo ga jalan kemungkinan perintahnya beda dengan yang aku buat. cobain yaaaa.