0 Üye ve 1 Ziyaretçi Konuyu İncelemekte. Aşağı İn :)
Sayfa 1
Konu: Vbde Öğrenci Takip Programı  (Okunma Sayısı: 1303 Kere Okundu.)
« : Ağustos 11, 2009, 02:26:55 ÖÖ »
Avatar Yok

By.TuRuT
*
Üye No : 773
Nerden : Rize
Cinsiyet : Bay
Konu Sayısı : 19239
Mesaj Sayısı : 48 228
Karizma = 65220


Evet arkadaşlar acemiler için Adodb ile basit öğrenci Adı, Soyadı, OkulNo kaydetme, silme, düzenleme, kayıtlar arasında gezinme örneği.

Öncelikle projemize Project/References menüsünden “Microsoft ActiveX Data Objects 2,7 Library” yi ekleyelim.
Form alanımızda
3 textbox,
1-Adı
2-Soyadı
3-OkulNo
Ve 8 komut butonu
1-ilkkayıt
2-Önceki Kayıt
3-SonrakiKayıt
4-Son Kayıt
5- Yeni Kayıt
6- Kaydet
7- Kaydı Sil
8-Değişiklikleri kaydet
olsun.
Önce veritabanı ile bağlantı kurmak için değişkenlerimizi tanıtıyoruz.
General bölümüne;

Dim CON As New ADODB.Connection
Dim Kayitlar As New ADODB.Recordset

Sonra Veritabanına ve istediğimiz tabloya bağlanıyoruz;
Form bölümüne;

CON.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\ogrenciler.mdb"
Kayitlar.Open "Select * from ogrenciler", CON, adOpenStatic, adLockOptimistic
Ve ilk kayıtlarımızı gösteriyoruz;
Kod Alanı:

Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )




İlk Kayıta gitmek için ;
İlk kayıt butonunu tıklayıp;

Kod Alanı:

Kayitlar.MoveFirst
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )



Yazıyoruz.

Önceki kayıt için;
Önceki kayıt butonunu yıklıyoruz;
Kod Alanı:

Kayitlar.MovePrevious
If Kayitlar.EOF Or Kayitlar.BOF Then
Kayitlar.MoveNext
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
Else
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
End If




Yazıyoruz.
(buradaki If Kayitlar.EOF Or Kayitlar.BOF Then / else / end if : kayıt biterse hata vermesin diyedir. )

Sonraki Kayıt için de işlemler hemen hemen aynı
Sonraki kayıt butonunu tıklayıp;

Kod Alanı:

Kayitlar.MoveNext
If Kayitlar.EOF Or Kayitlar.BOF Then
Kayitlar.MovePrevious
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
Else
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )
End If



Yazıyoruz.
(buradaki If Kayitlar.EOF Or Kayitlar.BOF Then / else / end if : yine kayıt biterse hata vermesin diyedir. )

Son Kayda gitmek için;
Son kayıt butonuna tıklıyoruz;

Kod Alanı:

Kayitlar.MoveLast
Text1.Text = Kayitlar.Fields("OgrenciAdi" )
Text2.Text = Kayitlar.Fields("OgrenciSoyadi" )
Text3.Text = Kayitlar.Fields("OgrenciNo" )




Yazıyoruz.

Yeni öğrenci Eklemek için
Yeni Öğrenci butonunu tıklıyoruz;
Kod Alanı:


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""


Yazıyoruz.

Kaydetmek için
Kaydet butonuna tıklıyoruz;

Kod Alanı:

Kayitlar.AddNew
Kayitlar.Fields("OgrenciAdi" ) = Text1.Text
Kayitlar.Fields("OgrenciSoyadi" ) = Text2.Text
Kayitlar.Fields("OgrenciNo" ) = Text3.Text



Yazıyoruz.

Kayıt silmek için kayıt sil butonunu tıklıyoruz;

Kod Alanı:

Kayitlar.Delete
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Kayitlar.Update




Yazıyoruz.

Değişiklikleri kaydetmek için;
Değişiklikleri kaydet butonuna tıklıyoruz;

Kod Alanı:

Kayitlar.Fields("OgrenciAdi" ) = Text1.Text
Kayitlar.Fields("OgrenciSoyadi" ) = Text2.Text
Kayitlar.Fields("OgrenciNo" ) = Text3.Text
Kayitlar.Update

İstek & Öneri ve Şikayetlerinizi: WeBCaNaVaRi'na Üye Olmadan Link'leri ve Kod'ları Göremezsiniz.
Link'leri Görebilmek İçin. Üye Ol. veya Giriş Yap.
Adresine İletebiliriniz.
WeBCaNaVaRi Botu

Bu Site Mükemmel :)

*****

Çevrimİçi Çevrimİçi

Mesajlar: 222 194


View Profile
Re: Vbde Öğrenci Takip Programı
« Posted on: Mart 29, 2024, 05:05:31 ÖS »

 
      Üye Olunuz.!
Merhaba Ziyaretçi. Öncelikle Sitemize Hoş Geldiniz. Ben WeBCaNaVaRi Botu Olarak, Siteden Daha Fazla Yararlanmanız İçin Üye Olmanızı ŞİDDETLE Öneririm. Unutmayın ki; Üyelik Ücretsizdir. :)

Giriş Yap.  Kayıt Ol.
Anahtar Kelimeler: Vbde Öğrenci Takip Programı e-book, Vbde Öğrenci Takip Programı programı, Vbde Öğrenci Takip Programı oyunları, Vbde Öğrenci Takip Programı e-kitap, Vbde Öğrenci Takip Programı download, Vbde Öğrenci Takip Programı hikayeleri, Vbde Öğrenci Takip Programı resimleri, Vbde Öğrenci Takip Programı haberleri, Vbde Öğrenci Takip Programı yükle, Vbde Öğrenci Takip Programı videosu, Vbde Öğrenci Takip Programı şarkı sözleri, Vbde Öğrenci Takip Programı msn, Vbde Öğrenci Takip Programı hileleri, Vbde Öğrenci Takip Programı scripti, Vbde Öğrenci Takip Programı filmi, Vbde Öğrenci Takip Programı ödevleri, Vbde Öğrenci Takip Programı yemek tarifleri, Vbde Öğrenci Takip Programı driverları, Vbde Öğrenci Takip Programı smf, Vbde Öğrenci Takip Programı gsm
Yanıtla #1
« : Mayıs 04, 2010, 02:54:05 ÖS »

Anqel*
*
Üye No : 21465
Nerden : Yurt Dışı
Cinsiyet : Bayan
Konu Sayısı : 5208
Mesaj Sayısı : 17 796
Karizma = 50130


Paylaşım için teşekkürler. ettim..

WebCanavari
Yanıtla #2
« : Ekim 06, 2010, 12:08:13 ÖS »
Avatar Yok

Mavişimm44
*
Üye No : 13392
Yaş : 31
Nerden : Malatya
Cinsiyet : Bayan
Konu Sayısı : 11
Mesaj Sayısı : 392
Karizma = 43


Tekürler paylaşımın için..

OLsun be aLDırma YARADAN YARDIR... Sanmaki zaLimin ettiği kârDır... MazLumun ahı indirir şâhı... HERŞEYİN BİR VAKTİ VARDIR... .
Sayfa 1
Yukarı Çık :)
Gitmek istediğiniz yer:  


Benzer Konular
Konu Başlığı Başlatan Yanıtlar Görüntü Son Mesaj
Amp Müşteri Takip Programı
A B C D E
Furkan 3 1223 Son Mesaj Mayıs 18, 2012, 08:33:27 ÖS
Gönderen : [B]a[R]a[N]
Öğrenci Notu Hesaplama Programı
O Ö P R S
By.TuRuT 0 1028 Son Mesaj Ocak 18, 2009, 08:21:22 ÖS
Gönderen : By.TuRuT
Engelsiz Eğitim Programı Ile Turkcell’in 3 Yıllık Hedefi 50 Bin Öğrenci
Güncel Haberler
deltafx 0 510 Son Mesaj Mayıs 12, 2018, 01:21:48 ÖÖ
Gönderen : deltafx


Theme: WeBCaNaVaRi 2011 Copyright 2011 Simple Machines SiteMap | Arsiv | Wap | imode | Konular