Visual Basic Veri Tabanında Arama Yapma Örneği - Ders 10

[Kursad-45]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Veri Tabanında Arama Yapma Örneği​

Bir kayıt bilgisinin veri tabanında olup olmadığını belirlemek için arama işlemi yapmanız gerekmektedir. Bu işlem için öncelikle aranacak bilginin bir yazı kutusu ile kullanıcıdan alınması daha sonra da veri tabanında arama yapılması gerekmektedir. Bilginin bulunup bulunmadığı bilgisi yine yazı kutusu ile kullanıcıya verilebilir.

Arama için yapacağınız işlemler aşağıdaki gibidir:

"ornek.mdb" veritabanına "deneme" ve "veri aktarim" olmak üzere iki adet kayıt daha giriniz.

"ornek.frm" üzerine bir yazı kutusu ekleyiniz, "Text" özelliği boş olsun.

"ornek.frm" üzerine bir komut düğmesi ekleyiniz, "Caption" özelliği ara olsun. Bu komuta aşağıdak prosedürü ekleyiniz.

Private Sub Command3_Click()

Set Db = OpenDatabase("c:\bg\telif\vb\ornek.mdb")

Set Rs = Db.OpenRecordset("tblornek", dbOpenSnapshot)

Do While Not Rs.EOF

If Text1.Text = Rs!Yazi Then

Text1.Text = "Bulundu"

Else:

Rs.MoveNext

End If

Loop

If Text1.Text <> "Bulundu" Then Text1.Text = "Bulunamadi"

End Sub
Programı çalıştırdıktan sonra yazı kutusuna "Deneme" girip "Ara" düğmesini tıklarsanız yazı kutusu üzerine "Bulundu" yazısı görüntülenecektir. Eğer "Ornek" girip yine "Ara" düğmesini tıklarsanız bu kez de "Bulunamadı" yazısı görüntülenecektir.

Emeğe Saygı Lütfen Bi' Yorum + Repi Çok Görmeyin...

Kursad-45 Farkıyla...

 

[kolikantos]

Güzel işe yarıyor...
Sanırım her visualde çalışır..

 

[Kursad-45]

Sanırım.

 

[Pestimackers]

Güzel Optimistics den. mod'umuza söylersen Sabitler Bence

 

[kutlucan1]

Teşekkürler.