Yazılım Öğren

Visual Basic Veri Aktarımı

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:MyDocumentsornek.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.

 

 

 

 

 

 

 

 

 

 

Programı çalıştırdıktan sonra “Veri Al” düğmesine bastığınızda Åžekil-9′daki görüntü oluÅŸacaktır.