Kısa ve basit bir şekilde VISUAL STUDIO da veri tabanıyla Kayıt,Okuma,Silme ve Guncelleme işlemlerini KODlarıyla birlikte anlatmaya calışacağım..Bir ornekle başlayalım..
Once veritabanı oluşturalım.. adıda "data" olsun..(data.mdb)
sonra bir tablo oluşturalım TASARIM GORUNUMUNDE TABLO OLUŞTUR diyerek acalım .. Veri Alan Adı "Kadi" veri turu "metin" , diğer veri alan adı "Sifre" veri turu metin olsun..
Formumuza 2 TextBox,2 ListBox,4 Label,4 Button ekleyelim

Sırayla TextBoxları K.adı ve Şifre olarak alt alta dizin.. Butonların isimlerini de sırayla "Kaydet","Goruntule","Guncelle","SİL" olarak adlandıralım.. ListBoxları da K.adı ve Şifreyi ayrı olarak goruntuleyecek şekilde yerleştirin.Labelları da ona gore adlandırın.. Şimdi koda başlayalım..

İLK OLARAK Kod Kısmının "Public Class Form1" yazan yerin hemen altına şu tanımlamaları yapalım..
Kod:
Dim baglanti As New OleDb.OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = Data.mdb") Dim yonetici As New OleDb.OleDbCommand Dim okuyucu As OleDb.OleDbDataReader
Ardından "Kaydet" butonuna girelim.. Burada yazacağımız kod şu :

Kod:
yonetici.Connection = baglanti yonetici.Parameters.AddWithValue("@p1", textbox1.text) yonetici.Parameters.AddWithValue("@p2", textbox2.text) yonetici.CommandText = "INSERT INTO Tablo1(Kadi,Sifre) VALUES(@p1,@p2)" baglanti.Open() yonetici.ExecuteNonQuery() MsgBox("Kayıt İşlemi Başarılı!") yonetici.Dispose() baglanti.Close()
' p1 ve p2 parametre adı Turkce olmayan her turlu isimi verebilirsiniz.. (no,top,.. gibi haric)

---------------------------------------------------------------------------
"Goruntule" butonunun icine girelim.. Buraya

Kod:
yonetici.Connection = baglanti yonetici.CommandText = "SELECT * FROM Tablo1" baglanti.Open() okuyucu = yonetici.ExecuteReader While okuyucu.Read ListBox1.Items.Add(okuyucu(0)) 'ilk sutunun numarası 0(sıfır) dır. ListBox2.Items.Add(okuyucu(1)) End While okuyucu.Close() baglanti.Close() yonetici.Dispose()
----------------------------------------------------------------------
Listbox1 e cift tıklayarak icine girelim ve şu kodları yazarak sectiğimiz kullanıcı adını yukarıdaki textboxlara k.adi ve şifreyi yazdırmasını ardından da guncelle tuşuyla değiştirdiğimiz bilgileri guncellemesini sağlayacağız...
Bu kod ile listbox da tıkladığımız kullanıcı adına gore tablodan o kullanıcı adını ve şifresini cekerek textboxlara dolduruyoruz..

Kod:
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged yonetici.Connection = baglanti yonetici.CommandText = "SELECT * FROM Tablo1 WHERE (Kadi='" + listbox1.selecteditem + "' )" baglanti.Open() okuyucu = yonetici.ExecuteReader While okuyucu.Read TextBox1.Text = okuyucu(0) TextBox2.Text = okuyucu(1) End While baglanti.Close() yonetici.Dispose() okuyucu.Close() End Sub
-----------------------------------------------------------------------
"GUNCELLE" butonuna girelim

Kod:
yonetici.connection=baglanti yonetici.Parameters.AddWithValue("@p1", TextBox1.Text) yonetici.Parameters.AddWithValue("@p2", TextBox2.Text) yonetici.CommandText = "UPDATE Tablo1 SET Kadi= @p1, Sifre= @p2 WHERE (Kadi= '" + textbox1.text+ "' )" baglanti.Open() yonetici.ExecuteNonQuery() yonetici.Dispose() baglanti.Close() MessageBox.Show("Bilgiler Başarıyla Değiştirildi ve Kaydedildi !", "Guncellendi")
------------------------------------------------------------------------
"SİL" butonuna girelim

Kod:
yonetici.Connection = baglanti yonetici.CommandText ="DELETE Tablo1.* FROM Tablo1 WHERE (Kadi='" + listbox1.selecteditem + "' " baglanti.Open() yonetici.ExecuteNonQuery() yonetici.Dispose() baglanti.Close()
-----------------------------------------------------------------------
TUM İŞLEMLERİN KODLARI BARINMAKTADIR.. EĞER KODLARLA İLGİLİ ANLAYAMADIĞINIZ VEYA SORUNLA KARŞILAŞTIĞINIZ BİR YER OLURSA BURADA SORUN , CEVAPLAYAYIM... inşaALLAH işinize yarar..
__________________