none
komutnesnesi.ExecuteNonQuery() hata veriyor silme işlemi gerçekleşmiyor RRS feed

  • Soru

  • Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='Avukat.mdb'")

            Dim sql As New String("DELETE FROM VERI WHERE ADI='{0}' AND SOYADI='{1}' AND NUMARA={2}")
            sql = String.Format(sql, TextBox1.Text, TextBox2.Text, TextBox3.Text)

            Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
            Dim sonuc As Integer
            baglanti.Open()
            sonuc = komutnesnesi.ExecuteNonQuery()
            If sonuc = 1 Then
                MsgBox("Listeden Seçmiş Olduğunuz Veri Silinmiştir.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")

            End If
            Listele("SELECT * FROM VERI'")
            baglanti.Close()
            Temizle()
         

        End Sub
    16 Haziran 2014 Pazartesi 13:44

Yanıtlar

  • Parametre ekleyerek yapsanız daha sağlıklı olur.

    Dim komutnesnesi As New OleDbCommand("DELETE FROM VERI WHERE ADI=@ad AND SOYADI=@soyad AND NUMARA=@numara",baglanti)
    komutnesnesi.Parameters.AddWithValue("@ad",TextBox1.Text)
    komutnesnesi.Parameters.AddWithValue("@soyad",TextBox2.Text)
    komutnesnesi.Parameters.AddWithValue("@numara",TextBox3.Text)
    

    gibi. Böylelikle hata almazsınız.


    İletişim

    17 Haziran 2014 Salı 06:03
    Moderatör