Combo Box Kullanarak Seçilen Veriyi Veritabanından Silmek

Bu ADO.net dersimizde combobox kullanarak seçilen veriyi veritabanından silme işlemi yapacagız.

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:


Imports System.Data.OleDb

Public Class Form6

Dim con As OleDbConnection

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

con = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;data

source=KITAPLAR.mdb")

If (con.State = ConnectionState.Closed) Then

con.Open()

End If

Dim komut1 As New OleDbCommand("select DISTINCT KITAP FROM

KITAP", con)

Dim DR As OleDbDataReader

DR = komut1.ExecuteReader()

Dim dt As New DataTable

dt.Load(DR)

ComboBox1.DataSource = dt

ComboBox1.DisplayMember = "KITAP"

Dim DA As New OleDbDataAdapter("select * FROM KITAP", con)

Dim ds As New DataSet

DA.Fill(ds, "tablo1")

DataGridView1.DataSource = ds.Tables(0)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Dim kitap As New OleDbParameter

kitap.OleDbType = OleDbType.VarChar

kitap.Value = ComboBox1.Text

Dim komut As New OleDbCommand("DELETE FROM KITAP WHERE KITAP=?",

con)

komut.Parameters.Add(kitap)

Dim a As Integer = komut.ExecuteNonQuery()

If a <= 0 Then

MsgBox("silinecek kaıt bulunamadı")

Else

MsgBox(a.ToString & " adet kayıt silindi")

End If

Dim DA As New OleDbDataAdapter("select * FROM KITAP", con)

Dim ds As New DataSet

DA.Fill(ds, "tablo1")

DataGridView1.DataSource = ds.Tables(0)

End Sub

End Class



Burada kullanılan teknolojinin Ado.net olduğunu bilmenizde yarar var.
İyi çalışmalar...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

güze olmuş ellerine sağlık da bu vb 2005 için degeçerlimi ????
işte bu ya, kardeşim emeğine sağlık hem resimle anlatmışsın, hemde anlatışın güzel . tebrikler.
[b]con.State = ConnectionState.Closed Vede a.ToString Bunun anlamlarını söylermisiniz? Yeterince anladım fakat bunlar biraz kafamı karıştırdı. Yardımcı olursanız sevinirim.[/b]

Yukarı Git