HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Öncelikle C sürücümüzde kitap adında bir Access veritabanı oluşturalım.Daha sonra bunun içerisine
Kitap_adi,kitap_baslik,yazar alanlarını içeren kitaplar adında bir tablo ekliyelim.Evet veritabanımız oluştu geçelim Vb.Net kısmına
Yeni bir proje açıp formumuzun üzerine bir textbox ve birde button ekliyelim. Buttonumuzun click eventına şu kodlarımızı yazalım
Öncelikle en üst kısma Imports System.Data.Oledb bu kodumuzu yazalım bu oledb sınıfını projemize eklemeye yarar evet kodlarımıza geçelim.
Dim conn as new oledbconnection //connection nesnemizi oluşturduk
Dim comm as new oledbcommand//command nesnemizi oluşturduk
Dim da as new oledbdataadapter //dataadapter nesnemizi oluşturduk
Dim ds as new dataset //dataset nesnemizi belirledik
Dim connstr as string=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\kitap.mdb //connection string cümlemizi tutacağımız değişken.
Conn.connectionstring=connstr //bağlantı cümlemizi belirledik
Conn.open //bağlantımızı açtık
Comm.connection=conn //command nesnemizin çalışacağı bağlantıyı belirledik
Comm.commandtext=//sorgu cümlemizi yazdık
Comm.executenonquery //sorgumuzu çalıstırdık
Da.selectcommand=comm //dataadapter nesnemizin komut nesnesini belirttik
Da.fill(ds,kitaplar) dataadapterımıza çektiğimiz verilerimizi datasetimizde kitaplar adında bir tablo olusturarak bu tabloya doldurduk.
Textbox1.text=ds.tables(kitaplar).Rows(2).Item( kitap_baslik) //evet datasetimizdeki kitaplar adlı tablodaki kitap_baslik alanındaki ilk kaydı textbox ımıza doldurduk.
Conn.close//bağlantımızı kapatıyorz.
Kitap_adi,kitap_baslik,yazar alanlarını içeren kitaplar adında bir tablo ekliyelim.Evet veritabanımız oluştu geçelim Vb.Net kısmına
Yeni bir proje açıp formumuzun üzerine bir textbox ve birde button ekliyelim. Buttonumuzun click eventına şu kodlarımızı yazalım
Öncelikle en üst kısma Imports System.Data.Oledb bu kodumuzu yazalım bu oledb sınıfını projemize eklemeye yarar evet kodlarımıza geçelim.
Dim conn as new oledbconnection //connection nesnemizi oluşturduk
Dim comm as new oledbcommand//command nesnemizi oluşturduk
Dim da as new oledbdataadapter //dataadapter nesnemizi oluşturduk
Dim ds as new dataset //dataset nesnemizi belirledik
Dim connstr as string=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\kitap.mdb //connection string cümlemizi tutacağımız değişken.
Conn.connectionstring=connstr //bağlantı cümlemizi belirledik
Conn.open //bağlantımızı açtık
Comm.connection=conn //command nesnemizin çalışacağı bağlantıyı belirledik
Comm.commandtext=//sorgu cümlemizi yazdık
Comm.executenonquery //sorgumuzu çalıstırdık
Da.selectcommand=comm //dataadapter nesnemizin komut nesnesini belirttik
Da.fill(ds,kitaplar) dataadapterımıza çektiğimiz verilerimizi datasetimizde kitaplar adında bir tablo olusturarak bu tabloya doldurduk.
Textbox1.text=ds.tables(kitaplar).Rows(2).Item( kitap_baslik) //evet datasetimizdeki kitaplar adlı tablodaki kitap_baslik alanındaki ilk kaydı textbox ımıza doldurduk.
Conn.close//bağlantımızı kapatıyorz.
