Access Vb.Net Ba?lanty..

	VB6 ile bir Access veritabanyna ba?lanmak ve i?lem yapmak oldukça kolaydy. Fakat ?imdi durum biraz farkly… A?a?yda VB.NET ile bir Access veritabanyna nasyl ba?lanyp i?lem yapaca?ynyzy adym , adym anlattym(nesneler ile). Umarym i?inize yarar.

1.Adym : Veri Tabanyny Olu?turun :

Access programyny çaly?tyryp yeni bir veri tabany olu?turalym.
Hemen bu veri tabanynda yeni bir tablo tasarlayalym.
Alan isimlerini kysa olmasy açysyndan 4 adetle synyrladym.
Alan isimleri :

 id         &nbs p; : otomatik sayy
isim       : Text  (50 karakter)
rakam1  : sayy (uzun tamsayy)
tarih      : tarih (kysa tarih)  

NOT : Alanlardan birini ID olarak belirlemeniz kullanym açysyndan oldukça kolaylyk sa?lar. Y?inize yarasada yaramasa da bu alany eklemeyi aly?kanlyk edinin.

Tablonuzu “veriler” ady ile kaydedin. Tabloyu kaydettikten sonra Access size “tanymly birinci anahtar yok olu?turayym my?” gibi basit bir soru soracak buraya “Evet” deyin.

Tablomuzu kaydetti?imize göre ?imdide veritabanynyn dönü?türme i?lemine geldi. Araçlar menusunden ;  “Veritabany hizmet programlary/veritabanyny dönü?tür/Access 97 biçimine” seçene?ini seçin. Access veri tabanynyzy farkly bir ?ekilde kaydetmek isteyecektir. Dosya ismi olarak “db1.mdb” belirleyin veritabanynyzy istedi?iniz bir yere kaydedin (kolaylyk olmasy açysyndan direk “C:\db1.mdb” kaydedin ).
Access ile olan i?imiz bu kadar. Özet olarak ;

----------------------------------
Veritabany ismi : “db1.mdb”
 Yolu         &n bsp;        : “C:\db1.mdb”
Tablo ismi        : “veriler”

2.Adym : VB.Net ile Veritabanyna Ba?lanmak :

Visual Stdio .NET ‘i çaly?tyryn. Yeni bir Visual Basic Projesi açyn. Proje açylynca otomatik olarak bir tane form zaten geliyor ve bizim için yeterli (ismini “form1” olarak byrakyyorum).

?imdi sol tarafta “toolbox” ady altynda “data” sekmesini seçin. Onunda altynda “OleDbDataAdapter” nesnesini göreceksiniz. Projenize bu nesneyi ekleyin. Bu nesneyi ekler eklemez kar?ynyza bir pencere çykacak. E?er bu pencere gelmezse nesneyi sa? tyklayyp “configure data adapter” seçene?ini seçin pencere açylacaktyr. Bu pencere “sihirbaza ho? geldiniz ileriyi tyklayyn “gibi bir muhabbete girecek. Hemen next ‘ e tyklayyp bir sonraki pencereye geçiyoruz. Bu pencerede  “New Connection” butonunu tyklayyp a?a?ydaki pencereye geçin (anlady?ynyz gibi yeni bir ba?lanty olu?turaca?yz).

Bu pencerede “sa?layycy” sekmesi altynda “Microsoft jet 4.0 OLE DB Provider” seçene?ini seçin ve ileri butonunu tyklayyn. Yleri butonunu tyklayynca a?a?ydaki gibi “ba?lanty” sekmesine geçilecektir.

Burada en üstteki alana veritabanynyzyn tam yolunu ve adyny girin(“c:\db1.mdb”). Ysterseniz yan taraftaki “göz at” dan da dosyanyzy bulup seçebilirsiniz.

