ADODC Kullanarak bir veritabanı uygulamasının nasıl yapıldıgını anlatacağım. Formumuza 6 Adet Textbox, 1 Adet Adodc, 1 Adet Datagrid, & Adet Label, 10 Adet Buton ekliyoruz
Önce bir Sub oluşturuyoruz. Veritabanımızdaki verileri textbox larda göstermek için kullanacağımız bu Sub oluşturmamızın amacı bi kaç yerde aynı kodları kullanacağıımız için tekrar tekrar yazmamak.
Private Sub VeriSet()
      Text1 = Adodc1.Recordset.Fields(0)
      Text2 = Adodc1.Recordset.Fields(1)
      Text3 = Adodc1.Recordset.Fields(2)
      Text4 = Adodc1.Recordset.Fields(3)
      Text5 = Adodc1.Recordset.Fields(4)
      Text6 = Adodc1.Recordset.Fields(5)
End Sub
formun load olayında adodc1 in veritabanı bağlantılarını yapıyoruz. ConnectinString i ve RecordSource unu belirtertiyoruz. Ondan sonra kayıt sayısını kontrol ederek Datagrid ve Textbox larımızı Adodc1 e bağlıyoruz. bu işlemi doğru yaptıysanız programı çalıştırabilirsiniz. Program çalıştıgında verilerinizin Datagrid ve textbox larda görunuyor olması gerekmektedır
Private Sub Form_Load()
On Error Resume Next
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\Adodc.mdb"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from tablo ORDER BY ID"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount <> 0 Then
      VeriSet
      Set DataGrid1.DataSource = Adodc1
    End If
    DataGrid1.Refresh
End Sub
Şimdi kayıtlar arasında dolaşmak için gerekli kodları yazıyoruz
İlk Kayıta gitmek için
Private Sub Command1_Click()
    On Error Resume Next
    Adodc1.Recordset.MoveFirst
    VeriSet
End Sub
Önceki kayıt. Önceki ve sonrakı kayıtlara giderken ilk ve son kayıt olup olmadıgını kontrol etmemiz gerekir. Bu kontrolleri yapmazsak hata ile karşılaşırız
Private Sub Command2_Click()
    On Error Resume Next
    Adodc1.Recordset.MovePrevious
    If Adodc1.Recordset.BOF Then
      Adodc1.Recordset.MovePrevious
      MsgBox "İLK KAYITDASINIZ"
    End If
    VeriSet
End Sub
Sonraki Kayıt
Private Sub Command3_Click()
    Adodc1.Recordset.MoveNext
    If Adodc1.Recordset.EOF Then
      Adodc1.Recordset.MoveLast
      MsgBox "SON KAYITDASINIZ"
    End If
    VeriSet
End Sub
Son kayıt
Private Sub Command4_Click()
    Adodc1.Recordset.MoveLast
    VeriSet
End Sub
Programı Kapat
Private Sub Command10_Click()
    End
End Sub
Bul komutu. Find komutu ile arama yapıyoruz. Ben aramayı ID alanına göre yaptırdım. Inputbox kullanarak kullanıcının yazacağı ID nolu kayıtı buluyoruz
Private Sub Command5_Click()
    On Error Resume Next
    Adodc1.Refresh
    Dim bul As String
    bul = InputBox("Kişi ID yazınız")
    If Trim(bul) <> "" Then
      bul = "ID='" + bul + "'"
      Adodc1.Recordset.MoveFirst
      Adodc1.Recordset.Find bul
      VeriSet
    End If
End Sub
Yenı kayıt ekleme. Recorset teki alanları textbox lara eşitleyerek yenı kayıt ekliyoruz. Adodc ve Datagrid i refresh ederek yenı eklenen kayıtı programı kapatıp açmadan gridde görmemızı sağlıyoruz
Private Sub Command6_Click()
On Error Resume Next
    Adodc1.Refresh
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(0) = Text1
    Adodc1.Recordset.Fields(1) = Text2
    Adodc1.Recordset.Fields(2) = Text3
    Adodc1.Recordset.Fields(3) = Text4
    Adodc1.Recordset.Fields(4) = Text5
    Adodc1.Recordset.Fields(5) = Text6
    Adodc1.Recordset.Update
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh
End Sub
Silme işlemi. Delete komutu ile o anda bulunulan aktif kayıt silinir. hata vermemesi içinde bir onceki kayıta donmesini sağlıyoruz
Private Sub Command7_Click()
    If Adodc1.Recordset.RecordCount <> 0 Then
      Adodc1.Recordset.Delete
      Adodc1.Recordset.Update
      Adodc1.Recordset.MovePrevious
      VeriSet
    End If
End Sub
Kayıt Guncelleme işlemi. Kayıt eklemek ile arasındaki tek fark kayıt ekleme de addnew komutu kullanrken güncelleme işleminde sadece Update komutu kullanmamız. Update komutunu yaptıgımız işlemlerde kullanmadıgımız takdirde veritabanında işlem geçekleşmez.
Private Sub Command8_Click()
On Error Resume Next
    Adodc1.Refresh
    Adodc1.Recordset.Fields(0) = Text1
    Adodc1.Recordset.Fields(1) = Text2
    Adodc1.Recordset.Fields(2) = Text3
    Adodc1.Recordset.Fields(3) = Text4
    Adodc1.Recordset.Fields(4) = Text5
    Adodc1.Recordset.Fields(5) = Text6
    Adodc1.Recordset.Update
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh
End Sub
Yeni kayıt ekleyeceğimiz zaman textbox ları tek tek temizlemekle uğraşmamak için textbox ları temizliyoruz. Bu işlem sırasında yenı kayıtın Id alanının değerini bilmek için text1 e kayıtsayısının bir fazlasını yazdırıyoruz
Private Sub Command9_Click()
    Text1 = Adodc1.Recordset.RecordCount + 1
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
    Text6 = ""
End Sub
Makalede kaba taslak Adodc ile temel veritabanı işlemlerinin nasıl yapıldıgını anlatmaya çalıştım. Sanırım atladıgım bir nokta kalmadı. Umarım işinizi görür
Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
bu adresten programı indirebilirsiniz

link kırık

Sayın Hocan bu örnek çok güzel
Fakat benim gibi acemi kullanıcılar tercuman olmak adına bir soru sormak istiyorum
bu veri tabanına (access) resimler var bu resimleri vba formu üzerindeki bilgiler gelince kişiye ait resimde nasıl gelir Teşekkür ederim

Sayın Şahin KALEM 
Cevabınız için çok teşekkür ederim. Fakat ben biraz acemiyim şu sizin program üzerine bir tane resimli örnek dosya yapabilirmisiniz 2 tane resim olsa yeter
Çok Teşekkür Ederim