Data – Veri Erişim Kontrolü-(V.Basic-kaynak1)

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.



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


Data - Özellikler





Aling

Appearance

BackColor

BOFAction

Caption

Connect

DataBaseName


DefaultType

DragIcon

DragMode

Enabled

EOFAction

Exclucive

Font / ForeColor


Height / Width

Index

Left / Top

MouseIcon

MousePointer

Negotiate

OLEDropMode


Options

ReadOnly

RecordsetType

Tag

ToolTipText

Visible

WhatsThisHelpID



Connect : Veri tabanı yönetim sistemi

DataBaseName : Veri tabanı dosyası

DefautType : Veri tabanı motoru

1 - ODBC, 2 - microsoft jet database veri motoru

BofAction : İlk kayıttan sonra ne yapacağını belirler

EofAction : Son kayıttan sonra ne yapacağını belirler

Exclusive : True - veri tabanına sadece veri tabanını açan kullanıcı

kayıt yapabilir

Options : 0 - İstenilen işlem yapılabilir

1 - Çok kullanıcılı ortamlarada sadece dosyayı ilk açan değişiklik yapabilir

2 - Diğer kullanıcılar tabloyu açıp inceleyemez

ReadOnly : Veri tabanı dosyasının sadece okunabilir

RecordSetType : Record set nesnesinin tipi. 0- Table, 1-Dynaset, 2-Snapshot

RecordSource : Tablo

ReadOnly : True - veri tabanından sadece okuma yapılabilir


Data - Olaylar





DragDrop

DragOver

Error

MouseDown


MouseMove

MouseUp OLECopleteDrag

OLEDragDrop


OLEDragOver

OLEGiveFeedBack

OLESetData

OleStartDrag


Reposition

Resize

Validate


Error : Veri erişim hatası oluşması

Reposition : Bir kayıdın aktif kayıt haline gelmesi

Validate : Farklı bir kayıt aktif kayıt haline geçmeden önce meydana gelir



Data - Yöntemler

Update : Güncelleme

Refresh : Veri tabanını değişiklik sonrası kapatıp tekrar açma

AddNew : Yeni kayıt ekleme

Edit : İçeriği değiştirme, düzenleme

Delete : Kayıt silme

Close : Veri tabanın kapatma



Data Kontrol ile Veri Tabanı Uygulaması




Veri Tabanı : Pesonel.Mdb

Tablo Adı : Kisiler

Alan1 : Adi

Alan2 : Soyadi

Alan3 : SicilNo

Alan4 : Adres

(General)(Declaration)

Dim isaretli_kayit



Private Sub Form_Load()

Command5.Cancel = True ‘ Çıkış butonunun kodu ESC ile çalışır

Data1.DatabaseName = App.Path & "\personel.mdb" ‘ Veri tabanı

Data1.RecordSource = "kisiler" ‘ Tablo

Set Text1(0).DataSource = Data1 ‘ ( Bütün TextBox’lar için yapılacak )

Text1(0).DataField = "Adi" ‘ TextBox’ların alan tanımlamaları

Text1(1).DataField = "Soyadi"

Text1(2).DataField = "SicilNo"

Text1(3).DataField = "Adres"

End Sub





Private Sub Command1_Click() ‘ Yeni Kayıt

If Command1.Caption = "&Yeni Kayıt" Then

Command1.Caption = "&Ekle"

Text1(0).SetFocus

Data1.Recordset.AddNew

Else

Data1.UpdateRecord

Data1.Recordset.MoveLast

Command1.Caption = "&Yeni Kayıt"

End If

End Sub



Private Sub Command2_Click() ‘ Değiştir

Data1.Recordset.Edit

Data1.UpdateRecord

End Sub



Private Sub Command3_Click() ‘ Kayıt silme

Data1.Recordset.Delete

Data1.Recordset.MoveLast

End Sub



Private Sub Command4_Click() ‘ Arama

Ad = InputBox("Arana Kişinin Adını Giriniz :", "Ad İle Arama")

Aranan = "Adi = '" & Ad & "'"

Data1.Recordset.FindFirst Aranan

End Sub



Private Sub Command6_Click() ‘ Kayıt işaretle

If Command6.Caption = "&İşaretle" Then

isaretli_kayit = Data1.Recordset.Bookmark

Command6.Caption = "&İşaretli Kayda Git"

Else ‘ İşaretli kayda git

Data1.Recordset.Bookmark = isaretli_kayit

Command6.Caption = "&İşaretle"

End If

End Sub



Private Sub Data1_Reposition() ‘ Kayıt pozisyonunun değişimi

Data1.Caption = Data1.Recordset.AbsolutePosition + 1 & "/" & _

Data1.Recordset.RecordCount

End Sub


Private Sub Command5_Click() ‘ Çıkış

End

End Sub