Hemen altta user-parola kysmyny oldu?u gibi byrakyn(veritabanyna parola koymadyk!). daha sonra isterseniz alttaki test butonuna tyklayyp ba?lantynyzy test edebilirsiniz. Testden olumlu sonuç alyyorsanyz bir problem yok demektir. Artyk bu pencere ile i?imiz kalmady “Tamam” butonuna tyklayyn ve pencereyi kapatyn. Önümüzdeki önceki pencerede (az evvel “new connection” yapty?ymyz pencere) “next” yapyp ilerliyoruz. Kar?ymyza “use SQL statement” seçene?inin seçili oldu?u bir sonraki pencere gelecek. Fazla oyalanmadan bir sonraki adym için “next” diyoruz. ?imdi yeni bir pencere gelecek. Buradan “Query Builder” butonunu tyklayyn (“Add Table” penceresi açylacak). ?imdi a?a?ydaki resimde görüldü?ü gibi tablomuzun isminin burada görülmesi gerekir(“veriler”).

Tablomuzu ismini çift tyklady?ymyzda tablomuz arka alandaki pencerede görunecektir.
bu pencereyi “close” deyip kapatyn ve  arka planda tablomuzun alanlarynyn gorundugu pencereye geçin.

?ekilde de görüldü?ü gibi “All Columns” seçene?ini çek ‘leyerek hemen  “OK” butonunu tyklyyoruz. Geri planda kalan penceremiz tekrar önümüze gelecek (“SQL deyimi eklenmi? olarak”). Artyk sonuncu “next” ‘i tyklayyn a?a?ydaki gibi sorunsuz ve ba?aryly bir ba?lantynyn raporu gelmelidir.

E?er hepsi mavi renklerde cek edilmi?se problem yok demektir. Fakat çek i?aretleri yerine sary bir unlem varsa i?lemler syrasynda sorun ya?ayacaksynyz demektir. Bu yüzden buraya kadar olan i?lemleri tekrar kontrol edin hatta ba?tan yapyn. E?er sorun yoksa son olarak “Finish” butonunu tyklyyoruz (en sevdi?im butondur ).

3. Adym : Dataset olu?turmak :

?imdi son yapty?ymyz i?lemden sonra bir “OleDbConnection1” adynda nesnenin kendili?inden olu?tu?unu göreceksiniz. ?imdi Kayytlara eri?ebilmek için bizim bir “Dataset” nesnesine ihtiyacymyz olacak (VB.NET de veri tabany i?lemleri “dataset” ile yapylyr). Dataset nesnesini olu?turmak hepsinden kolay. Tek yapmanyz gereken “OleDbDataAdapter1” nesnemizi sa? tyklayyp “Generate Dataset…” seçene?ini seçmek. A?a?ydaki pencere kar?ynyza gelecek. Buraya kadar kullandy?ymyz hiçbir nesnenin adyny de?i?tirmedim ama bunda bir de?i?iklik yapalym.

?ekildede gördü?ünüz gibi datasetin ismini “rec” olarak belirleyin ve küçük kutulary bi zahmet cekleyin. En alttaki kutucu?u ceklemezseniz dataset nesnemiz tasarym anynda formda görünmez. Son olarak “OK” butonunu tyklayyn. Dataset nesnesinin projenize eklenmi? olmasy lazym. Dataset nesnesinin özelliklerine bakarsanyz 2 farkly isimle kar?yla?acaksynyz.
“Name : Rec1”  ve  “DataSetName : rec”. Fazla kafanyzy takmayyn. Bizim için önemli olan “Rec1”. Tüm kayytlara nesnenin bu ismi ile eri?ece?iz. Artyk veritabanyna kayyt yapabilmek için her ?ey hazyr. Yalnyz basit bir form tasarlayalym. Formu a?agydaki gibi tasarlayyn. Ben hiçbir nesnenin ismini de?i?tirmiyorum !(butonlaryn isimleri ise üzerlerindeki yazylar ile aynydyr.)

4. Adym :  Veri Tabany i?lemleri (dataset nesnesinin kullanymy) :

