Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » VB 2008'i access'e sql ile bağlantı ve veri işlemleri..!
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Yeni Sayfa ekleme

Yazar: rahmi
Excel e veriler girerek yeni sayfa oluşturmak için aşağıdaki kodu kullanabilirsiniz.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 11892
Yayın Tar:18.01.2010
Yazar : CWlordu
Hit :3770

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Access'e sql ile bağlantı ve veri işlemleri..!
Elimden geldiği kadar açılama yapmaya çalıştım..!İnşallah faydalı olur..! ;) Lütfen açıklamasını yanlış yaptığım bir yer varsa bildiriniz.. Çünkü bende daha yeniyim

Imports System.Data
Imports System.Data.OleDb

'Class öncesinde veritabanı kullanacağımızı bildirdik..

Public Class formadi

Dim Cnn As New OleDbConnection("Provider=Microsoft.Jet.OleDB.4.0; Data Source=C:\kr_db.mdb;")

'Class sonrası veritabanı bağlantı türümüzü ve veritabanımızın konumunu belirliyoruz.. Artık bağlantımızı yaptığımıza göre veri işlemlerine geçebiliriz..! Hepsini butonlarla kullanıcaz..!

Veri Ekleme:

Private Sub ekle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ekle.Click

Dim Cmd As New OleDbCommand("Insert Into tablo_adi ([sütun1],[sütun2],[sütun3],[.....]) Values ('" & TextBox1.Text & "','" & TextBox2.Text & "')", Cnn)

'Veri tabanına kayıt eklemek için kullanılan satırıda yazdık..!
'Eğer girdiğin değer string bir değerse yazımında tek tırnak kullanmak gereklidir..!Örneğin values('" & label1.text & "', '" & label2.text & "')
'Eğer girdiğin değer sayısal bir değerse yazımında tırnak kullanmana gerek yoktur..!Örneğin values(" & label1.text &", " & label2.text & ")

Cmd.ExecuteNonQuery()
'Bu fonksiyonda girdiğimiz komuta göre değerleri işler.. Güncellemede de aynı komut kullanılır..!

End Sub

'Kayıt ekleme işlemi bitti şimdi kayıt okuma işlemine geçelim..!

Private Sub kayit_oku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kayit_oku.Click

Dim Cmd As New OleDbCommand("select * from tablo_adi", Cnn) -->* tablodan tüm kayıtları çekmeye yarar..!
Dim Dr As OleDbDataReader --> veri okuyucu tanımlıyoruz..!
Dr = Cmd.ExecuteReader --> veri okuyucuyu işlem okuyucuya eşitliyoruz..! hatalı bir işlem yapılırsa bu satırda programı kitleyecektir..!
While Dr.Read() -->tablodan verileri okuyoruz..! While döngüsü tablodan veri geldiği sürece çalışacaktır..! eğer döngüye sokmazsak sadece tabloda ki ilk veriyi okuyacaktır..!
lbuser.Items.Add(Dr("sütun1")) --> Okunmasını istediğimiz veriyi listbox a eklediğimizi varsayalım.. tablodan değer geldikce listbox a sütun daki verileri ekleyecektir..!
End While
Dr.Close()--> Okuma işlemi bittikten sonra bağlantıyı kapatıyoruz..!

'Veri okumanın çeşitli şekilleri var ama bu en basiti..! Diğerlerinden inş. daha sonra bahsedeceğim..!

End Sub

'Kayıt okuma işlemi bitti şimdi güncelleme işlemine geçelim..!

Veri Güncelleme:

Private Sub guncelle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guncelle.Click

Dim Cmd As New OleDbCommand("update tablo_adi set [sütun1]='" & TextBox2.Text & "', [sütun2]=" & CInt(Label6.Text) & " where güncellenecek_kayit_sütunu='" & TextBox1.Text & "'", Cnn)
'Veri tabanını güncellemek için kullanılan satırıda yazdık.. Burada set komutundan sonraki [sütunlar] güncellemek istediğin alanlar..! = den sonraki değerler sütunşara göndereceğin değerlerdir.. Yine burda da string veya sayısal bir değer göndericeksen aynı şekilde yukarda bahsettiğim gibi yapıcaksın..!
'Örneğin [adi]='" & TextBox2.Text & "', [numarasi]=" & CInt(Label6.Text) & " --> CINT() fonksiyonu içine gelen değeri integer'a çevirmede kullanılır..!

'Daha sonra where güncellenecek_kayit_sütunu='" & TextBox1.Text & "' --> bu satırda güncellemek istediğimiz bilgilerin hangi kayda göre değişeceğini belirtiyoruz..!
'Örneğin where kayit_no=" & TextBox1.Text & " --> kayit no sayısal bir değer olduğu için tırnak koymadık..!

Cmd.ExecuteNonQuery()
'En son yine komutu çalıştırma fonksiyonumuzu yazıyoruz..!

End Sub

'Güncelleme işlemi bitti şimdi silme işlemine geçelim..!

Private Sub sil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sil.Click

Dim Cmd As New OleDbCommand("Delete from tablo_adi where silinecek_kayit_sütunu='" & TextBox1.Text & "'", Cnn)
'Veri tabanını güncellemek için kullanılan satırıda yazdık.. Örneğin where kayit_no=" & TextBox1.Text & " --> buradaki silinecek değer diğerlerinde bulunmamalı yoksa karışıklık olur..!

Cmd.ExecuteNonQuery()
'En son yine komutu çalıştırma fonksiyonumuzu yazıyoruz..!

H.İbrahim KARA
darkblue.06@hotmail.com




Yorumlar, eklemeler ve düşünceler
        bu oledb..

bide adodb vard?.. o adodb nin aç?klamas?n?da payla??rsan çok güzel olur :)

ama buda çok güzel olmu?. eline sa?l?k :)

   ataqn, 12.03.2010 23:09
   gerekli bilgileri buradan bulabilirsiniz..!

   CWlordu, 28.01.2011 22:37
   linki vermeyi unuttum kbakmayın.. :))


http://web.sakarya.edu.tr/~temurtas/ado_nedir.htm

   CWlordu, 28.01.2011 22:38
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin