SiteMiz KapaLıdır [BakımDa]

SiteMiz KapaLıdır [BakımDa]

Sitemiz uzun Bir aradan Sonra tekrar OnLine olcaktır.. ayrıca sitemiz 6 Nisan 2011 tarihi itibariyLe bakıma alınmıştır.. en kısa sürede tekrar hizmet vermeye calışacağız.. Sitemize yeni bilgili admiler alınakcatır..
 
AnasayfaAna sayfaKullanıcı GruplarıKayıt OlGiriş yap
Facebook HackroaRs
En son konular
» Bu sene kim şampıyon olur?
Çarş. Nis. 27, 2011 6:34 am tarafından 

» Tüm üyeLerimize duyuru..!
Cuma Nis. 08, 2011 10:44 pm tarafından 

» turkojan 4.0 (gold edition) videolu anlatımm
Perş. Mart 17, 2011 6:16 am tarafından reda

» n keylogger v12 gel hackadim
Cuma Ara. 24, 2010 8:16 pm tarafından merotova

» ProRat en iyi 20 özellikli sizi eqlendiren hacker programı!!!
Perş. Ara. 23, 2010 5:09 am tarafından iboksk23

» Not defterinden virüs yapma gel birden fazla virüs kodu var!!!!!
Perş. Ara. 23, 2010 3:55 am tarafından iboksk23

» 2011'in ilK msn hack programi!
C.tesi Kas. 13, 2010 2:23 am tarafından qnayf

» 2011'in ilK msn hack programi!
C.tesi Kas. 13, 2010 2:23 am tarafından qnayf

» İşte ÖzeL HEsapMakınası
C.tesi Haz. 05, 2010 3:43 am tarafından 

Similar topics
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
Sosyal yer imi
Sosyal yer imi digg  Sosyal yer imi delicious  Sosyal yer imi reddit  Sosyal yer imi stumbleupon  Sosyal yer imi slashdot  Sosyal yer imi yahoo  Sosyal yer imi google  Sosyal yer imi blogmarks  Sosyal yer imi live      

Sosyal bookmarking sitesinde VeBaHaCKTeaMS adresi saklayın ve paylaşın

Sosyal bookmarking sitesinde SiteMiz KapaLıdır [BakımDa] adresi saklayın ve paylaşın
Istatistikler
Toplam 175 kayıtlı kullanıcımız var
Son kaydolan kullanıcımız: rechko

Kullanıcılarımız toplam 448 mesaj attılar bunda 397 konu

Paylaş | 
 

 vb ile grenci otomasyon programi yapimi

Aşağa gitmek 
YazarMesaj




Kayıt tarihi : 31/12/69

MesajKonu: vb ile grenci otomasyon programi yapimi   C.tesi Ocak 16, 2010 11:15 am

VB ile basit öğrenci Adı, Soyadı, OkulNo kaydetme, silme, düzenleme, kayıtlar arasında gezinme programı yapacağız.Genelde okullarda bu tip ödevler verilir.

Ö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;
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;

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;
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;

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;

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;

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

Yazıyoruz.

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

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;

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;

Kayitlar.Fields("OgrenciAdi") = Text1.Text
Kayitlar.Fields("OgrenciSoyadi") = Text2.Text
Kayitlar.Fields("OgrenciNo") = Text3.Text
Kayitlar.Update
Sayfa başına dön Aşağa gitmek
 
vb ile grenci otomasyon programi yapimi
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Photospace'de imza yapımı
» DiskDigger: Ücretsiz Dosya Kurtarma Aracı
» Photofiltre'de userbar yapımı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
SiteMiz KapaLıdır [BakımDa] :: Programlar :: Programlama-
Buraya geçin: