Arsip: cari seperti mesin google

 
user image
more 18 years ago

adit4it

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]
user image
more 18 years ago

Rogeb_Shewrite

hah hari gini pake interbase...... :shock: Tapi gak papa jangan berkecil hati, coba pak adit pake contain ajah.......... :idea: coba yah coba
user image
more 18 years ago

adit4it

@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....
user image
more 18 years ago

Rogeb_Shewrite

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:
user image
more 18 years ago

cyber_hecker

kalo pada bagian
dm.ibquery1.SQL.Add('select  from jual where nama_buku like ''%'+nama_buku+'%'''); 
diganti dengan
dm.ibquery1.SQL.Add('select   from jual where nama_buku like '+QuotedStr('%'+nama_buku+'%')); 
gimana hasilnya ?
user image
more 18 years ago

ImanD

@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.
user image
more 18 years ago

adit4it

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???
user image
more 18 years ago

ZeAL

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..
user image
more 18 years ago

jrp

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
user image
more 18 years ago

ImanD

@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.
more ...
Share to

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

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