Veri Tabanından İsme Göre Süzme

[ahmedummu]

Merhaba arkadaşlar.

Ekte gönderdiğim dosyada veri tabanından isimleri listbox'a almak ve textbox1'den girilen isme göre de filtrelemek istiyorum. Yardımcı olursanız sevinirim.

 

[ahmedummu]

Listbox'a aldırma çözüldü.

Textbox1'e "A" yazdığımızda listbox1'e "A" ile başlayan isimlerin listelenmesini istiyorum.

Yardımcı olursanız sevinirim.

 

[Orion1]

Buyurun.

Private Sub TextBox1_Change()
'On Error GoTo hata

'If OptionButton1.Value = True Then
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 ADISOYADI LIKE '" & TextBox1.Text & "%';", AdoCN, 1, 1
With ListBox1
    .RowSource = Empty
    .ColumnCount = 2
    .ColumnWidths = "30;50"
    .Column = rs.getrows
End With
    rs.Close
Set rs = Nothing
End Sub

 

[ahmedummu]

Teşekkürler Evren bey. Elinize sağlık.

 

[Orion1]

Teşekkürler Evren bey. Elinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[ahmedummu]

Evren bey bir soru daha sormak istiyorum.

Listbox1'e filtrelenen isimlerin herhangi birinin üzerine tıkladığımızda, Listbox1'e tüm isimleri tekrar listeleyebilir miyiz. Yani hiç filtreleme yapılmamış gibi. Eski halini alacak. İmleci Textbox1'e getirip içini boşaltınca oluyor ama diğer türlü daha pratik oluyor.
Aşağıdaki gibi denedim ama bu kez listbox'daki tüm isimler gidiyor.

TextBox1.Value=""
listbox1.Clear
Call baglan
Call yukle