29/08/2014, 10:12
cix06
Arkadaşlar merhaba,
Yapmış olduğum projede silme işlemini gerçekleştiremiyorum konu hakkında yardımınızı bekliyorum teşekkürler.
 
Yapmış olduğum projede silme işlemini gerçekleştiremiyorum konu hakkında yardımınızı bekliyorum teşekkürler.
 'Sil Butonu
    'DataGrid üzerinden seçilen kaydı silmemize yarar.
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Me.TextBox1.Text = "" Then
            MsgBox("Lütfen Öncelikle Kayıt Seçiniz.", MsgBoxStyle.Exclamation, "DİKKAT")
        Else
            Dim Sql As New String("DELETE FROM tab WHERE sıra='{0}' ")
            Sql = String.Format(sql, DataGridView1.CurrentRow.Cells(0).Value)
            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")
            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 Veriler Silinmiştir.", MsgBoxStyle.Exclamation, "Silme İşlemi")
            End If
            Listele("SELECT * FROM tab'")
            baglanti.Close()
        End If
    End Sub