- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
KONU : Veritabanına Kayıt Girmek - 1
Mevcut veritabanını açmak:
Var olan bir veritabanını random access olarak açmak için yukarıda verilen (Open ...) kod bloğu kullanılır. Zaten bu kod ile var ise bir dosya açılır yok ise yeni bir dosya yaratılır.
Yeni bir kayıt eklemek
Bir veritabanı açtınız yada oluşturdunuz diyelim, kayıt girmek için öncelikle kayıt yapısının içini gerekli bilgilerle (kayda girecek bilgilerle...) doldurmanız gerekir. Bu işlem için formunuz üzerine yerleştirdiğiniz textbox ların içeriğini kayıt yapısındaki alanlarla eşlemelisiniz: Örnek:
dbKayit.Ad = Text1.Text
dbKayit.Adres = Text2.Text
dbKayit.Tel = Text3.Text
Aslında oldukça anlaşılır ve kolay bir işlem. dbKayit bizim Dim dbKayit As dbKayit_Bilgisi yazarak belirlediğimiz kayıt yapısıdır. Bu kayıt yapısının alanları zaten Type ... End Type bloğu arasında deklere edilmişti. Artık bizim yapmamız gereken yukarıda görüldüğü gibi bu yapının içini bilgilerle dolurmaktır... Bu arada yukarıdaki kod bloğu aşağıdaki şekilde daha kısa ve daha etkin biçimde yazılabilir:
With dbKayit
.Ad = Text1
.Adres = Text2
.Tel = Text3
End With
Mevcut veritabanını açmak:
Var olan bir veritabanını random access olarak açmak için yukarıda verilen (Open ...) kod bloğu kullanılır. Zaten bu kod ile var ise bir dosya açılır yok ise yeni bir dosya yaratılır.
Yeni bir kayıt eklemek
Bir veritabanı açtınız yada oluşturdunuz diyelim, kayıt girmek için öncelikle kayıt yapısının içini gerekli bilgilerle (kayda girecek bilgilerle...) doldurmanız gerekir. Bu işlem için formunuz üzerine yerleştirdiğiniz textbox ların içeriğini kayıt yapısındaki alanlarla eşlemelisiniz: Örnek:
dbKayit.Ad = Text1.Text
dbKayit.Adres = Text2.Text
dbKayit.Tel = Text3.Text
Aslında oldukça anlaşılır ve kolay bir işlem. dbKayit bizim Dim dbKayit As dbKayit_Bilgisi yazarak belirlediğimiz kayıt yapısıdır. Bu kayıt yapısının alanları zaten Type ... End Type bloğu arasında deklere edilmişti. Artık bizim yapmamız gereken yukarıda görüldüğü gibi bu yapının içini bilgilerle dolurmaktır... Bu arada yukarıdaki kod bloğu aşağıdaki şekilde daha kısa ve daha etkin biçimde yazılabilir:
With dbKayit
.Ad = Text1
.Adres = Text2
.Tel = Text3
End With
