- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
KONU : Veritabanına Kayıt Girmek - 2
İyi programcılar form üzerine yerleştirdikleri nesnelerin adlarını da uygun şekilde değiştirirler, bu şekilde o nesneler çok daha kolay hatırlanır. Textbox lara değişik adlar verelim:
With dbKayit
.Ad = txtAd
.Adres = txtAdres
.Tel = txtTel
End With
böylece textbox lar artık hemen tanınabilir hale geldi...
Artık oluşturduğumuz bu kayıt yapısını artık dosyaya yazabiliriz. Bu aşamaya gelindiğinde akılda tutulması gereken en önemli olay: BU KAYIT DOSYADA KAÇINCI SIRAYA YAZILACAKTIR??? sorusudur. Bu gerçekten önemli. Belki şimdi size bir şey ifade etmiyor, ancak bir de şöyle düşünün. Diyelim ki bir adet kayıt girdiniz, ve bu veritabanındaki ilk kayıt olsun, daha sonra gireceğiniz kaydın ikinci kayıt olması gerekir, yani birinci kaydın veritabanında bittiği verden itibaren kaydedilmesi gerekir. Hata yaparsanız önceki kaydın üzerine yazarsınız ve önceki kaydı kaybetmiş olursunuz. O zaman önemli bir konuya geldik. Demek ki artık her kaydın bir sıra numarası olacak.
Open "Kayit.Dat" For Random As #1 Len = dbKayitboyu
ile aktif dizindeki Kayit.dat adlı veritabanını açtıktan sonra ve kayıt yapısı içini kaydedilecek bilgilerle doldurduktan sonra aşağıdaki kod ile bu bilgileri Kayit.dat adlı dosya içine 1 sıra numaralı kayıt olarak kaydediyoruz
Put #1, 1, dbKayit
Yukarıdaki kodun açıklamalı yazılımı aşağıdaki gibidir.
PUT [hangi_dosyaya] , [kaçıncı_kayıt_olarak] , [neyi_kaydedeyim]
İyi programcılar form üzerine yerleştirdikleri nesnelerin adlarını da uygun şekilde değiştirirler, bu şekilde o nesneler çok daha kolay hatırlanır. Textbox lara değişik adlar verelim:
With dbKayit
.Ad = txtAd
.Adres = txtAdres
.Tel = txtTel
End With
böylece textbox lar artık hemen tanınabilir hale geldi...
Artık oluşturduğumuz bu kayıt yapısını artık dosyaya yazabiliriz. Bu aşamaya gelindiğinde akılda tutulması gereken en önemli olay: BU KAYIT DOSYADA KAÇINCI SIRAYA YAZILACAKTIR??? sorusudur. Bu gerçekten önemli. Belki şimdi size bir şey ifade etmiyor, ancak bir de şöyle düşünün. Diyelim ki bir adet kayıt girdiniz, ve bu veritabanındaki ilk kayıt olsun, daha sonra gireceğiniz kaydın ikinci kayıt olması gerekir, yani birinci kaydın veritabanında bittiği verden itibaren kaydedilmesi gerekir. Hata yaparsanız önceki kaydın üzerine yazarsınız ve önceki kaydı kaybetmiş olursunuz. O zaman önemli bir konuya geldik. Demek ki artık her kaydın bir sıra numarası olacak.
Open "Kayit.Dat" For Random As #1 Len = dbKayitboyu
ile aktif dizindeki Kayit.dat adlı veritabanını açtıktan sonra ve kayıt yapısı içini kaydedilecek bilgilerle doldurduktan sonra aşağıdaki kod ile bu bilgileri Kayit.dat adlı dosya içine 1 sıra numaralı kayıt olarak kaydediyoruz
Put #1, 1, dbKayit
Yukarıdaki kodun açıklamalı yazılımı aşağıdaki gibidir.
PUT [hangi_dosyaya] , [kaçıncı_kayıt_olarak] , [neyi_kaydedeyim]