Access veri tabanından veri silme

[arslanbey]

If MsgBox("'" & ListBox2.Text & "' adlı konuya ait bilgi ve kodlar silinecektir, emin misiniz?", vbYesNo, "Arslanbey") = vbYes Then
If OptionButton1.Value = True Then tabloadi = "tablo1"
If OptionButton2.Value = True Then tabloadi = "tablo2"
If OptionButton3.Value = True Then tabloadi = "tablo3"
If OptionButton4.Value = True Then tabloadi = "tablo4"
If OptionButton5.Value = True Then tabloadi = "tablo5"
    Set rs = CreateObject("ADODB.recordset")
    Tanimlanan = "SELECT * FROM " & tabloadi
    rs.Open Tanimlanan, AdoCN, 1, 3
    rs.Delete
    ListBox2.RemoveItem (ListBox2.ListIndex)
Set rs = Nothing
End If End sub

İyi akşamlar arkadaşlar yukardaki kodlar ile access veri tabanından listbox verileri sile biliyorum fakat istediğim veriyi değilde listbox en üstde hangi veri varsa onu siliyor benim istediğim listbox istediğim listbox hangi veriyi seçtimse onu silmek istiyorum.

 

[Taruz]

Merhaba..

Listede Id (benzersiz) alanınız var mı?

 

[arslanbey]

Hayır yok hocam.

 

[Taruz]

O halde standart dışı yöntemler kullanmak lazım.. Listedeki verileri sütunları ile örnekleyebilir misiniz?

1.sütun(tabloda eşleşen alan adı)
ahmet
2.sütun(tabloda eşleşen alan adı)
yılmaz
3.sütun(tabloda eşleşen alan adı)
istanbul
...
...

şeklinde..

Ya da örneğinizi eklerseniz; 11'e kadar buradayım, ilgilenebilirim..

 

[arslanbey]

Beceremedim hocam dosya ekleyemem gizli bilgiler var ve dosya boyutu çok büyük hocam isterseniz yaptığım access veritabanına kayıt kodları ekleye bilirim.

 

[Taruz]

Listenin ve tablonun yapısını bilmeden ne söyleyebilirim ki.. Neticede silmek için kullandığınız koda, listede seçtiğiniz kaydı şart olarak vermeniz lazım.. Bu şartı oluşturmamız gerek..

Aynı özelliklerde basit bir uygulama hazırlayıp ekleme imkanınız olursa yardımcı olmak isterim..

 

[arslanbey]

access veritabanından veri silme

Örnek ekdedir hocam.

 

[arslanbey]

Dosya ekdedir

 

[Taruz]

Excel sorusuymuş bu..

Bu şekilde deneyin..:

If MsgBox("'" & ListBox2.Text & "' adlı konuya ait bilgi ve kodlar silinecektir, emin misiniz?", vbYesNo, "Arslanbey") = vbYes Then
If OptionButton1.Value = True Then tabloadi = "tablo1"
If OptionButton2.Value = True Then tabloadi = "tablo2"
If OptionButton3.Value = True Then tabloadi = "tablo3"
If OptionButton4.Value = True Then tabloadi = "tablo4"
If OptionButton5.Value = True Then tabloadi = "tablo5"
    Set rs = CreateObject("ADODB.recordset")
    Dim tt, krt As String
    krt = ListBox2.Text
    tt = "SELECT * FROM " & tabloadi & " where [konu adi]=" & "'" & krt & "'"
    rs.Open tt, AdoCN, 1, 3
    rs.Delete
    ListBox2.RemoveItem (ListBox2.ListIndex)
Set rs = Nothing
End If

 

[arslanbey]

Teşekkür ederim hocam çok güzel oldu.