?imdi bu olu?turdu?umuz formun kodlaryny a?a?ydaki gibi yazyyoruz.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         OleDbDataAda pter1.Fill(Rec1)
        'önemli bir satyr, Datasetinize tüm kayytlary kullanma hakkyny veririr.
    End Sub

    Private Sub kayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kaydet.Click

        """'kayyt i?lemi

         Rec1.veriler .AddverilerRow(TextBox2.Text, Val(TextBox3.Text), Format(Now(), "short date"))
         OleDbDataAda pter1.Update(Rec1)
    End Sub

    Private Sub ara_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ara.Click
        satir_no = Val(TextBox5.Text)

         TextBox1.Tex t = Rec1.veriler.Item(satir_no).id
         TextBox2.Tex t = Rec1.veriler.Item(satir_no).isim
         TextBox3.Tex t = Rec1.veriler.Item(satir_no).rakam1
         TextBox4.Tex t = Rec1.veriler.Item(satir_no).tarih

        'veri okuma i?lemleri satyr numarasyna gore yapyldy.
    End Sub

    Private Sub sil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sil.Click
         Rec1.veriler .Item(satir_no).Delete()
         OleDbDataAda pter1.Update(Rec1)
    End Sub

    Private Sub duzelt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles duzelt.Click

         Rec1.veriler .Item(satir_no).isim = TextBox2.Text
         Rec1.veriler .Item(satir_no).rakam1 = TextBox3.Text
         Rec1.veriler .Item(satir_no).tarih = TextBox4.Text
         OleDbDataAda pter1.Update(Rec1)
    End Sub
End Class

Not : Burada kullandy?ymyz “satir_no” de?i?keni form1 içerisinde her yerde kullanylabilen bir global de?i?kendir. Bu de?i?keni tanymlamayy unutmayyn(integer olarak).

Silme ve Duzeltme modullerinin çaly?abilmesi için önce arama modulunun çaly?tyrylmasy gerekir. Bunun dy?ynda olu?abilecek hatalary kontrol etmedim. Örne?in alanlary bo? byrakyp kaydetmeye çaly?yrsanyz hata olu?abilir. Lütfen bunlary göz önüne alyn.

Yazar	Mesaj Konu Arama Konu Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır
serfirsoft Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Kıdemli Yazılımcı Kayıt Tarihi: 17/Temmuz/2006 Aktif Durum: Aktif Değil Gönderilenler: 98	Alıntı Cevapla Konu: Access Vb.Net Ba?lanty.. Gönderim Zamanı: 22/Temmuz/2006 Saat 05:28
	VB6 ile bir Access veritabanyna ba?lanmak ve i?lem yapmak oldukça kolaydy. Fakat ?imdi durum biraz farkly… A?a?yda VB.NET ile bir Access veritabanyna nasyl ba?lanyp i?lem yapaca?ynyzy adym , adym anlattym(nesneler ile). Umarym i?inize yarar. 1.Adym : Veri Tabanyny Olu?turun : Access programyny çaly?tyryp yeni bir veri tabany olu?turalym. Hemen bu veri tabanynda yeni bir tablo tasarlayalym. Alan isimlerini kysa olmasy açysyndan 4 adetle synyrladym. Alan isimleri : id &nbs p; : otomatik sayy isim : Text (50 karakter) rakam1 : sayy (uzun tamsayy) tarih : tarih (kysa tarih) NOT : Alanlardan birini ID olarak belirlemeniz kullanym açysyndan oldukça kolaylyk sa?lar. Y?inize yarasada yaramasa da bu alany eklemeyi aly?kanlyk edinin. Tablonuzu “veriler” ady ile kaydedin. Tabloyu kaydettikten sonra Access size “tanymly birinci anahtar yok olu?turayym my?” gibi basit bir soru soracak buraya “Evet” deyin. Tablomuzu kaydetti?imize göre ?imdide veritabanynyn dönü?türme i?lemine geldi. Araçlar menusunden ; “Veritabany hizmet programlary/veritabanyny dönü?tür/Access 97 biçimine” seçene?ini seçin. Access veri tabanynyzy farkly bir ?ekilde kaydetmek isteyecektir. Dosya ismi olarak “db1.mdb” belirleyin veritabanynyzy istedi?iniz bir yere kaydedin (kolaylyk olmasy açysyndan direk “C:\db1.mdb” kaydedin ). Access ile olan i?imiz bu kadar. Özet olarak ; ---------------------------------- Veritabany ismi : “db1.mdb” Yolu &n bsp; : “C:\db1.mdb” Tablo ismi : “veriler” 2.Adym : VB.Net ile Veritabanyna Ba?lanmak : Visual Stdio .NET ‘i çaly?tyryn. Yeni bir Visual Basic Projesi açyn. Proje açylynca otomatik olarak bir tane form zaten geliyor ve bizim için yeterli (ismini “form1” olarak byrakyyorum). ?imdi sol tarafta “toolbox” ady altynda “data” sekmesini seçin. Onunda altynda “OleDbDataAdapter” nesnesini göreceksiniz. Projenize bu nesneyi ekleyin. Bu nesneyi ekler eklemez kar?ynyza bir pencere çykacak. E?er bu pencere gelmezse nesneyi sa? tyklayyp “configure data adapter” seçene?ini seçin pencere açylacaktyr. Bu pencere “sihirbaza ho? geldiniz ileriyi tyklayyn “gibi bir muhabbete girecek. Hemen next ‘ e tyklayyp bir sonraki pencereye geçiyoruz. Bu pencerede “New Connection” butonunu tyklayyp a?a?ydaki pencereye geçin (anlady?ynyz gibi yeni bir ba?lanty olu?turaca?yz). Bu pencerede “sa?layycy” sekmesi altynda “Microsoft jet 4.0 OLE DB Provider” seçene?ini seçin ve ileri butonunu tyklayyn. Yleri butonunu tyklayynca a?a?ydaki gibi “ba?lanty” sekmesine geçilecektir. Burada en üstteki alana veritabanynyzyn tam yolunu ve adyny girin(“c:\db1.mdb”). Ysterseniz yan taraftaki “göz at” dan da dosyanyzy bulup seçebilirsiniz. Hemen altta user-parola kysmyny oldu?u gibi byrakyn(veritabanyna parola koymadyk!). daha sonra isterseniz alttaki test butonuna tyklayyp ba?lantynyzy test edebilirsiniz. Testden olumlu sonuç alyyorsanyz bir problem yok demektir. Artyk bu pencere ile i?imiz kalmady “Tamam” butonuna tyklayyn ve pencereyi kapatyn. Önümüzdeki önceki pencerede (az evvel “new connection” yapty?ymyz pencere) “next” yapyp ilerliyoruz. Kar?ymyza “use SQL statement” seçene?inin seçili oldu?u bir sonraki pencere gelecek. Fazla oyalanmadan bir sonraki adym için “next” diyoruz. ?imdi yeni bir pencere gelecek. Buradan “Query Builder” butonunu tyklayyn (“Add Table” penceresi açylacak). ?imdi a?a?ydaki resimde görüldü?ü gibi tablomuzun isminin burada görülmesi gerekir(“veriler”). Tablomuzu ismini çift tyklady?ymyzda tablomuz arka alandaki pencerede görunecektir. bu pencereyi “close” deyip kapatyn ve arka planda tablomuzun alanlarynyn gorundugu pencereye geçin. ?ekilde de görüldü?ü gibi “All Columns” seçene?ini çek ‘leyerek hemen “OK” butonunu tyklyyoruz. Geri planda kalan penceremiz tekrar önümüze gelecek (“SQL deyimi eklenmi? olarak”). Artyk sonuncu “next” ‘i tyklayyn a?a?ydaki gibi sorunsuz ve ba?aryly bir ba?lantynyn raporu gelmelidir. E?er hepsi mavi renklerde cek edilmi?se problem yok demektir. Fakat çek i?aretleri yerine sary bir unlem varsa i?lemler syrasynda sorun ya?ayacaksynyz demektir. Bu yüzden buraya kadar olan i?lemleri tekrar kontrol edin hatta ba?tan yapyn. E?er sorun yoksa son olarak “Finish” butonunu tyklyyoruz (en sevdi?im butondur ). 3. Adym : Dataset olu?turmak : ?imdi son yapty?ymyz i?lemden sonra bir “OleDbConnection1” adynda nesnenin kendili?inden olu?tu?unu göreceksiniz. ?imdi Kayytlara eri?ebilmek için bizim bir “Dataset” nesnesine ihtiyacymyz olacak (VB.NET de veri tabany i?lemleri “dataset” ile yapylyr). Dataset nesnesini olu?turmak hepsinden kolay. Tek yapmanyz gereken “OleDbDataAdapter1” nesnemizi sa? tyklayyp “Generate Dataset…” seçene?ini seçmek. A?a?ydaki pencere kar?ynyza gelecek. Buraya kadar kullandy?ymyz hiçbir nesnenin adyny de?i?tirmedim ama bunda bir de?i?iklik yapalym. ?ekildede gördü?ünüz gibi datasetin ismini “rec” olarak belirleyin ve küçük kutulary bi zahmet cekleyin. En alttaki kutucu?u ceklemezseniz dataset nesnemiz tasarym anynda formda görünmez. Son olarak “OK” butonunu tyklayyn. Dataset nesnesinin projenize eklenmi? olmasy lazym. Dataset nesnesinin özelliklerine bakarsanyz 2 farkly isimle kar?yla?acaksynyz. “Name : Rec1” ve “DataSetName : rec”. Fazla kafanyzy takmayyn. Bizim için önemli olan “Rec1”. Tüm kayytlara nesnenin bu ismi ile eri?ece?iz. Artyk veritabanyna kayyt yapabilmek için her ?ey hazyr. Yalnyz basit bir form tasarlayalym. Formu a?agydaki gibi tasarlayyn. Ben hiçbir nesnenin ismini de?i?tirmiyorum !(butonlaryn isimleri ise üzerlerindeki yazylar ile aynydyr.) 4. Adym : Veri Tabany i?lemleri (dataset nesnesinin kullanymy) : ?imdi bu olu?turdu?umuz formun kodlaryny a?a?ydaki gibi yazyyoruz. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load OleDbDataAda pter1.Fill(Rec1) 'önemli bir satyr, Datasetinize tüm kayytlary kullanma hakkyny veririr. End Sub Private Sub kayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kaydet.Click """'kayyt i?lemi Rec1.veriler .AddverilerRow(TextBox2.Text, Val(TextBox3.Text), Format(Now(), "short date")) OleDbDataAda pter1.Update(Rec1) End Sub Private Sub ara_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ara.Click satir_no = Val(TextBox5.Text) TextBox1.Tex t = Rec1.veriler.Item(satir_no).id TextBox2.Tex t = Rec1.veriler.Item(satir_no).isim TextBox3.Tex t = Rec1.veriler.Item(satir_no).rakam1 TextBox4.Tex t = Rec1.veriler.Item(satir_no).tarih 'veri okuma i?lemleri satyr numarasyna gore yapyldy. End Sub Private Sub sil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sil.Click Rec1.veriler .Item(satir_no).Delete() OleDbDataAda pter1.Update(Rec1) End Sub Private Sub duzelt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles duzelt.Click Rec1.veriler .Item(satir_no).isim = TextBox2.Text Rec1.veriler .Item(satir_no).rakam1 = TextBox3.Text Rec1.veriler .Item(satir_no).tarih = TextBox4.Text OleDbDataAda pter1.Update(Rec1) End Sub End Class Not : Burada kullandy?ymyz “satir_no” de?i?keni form1 içerisinde her yerde kullanylabilen bir global de?i?kendir. Bu de?i?keni tanymlamayy unutmayyn(integer olarak). Silme ve Duzeltme modullerinin çaly?abilmesi için önce arama modulunun çaly?tyrylmasy gerekir. Bunun dy?ynda olu?abilecek hatalary kontrol etmedim. Örne?in alanlary bo? byrakyp kaydetmeye çaly?yrsanyz hata olu?abilir. Lütfen bunlary göz önüne alyn.


