Ali Onur Aydemir Forum

Tatil Giriyoruz
Tel:05395003597
Tel:0537 058 04 25

Ali Onur Aydemir Forum Hoşgeldiniz

Anahtar-kelime

Anahtar-kelime

En son konular

» Forum Genel Kuralları
C.tesi Ara. 30, 2017 5:59 am tarafından Ali Onur Aydemir

» ALİ ONUR AYDEMİR
C.tesi Ara. 30, 2017 5:49 am tarafından Ali Onur Aydemir

» Heuk-Young
C.tesi Ara. 30, 2017 5:13 am tarafından Ali Onur Aydemir

» Tema SANAL TÜRK FORUM HACK
Cuma Ara. 01, 2017 1:55 am tarafından Ali Onur Aydemir

» Tema OBLİVİON ZX
Ptsi Kas. 27, 2017 3:11 am tarafından Ali Onur Aydemir

» Tema JADE DYNASTY ZX
Ptsi Kas. 27, 2017 3:09 am tarafından Ali Onur Aydemir

» Tema ZXPH
Ptsi Kas. 27, 2017 3:06 am tarafından Ali Onur Aydemir

» Tema PVP KENTİ 2 QELİŞMİŞ KODLARLA
Ptsi Kas. 27, 2017 3:03 am tarafından Ali Onur Aydemir

» Tema .GREEN-LABOR. INVİSİON.
Ptsi Kas. 27, 2017 2:57 am tarafından Ali Onur Aydemir

En son konular

» Forum Genel Kuralları
C.tesi Ara. 30, 2017 5:59 am tarafından Ali Onur Aydemir

» ALİ ONUR AYDEMİR
C.tesi Ara. 30, 2017 5:49 am tarafından Ali Onur Aydemir

» Heuk-Young
C.tesi Ara. 30, 2017 5:13 am tarafından Ali Onur Aydemir

» Tema SANAL TÜRK FORUM HACK
Cuma Ara. 01, 2017 1:55 am tarafından Ali Onur Aydemir

» Tema OBLİVİON ZX
Ptsi Kas. 27, 2017 3:11 am tarafından Ali Onur Aydemir

» Tema JADE DYNASTY ZX
Ptsi Kas. 27, 2017 3:09 am tarafından Ali Onur Aydemir

» Tema ZXPH
Ptsi Kas. 27, 2017 3:06 am tarafından Ali Onur Aydemir

» Tema PVP KENTİ 2 QELİŞMİŞ KODLARLA
Ptsi Kas. 27, 2017 3:03 am tarafından Ali Onur Aydemir

» Tema .GREEN-LABOR. INVİSİON.
Ptsi Kas. 27, 2017 2:57 am tarafından Ali Onur Aydemir

Ocak 2018

PtsiSalıÇarş.Perş.CumaC.tesiPaz
1234567
891011121314
15161718192021
22232425262728
293031    

Takvim Takvim

Ocak 2018

PtsiSalıÇarş.Perş.CumaC.tesiPaz
1234567
891011121314
15161718192021
22232425262728
293031    

Takvim Takvim

Ortaklar

bedava forum

The most tagged keywords

The most tagged keywords


  • Yeni Başlık Gönder
  • Cevap Gönder

Ders 14 Anlatim

Paylaş
avatar
Poison
Site Kurucusu Admin
Site Kurucusu Admin

Kayıt tarihi : 05/12/12
Nerden : İstanbul

Ders 14 Anlatim

Mesaj tarafından Poison Bir C.tesi Ara. 08, 2012 7:33 am

VERİ TABANINDA ARAMA YAPMA ÖRNEĞİ

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:
1. "ornek.mdb" veritabanına "deneme" ve "veri aktarim" olmak üzere iki adet kayıt daha giriniz.
2. "ornek.frm" üzerine bir yazı kutusu ekleyiniz, "Text" özelliği boş olsun.
3. "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
4. 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.
avatar
Ali Onur Aydemir
Site Kurucusu Admin
Site Kurucusu Admin

Kayıt tarihi : 04/12/12
Nerden : Ufuk Mahallesi, 905. Sk. No:38, 35370 Buca Osb/Buca/İzmir, Türkiye 905. Sk. No:38

Geri: Ders 14 Anlatim

Mesaj tarafından Ali Onur Aydemir Bir Paz Ara. 09, 2012 1:59 am

Teşekkürler


_________________
[Resimleri görebilmek için üye olun veya giriş yapın.]
05395003597
  • Yeni Başlık Gönder
  • Cevap Gönder

Forum Saati Salı Ocak 23, 2018 1:26 am