Database arama

[MeHMaTRiX]

selam millet naber alın size ufak bir database arama scripti.Çok işe yarıyor hepinize tavsiye edrim tabi intternette bir sürü arama scripti var ama kendiniz bir şeyler eklemek ya da oluşturmak isterseniz işte size en sade haliyle kodlar. Herşeyin ne işe yaradığı yazılı. Güle güle değiştirin kullanın.

<%
'Data bağlantınızı kurduğunuzu var sayıyorum.
'Formdan gelen veriyi alıyoruz.
'Dikkat ederseniz Request.Form şeklinde yazmıyoruz bunun nedeni eğer arama
sonuç kısmında sayfalama yapacaksanız Request kullanılması
gerekmektedir.Eğer biz burada Request.Form kullanmış olsaydık 2. sayfayı
tıkladığımızda bütün kayıtlar çıkacaktı.Çünkü Reuest.form olarak
belirlemiştik.Normalde 2. sayfa tıkladığımızda Request.QueryStringle
gitmektedir ama biz Request.Form yaptığımız için bütün bilgiler
çıkmaktadır.Bu nedenden dolayı burada sadece Request kullanmalıyız.
'aranan form alanının ismi
aranan=Request("aranan" )
Set ObjRs = Server.CreateObject("ADODB.Recordset" )
Strsql = "Select * from musteriler where ad_soyad like '%" &aranan&"%'
order by ad_soyad asc"
ObjRs.Open Strsql,ObjCon,1,3
'Burada If ile aranılan kayıt bulunamazsa uyarı çıkartıyoruz.
If ObjRs.Eof Then
'Response.Write ile uyarıyı yazdırıyoruz.Dikakt ederseniz font size = 2
bunun html kodu içinde şu şekilde olması gerekiyor font size ="2" ama
Response.Write bu şekilde yazmış olsaydık hata alırdık.
Response.Write "<font size=2 color=#000000> Kayıt Bulunamadı ! !
!"
'Else yapılacak işlem doğru ise yukarıdaki yazıyı yazmamızı sağlıyor.Yani
eğer aranan bulunamadı ise If de belirtmiştik ya işte onu doğruluyor.
Else
'Burada bir döngü kuruyoruz.
Do While not musteriler.Eof
'Do While dönüsü hakkında : Bir başlangıç Bof bir de sonuç Eof değeri
vardır. Burada döngümüz recordset'in ilk kaydından başlıyarak Eof değerine
gelene kadar recordsetin bütün kayıtlarına bakacaktır.Eğer kayıt Eof
değilsede tekrar MoveNext ile döngünün başına geçer.Eğer eof değerini
görürse döngü biter ve işleme alınır.Kısacası bu kod bize kayıtları baştan
sona taramamızı sağlamaktadır.Böyleliklede eof ve bof olaylarını anlamış
olduk. Bir kodun içinde de ufak bir ders vermiş olduk.
%>

Şimdi ise aranan bulunursa bilgiler çıkacak.
<%=ObjRs("ad_soyad" ) %>
Daha sonra kayıtların sıralanmasını yapıyoruz.
<%
'yukarıda moveNexti açıklamıştık.
musteriler.Movenext
'Her Do diye başladığınızda mutlaka Loop eklemelisiniz yoksa hata alırsınız.
Loop
'yukarıda Else işlemler doğru ise yapılacakları belirliyordu eğer doğru
değil ise de yani kayıt bulunursa yukarıdaki işlemleri yapacak.Buradan şu
sonucu çıkartıyoruz. if'le Else arası eğer istenilen bulunamıyorsa
yapılacak işlemler.Else End If arası ise eğer istenilen var ise yapılacak
işlemler oluyor.Bir scripte ne kadar If kullanılırsa o kadarda End If
kullanılmalıdır.Yukarıdaki If i End If şeklinde kapatmış oluyoruz.Eğer
Elsenin altına End If i koymuş olsaydık aradığımız sonuç bulunsa bile
kayıtlar gözükmeyecekti.
End If
%>

Kolay Gelsin