Veri Tabanından Combo1 ve Combo2 deki Değerlere Göre Filtreleme

[ahmedummu]

Merhaba arkadaşlar.

Aşağıdaki kod mevcut hali ile Veri tabanındaki GDUR alan sütunundan Combobox1 deki değere göre listbox1'e listeleme yapıyor.

ListBox1.Clear
Set AdoCN = CreateObject("ADODB.Connection")
   dosya_Yolu = ThisWorkbook.Path & "\veriler.mdb"
   AdoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
   AdoCN.ConnectionString = dosya_Yolu
   AdoCN.Open
    Set rs = CreateObject("adodb.recordset")
    rs.Open "select * from [bilgiler] WHERE GDUR LIKE '" & ComboBox1.Text & "%';", AdoCN, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 2
    .ColumnWidths = "0;70"
    .Column = rs.getrows
End With
    rs.Close
Set rs = Nothing

Benim yapmak istediğim ise

rs.Open "select * from [bilgiler] WHERE GDUR LIKE '" & ComboBox1.Text & "%';", AdoCN, 1, 1

Kod satırındaki GDUR değerini de Combobox2'den alsın

rs.Open "select * from [bilgiler] WHERE Combobox2.Text LIKE '" & ComboBox1.Text & "%';", AdoCN, 1, 1

Bu hali ile kod çalışmıyor. Yardımcı olursanız sevinirim.

 

[halit3]

GDUR değişkenini bununla değiştir.

" & ComboBox2.Text & "

rs.Open "select * from [bilgiler] WHERE [COLOR="Red"]" & ComboBox2.Text & "[/COLOR] LIKE '" & ComboBox1.Text & "%';", AdoCN, 1, 1

 

[ahmedummu]

Çok teşekkürler Halit bey.
Birşey daha sormak istiyorum. Veri Tabanında GDUR sütunundan combobox'a veri alırken aynı olan verilerden sadece birini combo'ya alsın istiyorum. Birden fazla aynı veri var ise birini alsın. Nasıl yapabilirim.

 

[ahmedummu]

Merhaba arkadaşlar.

Yardımcı olabilir misiniz.