Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: Arslanbey - 13 Ağustos 2011, 23:32:58

Başlık: [Çözüldü] Access veri tabanından veri silme
Gönderen: Arslanbey - 13 Ağustos 2011, 23:32:58

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.

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Bülent Öztürk - 14 Ağustos 2011, 06:34:42

Ş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

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Arslanbey - 20 Ağustos 2011, 21:48:24

İ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.

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Bülent Öztürk - 20 Ağustos 2011, 22:26:45

Dosyalarınızı ekler misiniz?

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Arslanbey - 20 Ağustos 2011, 22:39:06

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.

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Bülent Öztürk - 20 Ağustos 2011, 22:45:35

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

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Arslanbey - 21 Ağustos 2011, 01:05:20

ekliyorum hocam örneği.

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Bülent Öztürk - 21 Ağustos 2011, 10:48:36

Ö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 & "'"

Başlık: Ynt: Access veri tabanından veri silme
Gönderen: Arslanbey - 21 Ağustos 2011, 12:49:32

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