Ali Onur Aydemir Forum
Tatil Giriyoruz
Tel:05395003597
Tel:0537 058 04 25

Ali Onur Aydemir Forum Hoşgeldiniz

Arama
 
 

Sonuç :
 


Rechercher çıkıntı araştırma

Arama
 
 

Sonuç :
 


Rechercher çıkıntı araştırma

Anahtar-kelime

Anahtar-kelime

En son konular
» Tema 20 YOUNG RİCH NATİON
Paz Mart 11, 2018 3:45 am tarafından Ali Onur Aydemir

» Tema 19 Phpbb 2
Cuma Mart 09, 2018 2:55 am tarafından Ali Onur Aydemir

» Tema18 Invision
Cuma Mart 09, 2018 2:37 am tarafından Ali Onur Aydemir

» Tema 17 Phpbb 2
Cuma Mart 09, 2018 2:35 am tarafından Ali Onur Aydemir

» Tema 16 Phpbb 2
Cuma Mart 09, 2018 2:34 am tarafından Ali Onur Aydemir

» Tema 15 Phpbb 3
Cuma Mart 09, 2018 2:30 am tarafından Ali Onur Aydemir

» Tema 14 Phpbb 2
Cuma Mart 09, 2018 2:28 am tarafından Ali Onur Aydemir

» Tma 13 Phpbb 2
Cuma Mart 09, 2018 2:27 am tarafından Ali Onur Aydemir

» Tema 12 Punbb
Cuma Mart 09, 2018 2:24 am tarafından Ali Onur Aydemir

En son konular
» Tema 20 YOUNG RİCH NATİON
Paz Mart 11, 2018 3:45 am tarafından Ali Onur Aydemir

» Tema 19 Phpbb 2
Cuma Mart 09, 2018 2:55 am tarafından Ali Onur Aydemir

» Tema18 Invision
Cuma Mart 09, 2018 2:37 am tarafından Ali Onur Aydemir

» Tema 17 Phpbb 2
Cuma Mart 09, 2018 2:35 am tarafından Ali Onur Aydemir

» Tema 16 Phpbb 2
Cuma Mart 09, 2018 2:34 am tarafından Ali Onur Aydemir

» Tema 15 Phpbb 3
Cuma Mart 09, 2018 2:30 am tarafından Ali Onur Aydemir

» Tema 14 Phpbb 2
Cuma Mart 09, 2018 2:28 am tarafından Ali Onur Aydemir

» Tma 13 Phpbb 2
Cuma Mart 09, 2018 2:27 am tarafından Ali Onur Aydemir

» Tema 12 Punbb
Cuma Mart 09, 2018 2:24 am tarafından Ali Onur Aydemir

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

Takvim Takvim

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

Takvim Takvim

Ortaklar
bedava forum

The most tagged keywords

The most tagged keywords


Bağlı değilsiniz. Bağlanın ya da kayıt olun

Ali Onur Aydemir Forum » RexaR MMo- CoderTeam Bölümü » Ders 13 Programlama

Ders 13 Programlama

Aşağa gitmek  Mesaj [1 sayfadaki 1 sayfası]

1 Ders 13 Programlama Bir C.tesi Ara. 08, 2012 6:28 am

Ali Onur Aydemir


Site Kurucusu Admin
Site Kurucusu Admin
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.

Kullanıcı profilini gör

Sayfa başına dön  Mesaj [1 sayfadaki 1 sayfası]

Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz