Listview'e Access den şartlı veri almak.

[vardar07]

Merhaba . Ekli dosyada Sayın orion1 arkadaşın dosyasının uyarlaması mevcut.
Aşağıdaki kod ile listview'e veri gelmekte. Ancak ComboBox tan yapılan seçime göre verileri almak için ne gibi değişiklik yapmak lazım.

Private Sub goster()
    Dim yol As String, dosya As String
    Dim baglan As New ADODB.Connection, ks As New ADODB.Recordset
    yol = ThisWorkbook.Path & "\"
    dosya = "Veritabani.mdb"
    Set baglan = New ADODB.Connection
    Set ks = New ADODB.Recordset
    baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & dosya & ";"
    ks.Open "select * from [Tablo1];", baglan, adOpenKeyset, adLockReadOnly
    ListView1.ListItems.Clear
    If ks.RecordCount > 0 Then
        ks.MoveFirst
        For i = 1 To ks.RecordCount
            ListView1.ListItems.Add , , ks(0).Value
            ListView1.ListItems(i).SubItems(1) = ks(1).Value
            ListView1.ListItems(i).SubItems(2) = ks(2).Value
            ListView1.ListItems(i).SubItems(3) = ks(3).Value
            ListView1.ListItems(i).SubItems(4) = ks(4).Value
            ListView1.ListItems(i).SubItems(5) = ks(5).Value
            ks.MoveNext
        Next i
    End If
    Toplam
    ks.Close: baglan.Close
    Set ks = Nothing: Set baglan = Nothing
End Sub

NOT: Konuya ait örnek uygulamanın çözümü http://www.excel.web.tr/f48/accessdeki-verileri-comboboxlar-ile-listviewde-suzme-lemi-t144119/post783517.html mevcut.