Bu yazimda veritabanimizda bulunan bilgiler içinde arama yaparak istenilen sonucu bulma islemini nasil yapabilecegimizi anlatmaya çalisacagim. Veritabaninda arama islemi için sorgumuzda like ifadesini kullaniyoruz. Ayrica aramanin hangi biçimde yapilacagini da % isareti ile belirleyebiliyoruz. Bu ifade ile aramamizi aranacak olan kelimeyi veritabani içinde ilk harften itibaren yani soldan saga, arada arama ifadesi yani aranacak ifade hernagi bir kelimenin içinde bulunuyorsa ve son olarak sagdan sola yani tersten arama. Simdi bunlari verecegim bir örnekle açiklamaya çalisacagim.

Örnegimizde kullanacagimiz veritabani su sekilde olacak:

Kodlarimiz ise su sekilde olacak:

Public Sub arama(ByVal aranan As String)

If True Then

Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=" + Server.MapPath("isimler.mdb"))

baglanti.Open()

Dim sondan_arama As String = "select isim from ad where isim like'%" + aranan + "'"

Dim bastan_arama As String = "select isim from ad where isim like '" + aranan + "%'"

Dim ortadan_arama As String = "select isim from ad where isim like'%" + aranan + "%'"

'hangi arama türünü kullancaksak onu seçecegiz. Ben örnekte ortadan aramayi kullandim.

Dim adaptor As New OleDbDataAdapter(ortadan_arama, baglanti)

Dim tablo As New DataTable()

If adaptor.Fill(tablo) Then

GridView1.DataSource = tablo

GridView1.DataBind()

Else

Label1.Visible = True

Label1.Text = "Kayitlarimizda Böyle Bir Sonuc Bulunamadi !!!"

End If

baglanti.Close()

End If

End Sub

Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click

arama(TextBox1.Text)

End Sub

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

Label1.Visible = False

End Sub

'Arama yapmak için bu kodlari kullanacagiz. Ancak arama yöntemi için % ifadesi kullanimina dikkat etmeliyiz. Kodlarda tüm arama yöntemleri için sorgulari ayri ayri belirttim.

Veritabaninda arama islemini en kisa yoldan görmüs olduk...