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 Yazıyoruz. Sanırım gereğinden fazla açıklayıcı oldu ama ben bunu yapana kadar çok uğraştığım için size yardımı olur diye böyle yazdım. Ogrenciler adlı veritabanına, ogrenciler adlı bir tablo açıp, OgrenciAdi, OgrenciSoyadi, ve OgrenciNo adlı alanları eklemeniz gerekir.

paylasim icin sagol dostum

Hmm bu ado db örneği dediğini araştırayım bi bulursam koyarım

iyide dostum bunun access ile olanı yokmu adosb bende yokda... mesaj yazarsan sevinirim... st.