listview da stabil hızlı bir arama şekli

[Cengizhantr06]

hayırlı geceler listview dosyamı ekledim uzun verilerde stabil arama yapabileceğim bir kod yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Dizi yöntemi ile arama tekniği ektedir.

 

[Cengizhantr06]

Dizi yöntemi ile arama tekniği ektedir.

korhan bey süper olmuş acaba birde ado ile örnek verebilirmisiniz lütfen işniniz gücünüz rast gelsin

 

[Korhan Ayhan]

Ne kadar stabil olur bilemiyorum. Deneyiniz.

 

[Cengizhantr06]

Ne kadar stabil olur bilemiyorum. Deneyiniz.

Korhan bey teşekkür ederim ilginize size ne kadar teşekkür etsem azdır

 

[Ziynettin]

Dizi yöntemi ile başlık ve arama seçenekli yapılan çalışma , çeşitlilik olur.

 

[Cengizhantr06]

Dizi yöntemi ile başlık ve arama seçenekli yapılan çalışma , çeşitlilik olur.

Ziynettin bey buda tek kelime ile süper olmuş çok teşekkür ederim emeğinize sağlık değişik bi arayüz sizden çok rica etsem aynısı birde listbox için yaparmısınız lütfen müsait olunca ?

 

[Ziynettin]

Listview yerine Listbox mu olacak.

 

[Cengizhantr06]

Listview yerine Listbox mu olacak.

Evet ziynettin bey listbox olacak ama aynı listviewdeki örnek gibi sadece listview yerine listbox koyun size zahmet olmassa cok makbule gececek

 

[Ziynettin]

Buyrun.

 

[Cengizhantr06]

Buyrun.

Ziynettin bey çok sağolun emegineze sağlık işiniz rast gelsin

 

[Korhan Ayhan]

Userform üzerinde ListBox-ListView-TextBox ile arama teknikleri ile ilgili bol örnekli bir başlık oldu.

Proje aşamasında olan üyelerimiz için iyi bir kaynak olacaktır diye düşünüyorum.

 

[Murat OSMA]

Çok güzel örnekler..

Ben de ufak bir ekleme yapayım..
ADO örneğini bu şekilde biraz daha hızlandırabiliriz..

Private Sub TextBox2_Change()
    Dim con As Object, rs As Object, a%
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
    With ListView1
        .ListItems.Clear
        Set rs = con.Execute("select * from [Personeller$] where [ADI] like '" & TextBox2.Text & "%'")
        On Local Error Resume Next
        Do While Not rs.EOF
            .ListItems.Add , , rs.Fields(0).Value
                For a = 1 To rs.Fields.Count - 1
                    .ListItems(.ListItems.Count).ListSubItems.Add , , rs.Fields(a).Value
                Next a
            rs.MoveNext
        Loop
    End With
End Sub

 

[Cengizhantr06]

Murat bey teşekkür ederim Harika örnekler herkese ilgiisinden dolayı çok teşekkür ederim acemi bir Excel meraklısı olarak

 

[Cengizhantr06]

Çok güzel örnekler..

Ben de ufak bir ekleme yapayım..
ADO örneğini bu şekilde biraz daha hızlandırabiliriz..

Private Sub TextBox2_Change()
    Dim con As Object, rs As Object, a%
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
    With ListView1
        .ListItems.Clear
        Set rs = con.Execute("select * from [Personeller$] where [ADI] like '" & TextBox2.Text & "%'")
        On Local Error Resume Next
        Do While Not rs.EOF
            .ListItems.Add , , rs.Fields(0).Value
                For a = 1 To rs.Fields.Count - 1
                    .ListItems(.ListItems.Count).ListSubItems.Add , , rs.Fields(a).Value
                Next a
            rs.MoveNext
        Loop
    End With
End Sub

Bende hata verdi murat bey

 

[Korhan Ayhan]

Şu bölümü;

hdr=yes

Aşağıdaki gibi değiştirip deneyiniz.

hdr=no

 

[Cengizhantr06]

Şu bölümü;

hdr=yes

Aşağıdaki gibi değiştirip deneyiniz.

hdr=no

Set rs = con.Execute("select * from [Personeller$] where [ADI] like '" & TextBox2.Text & "%'")
burda hata verdi
run time error gerekli bir yada daha fazla parametre için girilen değer yok

 

[Korhan Ayhan]

O satırı da şu şekilde düzeltiniz.

Set rs = con.Execute("select * from [Personeller$] where F2 like '" & TextBox2.Text & "%'")

 

[Cengizhantr06]

O satırı da şu şekilde düzeltiniz.

Set rs = con.Execute("select * from [Personeller$] where F2 like '" & TextBox2.Text & "%'")

Oldu Korhan bey teşekkür ederim

 

[Cengizhantr06]

Buyrun.

Dizi yöntemi ile başlık ve arama seçenekli yapılan çalışma , çeşitlilik olur.

Ziynettin bey bu dosyaya tarihde ekledim ve formada 2 textbox koydum textboxlara ilk ve son tarih ekleyerek de aratabilirmiyiz dosya ekledim