Data – Veri Erişim Kontrolü

Sistemdeki mevcut veri tabanına erişerek, bilgi güncelleme, edit yada bilgi görüntüleme işlemlerinin yapılabilmesine olanak sağlar.
 
Yeni Kayıt                 : Data1.RecordSet.AddNew
Kayıt girişi iptal       : Data1.RecordSet.CancelUpdate
Kayıt düzenle           : Data1.RecordSet.Edit
Değişiklikleri aktar  : Data1.RecordSet.Update
Veri tabanını tazele : Data1.Refresh
Kayıt Silme               : Data1.RecordSet.Delete
Bir sonraki kayda git : Data1.RecordSet.MoveNext
Bir önceki kayda git : Data1.RecordSet.MovePrevious
En son kayda git      : Data1.RecordSet.MoveLast
İlk kayda git            : Data1.RecordSet.MoveFirst
Kayıt arama             : Data1.RecordSet.FindFirst
                                   Data1.RecordSet.FindNext
                                   Data1.RecordSet.FindPrevious
                                   Data1.RecordSet.FindLast
Kayıt sayısı              : Data1.RecordSet.RecordCount
Aktif kayıt numarası  : Data1.RecordSet.AbsolutPosition
Veri tabanı sonu       : Data1.RecordSet.EOF      (True/False)
Veri tabanı başı        : Data1.RecordSet.BOF      (True/False)
Veri tabanını kapatma : Data1.Close
Kayıt işaretle           : Data1.RecordSet.Bookmark
 
 
RecordSet                 : Tablodaki bir kaydın tamamı
Updatable                 : Kayıtların güncellenebilirliği
If Data1.RecordSet.Updatable Then
         ' Güncelleme komutları
         Else
                  MsgBox "Tablo sadece görüntülenebilir."
End  If
 
 
Validate yordamı dışarıdan Action ve Save adında iki parametre almaktadır.
 
Validate olayında MoveNext methodu kullanılırsa bir sonraki kayda gitmeden temsil eden yordam işletilir. Bu yordama Action parametresi ile 3 sayısal değeri gönderilir.
 
Data nesnesine Delete metodu uygulanmak istenirse silme işlemi öncesinde Data nesnesine ait Validate yordamı otomatik olarak işletilir.  Bu sırada ValiDate yordamına Delete metodunu temsilen 7 sayısal değeri gönderilir.
 
Validate Action    Değer    Açıklama
vbDataActionCancel    0    Prosedür çıkışında işlem iptal edilir
vbDataActionMoveFirst    1    MoveFirst metodu kullanıldı
vbDataActionMovePrevious    2    MovePrevious metodu kullanıldı
vbDataActionMoveNext    3    MoveNext metodu kullanıldı
vbDataActionMoveLast    4    MoveLast metodu kullanıldı
VbDataActionAddNew    5    AddNew metodu kullanıldı
VbDataActionUpdate    6    Update işlemi gerçekleştirildi
VbDataActionDelete    7    Delete metodu gerçekleştirildi
VbDataActionFind    8    Find metodu kullanıldı
VbDataActionBookmark    9    BookMark özelliği set edildi
VbDataActionClose    10    Close metodu kullanıldı
VbDataActionUnload    11    Unload ile Form bellekten uzaklaştırıldı
 
Dim Cevap As Integer
If Action = 7 Then
Cevap = MsgBox("Bu Kayıt Dosyadan Silinsin mi?", 4)
If Cevap = 7 Then
Action = 0                          ' Silme işlemi iptal ediliyor
End If
End If