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..!
Önceki Yazı