Emrah z sonra bir tane yapmaya baslar Wardom. Org giriş - çıkış ayıt Progmaı

çok saol eyw.. tam bu konulardayız

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; Text1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields İlk Kayıta gitmek için ; İlk kayıt butonunu tıklayıp; Kayitlar. MoveFirst Text1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields 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 Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields Else Text1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End If Yazıyoruz. 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 Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields Else Text1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields End If Yazıyoruz. Son Kayda gitmek için; Son kayıt butonuna tıklıyoruz; Kayitlar. MoveLast Text1. Text = Kayitlar. Fields Text2. Text = Kayitlar. Fields Text3. Text = Kayitlar. Fields 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 = Text1. Text Kayitlar. Fields = Text2. Text Kayitlar. Fields = 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 = Text1. Text Kayitlar. Fields = Text2. Text Kayitlar. Fields = Text3. Text Kayitlar. Update alıntıdır...