Sonuçlar 1 to 2 of 2

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

  1. #1

    Default 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

  2. #2

Similar Threads

  1. INET – İnternet Transferi Kontrolü(kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 4
    Son Mesaj: 20-01-09, 01:43
  2. DataGrid – Veri Tabanı Izgarası(kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 06-08-08, 11:20
  3. ADO Data Control - ADO Veri Erişim(v.basic.kaynak1)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 06-08-08, 11:19
  4. DBGrid – RDO Veri Izgarası(kaynak1.v.basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 1
    Son Mesaj: 06-08-08, 11:17
  5. MSChart – Veri Grafiği(kaynak1-V.Basic)
    By Elektronik in forum Visual Basic
    CEvaplar: 0
    Son Mesaj: 04-11-07, 14:31

Tags for this Thread

Bookmarks

Gönderme izinleri

  • Yeni Konu açamazsınız
  • Konulara cevap yazamazsınız.
  • Eklenti gönderemezsiniz.
  • Mesajlarınızı düzenleme izniniz yok.
  •