ahmet007 Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Süper Yazılımcı Kayıt Tarihi: 05/Aralyk/2005 Aktif Durum: Aktif Değil Gönderilenler: 415	Alıntı Cevapla Gönderim Zamanı: 23/Temmuz/2006 Saat 02:02
	serfirsoft ellerine sa?lyk eme?ine sa?lyk..güzel anlatmy?syn

serfirsoft Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Kıdemli Yazılımcı Kayıt Tarihi: 17/Temmuz/2006 Aktif Durum: Aktif Değil Gönderilenler: 98	Alıntı Cevapla Gönderim Zamanı: 23/Temmuz/2006 Saat 10:10
	Önemli De?il Yarary Olsun Yeter.

karan Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Moderatör Hasta Cimbomlu Kayıt Tarihi: 17/Ocak/2006 Aktif Durum: Aktif Değil Gönderilenler: 1402	Alıntı Cevapla Gönderim Zamanı: 23/Temmuz/2006 Saat 23:20
	te?ekkürler serfirsoft ..devamyny bekleriz
	kodyaziyorum.com

mehmetokkas Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yeni Yazılımcı Kayıt Tarihi: 06/Haziran/2006 Konum: Turkiye Aktif Durum: Aktif Değil Gönderilenler: 3	Alıntı Cevapla Gönderim Zamanı: 25/A?ustos/2006 Saat 01:26
	yazy güzel olmu? ama alynty oldugunu belirtseydin daha güzel olurdu bence www.vbasicmaster.com adresinde mevcut bu makale yinede emegine saglyk
	^OKKAS^

