- ADO - Kod ile Veri Tabanı Yönetimi

(General)(Declaration)
Dim Baglanti As Connection
Dim KayitSet As Recordset

Private Sub veri_set()                              ' Tekrar eden tanımlama için
         Text1.Text = KayitSet![sicil_no]       ' ortak kod
         Text2.Text = KayitSet![ad]
         Text3.Text = KayitSet![soyad]
         Text4.Text = KayitSet![adres]
End Sub

Private Sub ilk_okuma()                           ' Ortak kod
         Set KayitSet = New Recordset                     ' Kayıt seti tanımlanıyor
         KayitSet.Open "Select * from kisiler", Baglanti, adOpenKeyset, adLockOptimistic
         If KayitSet.RecordCount <> 0 Then
                  KayitSet.Fields.Refresh
                  veri_set
         End If
End Sub

Private Sub Form_Load()
         Set Baglanti = New Connection                    ' Veri tabanının tanıtımı
         Baglanti.Open "Provider=Microsoft.jet.oledb.4.0; Data Source = personel.mdb"
         ilk_okuma
End Sub

Private Sub Command4_Click()                ' İlk kayıt
         On Error Resume Next
         KayitSet.MoveFirst
         veri_set
End Sub

Private Sub Command2_Click()                            ' Önceki kayıt
         On Error GoTo yenihata
         KayitSet.MovePrevious
         veri_set
         Exit Sub
         yenihata:
                  KayitSet.MoveFirst
End Sub

Private Sub Command3_Click()                            ' Son Kayıt
         On Error Resume Next
         KayitSet.MoveLast
         veri_set
End Sub

Private Sub Command1_Click()                            ' Sonraki kayıt
         On Error GoTo yenihata
         KayitSet.MoveNext
         veri_set
         Exit Sub
         yenihata:
                  KayitSet.MoveLast
End Sub

Private Sub Command6_Click()                            ' Arama
         On Error Resume Next
         Dim ara_sicil_no As Double                         ' Arama için yeni kayıt seti
         Dim yeni_k_s As New Recordset
         ara_sicil_no = InputBox("Aranan kişinin sicil numarasını giriniz :", _
                                                                           "Sicil Numarası İle Arama")
         yeni_k_s.Open "Select * from kisiler where sicil_no=" & _
                           Val(ara_sicil_no), Baglanti, adOpenKeyset, adLockOptimistic
         If yeni_k_s.RecordCount <> 0 Then
                  Text1.Text = yeni_k_s![sicil_no]
                  Text2.Text = yeni_k_s![ad]
                  Text3.Text = yeni_k_s![soyad]
                  Text4.Text = yeni_k_s![adres]
                  yeni_k_s.Close
                  Else
                           MsgBox "Kayıt Bulunamadı", vbCritical, "Arama"
         End If
End Sub


Private Sub Command7_Click()                            ' Kayıt ekleme
         If Command7.Caption = "Ekle" Then                        ' başlığa göre işlem seçimi
                  Text1.Text = ""
                  Text2.Text = ""
                  Text3.Text = ""
                  Text4.Text = ""
                   Command7.Caption = "Kaydet"                     ' Başlık değiştirme
                  Else
                           Dim yeni_k_s As New Recordset
                           yeni_k_s.Open "Select * from kisiler", Baglanti, _
                                                  adOpenKeyset, adLockOptimistic
                           If yeni_k_s.RecordCount <> 0 Then
                                      yeni_k_s.AddNew
                                      yeni_k_s![sicil_no] = Text1.Text
                                      yeni_k_s![ad] = Text2.Text
                                      yeni_k_s![soyad] = Text3.Text
                                      yeni_k_s![adres] = Text4.Text
                                      yeni_k_s.Update
                                      yeni_k_s.Close
                           End If
                           ilk_okuma
                           Command7.Caption = "Ekle"
         End If
End Sub

Private Sub Command5_Click()                            ' Kayıt silme
         On Error Resume Next
         Dim yeni_k_s As New Recordset                  ' Kayıt silme için kayıt seti
         yeni_k_s.Open "Select * from kisiler where sicil_no=" & Text1.Text, _
                                                      Baglanti, adOpenKeyset, adLockOptimistic
         If yeni_k_s.RecordCount <> 0 Then
                  yeni_k_s.Delete
                  yeni_k_s.Close
         End If
         ilk_okuma
End Sub

Private Sub Command8_Click()
         Close All                                                    ' Açık olan herşeyi kapat
         End                                                           ' Programdan çık
End Sub

Programın kodlanmasına başlamadan önce Project > Reference mönüsünden "Microsoft ActiveX Data Object 2.5 Library" referanslar arasına eklenir.

Yazar: Turk_Ajan