[Çözüldü] Access veri tabanından veri silme

[Arslanbey]

Kod: [Seç]

If MsgBox("'" & ListBox2.Text & "' adlı konuya ait bilgi ve kodlar silinecektir, emin misiniz?", vbYesNo, "mumya66") = vbYes Then Rows(ListBox2.ListIndex + 1).Delete
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"
 

       '===========================
       Set rs = CreateObject("ADODB.recordset")
       Tanimlanan = "SELECT * FROM " & tabloadi 'tablo adı
       rs.Open Tanimlanan, AdoCN, 1, 3
rs.Delete

Set rs = Nothingbu kodla sile biliyorum fakat listbox dan sitediğim veriyi değilde en üstdeki veriyi siliyor istediğim veriyi silmem için nasıl bir değişiklik yapmalıyım.

[Bülent Öztürk]

Şu şekilde deneyin lütfen:

Kod: [Seç]

If MsgBox("'" & ListBox2.Text & "' adlı konuya ait bilgi ve kodlar silinecektir, emin misiniz?", vbYesNo, "mumya66") = 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"
 
    Set rs = CreateObject("ADODB.recordset")
    Tanimlanan = "SELECT * FROM " & tabloadi & " where kimlik=" & CInt(ListBox2.List(ListBox2.ListIndex, 0))
    rs.Open Tanimlanan, AdoCN, 1, 3
    rs.Delete
    ListBox2.RemoveItem (ListBox2.ListIndex)
Set rs = Nothing

[Arslanbey]

İlk bu hatayı veriyor Run-Time Error '13' Type Mismatch sonrada aşagıdaki hatayı gösteriyor.
Tanimlanan = "SELECT * FROM " & tabloadi & " where kimlik=" & CInt(ListBox2.List(ListBox2.ListIndex, 0))
Hocam bu bölümde hata veriyor.

[Bülent Öztürk]

Dosyalarınızı ekler misiniz?

[Arslanbey]

Hocam özür dilerim dosyayı ekleyemem içinde gizli belgeler ve boyut olarak çok büyük ama kullandığım bütün kodları ekleye bilirim eğer isterseniz.

[Bülent Öztürk]

Peki, kimlik alanı veri türü nedir?

[Arslanbey]

ekliyorum hocam örneği.

[Bülent Öztürk]

Öncelikle şunu söylemek isterim;
Application.Quit komutundan nefret ederim.
HİÇ KİMSENİN BENİM AÇIK BULUNAN EXCEL DOSYALARIMI KAPATMA HAKKI YOKTUR!
LÜTFEN ÖRNEK OLARAK GÖNDERDİĞİNİZ DOSYALARDA BU KODU İPTAL EDİNİZ!

Sorunuza gelince;
İlgili satırı aşağıdaki gibi değiştirin:

Kod: [Seç]

Tanimlanan = "SELECT * FROM " & tabloadi & " where [Konu adi]='" & ListBox2.Text & "'"

[Arslanbey]

Tamam hocam bir daha dikkat ederim verdiğiniz değişiklikte işime yaradı teşekkür ederim.