bilgihane Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Üyenin Web Sitesine Git Arkadaş Listeme Ekle Kıdemli Yazılımcı Kayıt Tarihi: 22/Mart/2007 Konum: Manisa Aktif Durum: Aktif Değil Gönderilenler: 82	Alıntı Cevapla Gönderim Zamanı: 27/Eylül/2007 Saat 23:39
	sa?olasyn payla?ym için hocam. Bu arada vbasicmaster.com'dan ben hiç fayda görmedim. Ele?tiri de?il. sadece fikir beyany... Yanly? anla?ylmasyn
	Saygy ve Sevgi ile Bahadyr KAÇMAZ http://www.mevlanasitesi.com Hayatta ya tozu dumana katarsyn, ya da tozu dumany yutarsyn. Unutma Her ?ey Seninle Ba?lar...!!!

ersdal Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yeni Yazılımcı Kayıt Tarihi: 10/Ekim/2007 Konum: Gaziantep Aktif Durum: Aktif Değil Gönderilenler: 8	Alıntı Cevapla Gönderim Zamanı: 10/Ekim/2007 Saat 13:59
	sa?ol karde?.
	Hayatta Ba?armak Yçin Denemek Gerekir...

carg Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yeni Yazılımcı Kayıt Tarihi: 15/?ubat/2009 Aktif Durum: Aktif Değil Gönderilenler: 1	Alıntı Cevapla Gönderim Zamanı: 15/?ubat/2009 Saat 19:46
	syrf te?ekkur etmek için uye oldum saolasyn war olasyn karde? belky senyn sayende bizde ilerde bu i?den ekmek yicez deeeemi...
	yok iD

0Ld.StyLe Üye Profili Özel Mesaj Yolla Üyenin Mesajlarını Bul Arkadaş Listeme Ekle Yeni Yazılımcı Kayıt Tarihi: 10/Mart/2010 Konum: svfdv Aktif Durum: Aktif Değil Gönderilenler: 1	Alıntı Cevapla Gönderim Zamanı: 10/Mart/2010 Saat 18:27
	eyw. muhte?m bi site muht?m bi payLa?m eyw...:)
	gergergregrgrgrgrgarg