Ali Onur Aydemir Forum

Tatil Giriyoruz
Tel:05395003597
Tel:0537 058 04 25

Ali Onur Aydemir Forum Hoşgeldiniz

Anahtar-kelime

Anahtar-kelime

En son konular

» Forum Genel Kuralları
C.tesi Ara. 30, 2017 5:59 am tarafından Ali Onur Aydemir

» ALİ ONUR AYDEMİR
C.tesi Ara. 30, 2017 5:49 am tarafından Ali Onur Aydemir

» Heuk-Young
C.tesi Ara. 30, 2017 5:13 am tarafından Ali Onur Aydemir

» Tema SANAL TÜRK FORUM HACK
Cuma Ara. 01, 2017 1:55 am tarafından Ali Onur Aydemir

» Tema OBLİVİON ZX
Ptsi Kas. 27, 2017 3:11 am tarafından Ali Onur Aydemir

» Tema JADE DYNASTY ZX
Ptsi Kas. 27, 2017 3:09 am tarafından Ali Onur Aydemir

» Tema ZXPH
Ptsi Kas. 27, 2017 3:06 am tarafından Ali Onur Aydemir

» Tema PVP KENTİ 2 QELİŞMİŞ KODLARLA
Ptsi Kas. 27, 2017 3:03 am tarafından Ali Onur Aydemir

» Tema .GREEN-LABOR. INVİSİON.
Ptsi Kas. 27, 2017 2:57 am tarafından Ali Onur Aydemir

En son konular

» Forum Genel Kuralları
C.tesi Ara. 30, 2017 5:59 am tarafından Ali Onur Aydemir

» ALİ ONUR AYDEMİR
C.tesi Ara. 30, 2017 5:49 am tarafından Ali Onur Aydemir

» Heuk-Young
C.tesi Ara. 30, 2017 5:13 am tarafından Ali Onur Aydemir

» Tema SANAL TÜRK FORUM HACK
Cuma Ara. 01, 2017 1:55 am tarafından Ali Onur Aydemir

» Tema OBLİVİON ZX
Ptsi Kas. 27, 2017 3:11 am tarafından Ali Onur Aydemir

» Tema JADE DYNASTY ZX
Ptsi Kas. 27, 2017 3:09 am tarafından Ali Onur Aydemir

» Tema ZXPH
Ptsi Kas. 27, 2017 3:06 am tarafından Ali Onur Aydemir

» Tema PVP KENTİ 2 QELİŞMİŞ KODLARLA
Ptsi Kas. 27, 2017 3:03 am tarafından Ali Onur Aydemir

» Tema .GREEN-LABOR. INVİSİON.
Ptsi Kas. 27, 2017 2:57 am tarafından Ali Onur Aydemir

Ocak 2018

PtsiSalıÇarş.Perş.CumaC.tesiPaz
1234567
891011121314
15161718192021
22232425262728
293031    

Takvim Takvim

Ocak 2018

PtsiSalıÇarş.Perş.CumaC.tesiPaz
1234567
891011121314
15161718192021
22232425262728
293031    

Takvim Takvim

Ortaklar

bedava forum

The most tagged keywords

The most tagged keywords


  • Yeni Başlık Gönder
  • Cevap Gönder

Ders 13 Programlama

Paylaş
avatar
Ali Onur Aydemir
Site Kurucusu Admin
Site Kurucusu Admin

Kayıt tarihi : 04/12/12
Nerden : Ufuk Mahallesi, 905. Sk. No:38, 35370 Buca Osb/Buca/İzmir, Türkiye 905. Sk. No:38

Ders 13 Programlama

Mesaj tarafından Ali Onur Aydemir Bir C.tesi Ara. 08, 2012 6:28 am

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.
  • Yeni Başlık Gönder
  • Cevap Gönder

Forum Saati Salı Ocak 23, 2018 1:30 am