- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu ADO.net dersimizde combobox kullanarak seçilen veriyi veritabanından silme işlemi yapacagız.
Öncelikle VB.net 2008 ortamını açıyoruz ve Windows FORM açıyoruz. Form görüntüsünü aşağıdaki gibi ayarlıyoruz.
Sonra da aşağıdaki kodlarımızı doğru bir şekilde yazıyoruz:
Kod:
Imports System.Data.OleDbPublic Class Form6Dim con As OleDbConnectionPrivate Sub Form6_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadcon = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;datasource=KITAPLAR.mdb")If (con.State = ConnectionState.Closed) Thencon.Open()End IfDim komut1 As New OleDbCommand("select DISTINCT KITAP FROMKITAP", con)Dim DR As OleDbDataReaderDR = komut1.ExecuteReader()Dim dt As New DataTabledt.Load(DR)ComboBox1.DataSource = dtComboBox1.DisplayMember = "KITAP"Dim DA As New OleDbDataAdapter("select * FROM KITAP", con)Dim ds As New DataSetDA.Fill(ds, "tablo1")DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim kitap As New OleDbParameterkitap.OleDbType = OleDbType.VarCharkitap.Value = ComboBox1.TextDim komut As New OleDbCommand("DELETE FROM KITAP WHERE KITAP=?",con)komut.Parameters.Add(kitap)Dim a As Integer = komut.ExecuteNonQuery()If a <= 0 ThenMsgBox("silinecek kaıt bulunamadı")ElseMsgBox(a.ToString & " adet kayıt silindi")End IfDim DA As New OleDbDataAdapter("select * FROM KITAP", con)Dim ds As New DataSetDA.Fill(ds, "tablo1")DataGridView1.DataSource = ds.Tables(0)End SubEnd Class
Burada kullanılan teknolojinin Ado.net olduğunu bilmenizde yarar var.
İyi çalışmalar...
Öncelikle VB.net 2008 ortamını açıyoruz ve Windows FORM açıyoruz. Form görüntüsünü aşağıdaki gibi ayarlıyoruz.
Sonra da aşağıdaki kodlarımızı doğru bir şekilde yazıyoruz:
Kod:
Imports System.Data.OleDbPublic Class Form6Dim con As OleDbConnectionPrivate Sub Form6_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadcon = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;datasource=KITAPLAR.mdb")If (con.State = ConnectionState.Closed) Thencon.Open()End IfDim komut1 As New OleDbCommand("select DISTINCT KITAP FROMKITAP", con)Dim DR As OleDbDataReaderDR = komut1.ExecuteReader()Dim dt As New DataTabledt.Load(DR)ComboBox1.DataSource = dtComboBox1.DisplayMember = "KITAP"Dim DA As New OleDbDataAdapter("select * FROM KITAP", con)Dim ds As New DataSetDA.Fill(ds, "tablo1")DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim kitap As New OleDbParameterkitap.OleDbType = OleDbType.VarCharkitap.Value = ComboBox1.TextDim komut As New OleDbCommand("DELETE FROM KITAP WHERE KITAP=?",con)komut.Parameters.Add(kitap)Dim a As Integer = komut.ExecuteNonQuery()If a <= 0 ThenMsgBox("silinecek kaıt bulunamadı")ElseMsgBox(a.ToString & " adet kayıt silindi")End IfDim DA As New OleDbDataAdapter("select * FROM KITAP", con)Dim ds As New DataSetDA.Fill(ds, "tablo1")DataGridView1.DataSource = ds.Tables(0)End SubEnd Class
Burada kullanılan teknolojinin Ado.net olduğunu bilmenizde yarar var.
İyi çalışmalar...