Visual Basic - Access'den Veri Aktarımı Örneği


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Game Master    0 Yorum    133 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 24.04.2016, 19:48:49 #1
Game Master Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:194 Konu Sayısı:81 Üyelik Tarihi:24.04.2016

ACCESS'DEN VERİ AKTARIMI ÖRNEĞİ
 
Veri tabanından bilgi aktarımı için kullanacağımız komutlar OpenDatabase, ve OpenRecordset'dir. Veri tabanı (Db) ve kayıt kümesi (Rs) genel tanımları yapıldıktan sonra, bu tanımlardan veritabanı için OpenDatabase tanımı, kayıt kümesi için de Open Recordset tanımı yapılmalıdır. OpenRecordset tanımında kullanılan "snapshot" dosya açıldığında aktif olan kaydın bir kopyasını alır. Bu örnekte tek kayıtlık bir veritabanı kullanılacak ve o bilgi görüntülenecektir.
 
Tüm kayıtların görüntülenmesi işlemi bir döngü ile aktif kayıt ilerletilerek yapılmalıdır.
 
Visual Basic Programı'na Access veritabanından veri aktarımı gerçekleştirmek için öncelikle bir veri tabanı hazırlamamız gereklidir.
 
Access Veri tabanı hazırlama işlemleri:
1.      Access'de "c:\MyDocuments" dizini altına "ornek.mdb" dosyası açınız.
2.      Tables/New/Design seçenekleri ile tablo tasarımı penceresini aktif hale getiriniz.
3.      "Field Name" kolonuna "Yazi" yazınız.
4.      "Data Type" kolonunda "Text" seçiniz.
5.      Tabloyu kapatınız ve saklama penceresi geldiğinde tabloyu "tblornek" adı ile saklayınız.
6.      Ana anahtar seçimi için "No" yanıtlayınız.
7.      Tablonuzu "Open" ile açınız. İlk satıra "Veri Aktarım Denemesi" yazınız.
8.      Access'den çıkınız.
 
Visual Basic'de ise aşağıdaki işlemleri gerçekleştiriniz:
1.                  Yeni bir proje açınız. Projeyi "ornek" olarak yine "c:\MyDocuments" dizinine saklayınız.
2.                  Form_Load Prosedürü'ne eklenecek kod:
            Dim Db as Database
            Dim Rs as Recordset
3.                  Formun üzerine bir etiket ve 2 komut düğmesi yerleştiriniz.
4.                  Etiket özellikleri:
Caption =         (Boş olacak)
Name = Label1 (Aynı kalacak)
BorderStyle = 1
Appearance = 0
5.                  Birinci komut düğmesi özellikleri:
Caption = Veri Al
Name = Command1 (Aynı kalabilir)
6.                  İkinci komut düğmesi özellikleri:
Caption = Cikis
Name = Command2 (Aynı kalabilir)
7.                  Birinci komut düğmesi  Click_Prosedürü
Set Db = OpenDatabase("c:\MyDocuments\ornek.mdb")
Set Rs = Db.OpenRecordset("tblornek",dbopensnapshot)
Label1.Caption = Rs!Yazi
8.                  İkinci komut düğmesi Click_Prosedürü:
End
9.                  Project/References menü seçeneğinden sonra liste üzerinde "Microsoft DAO 3.51 Object Library" seçeneğini işaretleyiniz.
10.              Programı saklayınız.
 




İmage

Programı çalıştırdıktan sonra "Veri Al" düğmesine bastığınızda Oluşturulur
Son Düzenleme: 25.04.2016, 13:12:04, Düzenleyen: Game Master.









Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir