Listview'de sıralama sorunu.

[vardar07]

Sub sorgula()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
Set rs = CreateObject("adodb.recordset")
s = "select * from [Sayfa1$] where not isnull(ADISOYADI)"
If ARAMA1.Text <> "" Then s = s & " and ADISOYADI like '" & UCase(ARAMA1.Text) & "%'"
If ARAMA2.Text <> "" Then s = s & " and TC '" & ARAMA2.Value & "%'"
If ARAMA3.Text <> "" Then s = s & " and ÜNVANI like '" & UCase(ARAMA3) & "%'"
If ARAMA4.Text <> "" Then s = s & " and SİCİL like '" & ARAMA4.Value & "%'"
'XXXXXXXXXXXX
s = s & "order by NO asc" 'desc"ADISOYADI
'XXXXXXXXXXXX
rs.Open s, con, 1, 1
With ListView1
    .ListItems.Clear
    On Local Error Resume Next
    If rs.RecordCount > 0 Then
        Do While Not rs.EOF
        .ListItems.Add , , rs(0).Value
            For x = 1 To 4
                .ListItems(.ListItems.Count).ListSubItems.Add , , rs(x).Value '
            Next x
            rs.movenext
        Loop
    End If
End With
Set rs = Nothing
con.Close: Set con = Nothing
End Sub

Merhaba. Bu kodların çalışması gayet çok güzel. Ufak bir hatayı düzeltemedim. Sorun arama yapıp Textbox boşaltılınca

s = s & "order by ADISOYADI asc"

Listwiev listeyi isme göre sıralıyor.Bunun yerine

s = s & "order by NO asc"

yazınca listeyi sondan başa sıralıyor. Baştan sıralı yapmak için ne yapmam lazım ? .Bir türlü çözüm bulamadım.

 

[Orion1]

asc yerine desc kullanmayı deneyin.

 

[vardar07]

asc yerine desc kullanmayı deneyin.

İlginize teşekkürler Sayın Orion1. Bu sefer

s = s & "order by [COLOR="red"]ADISOYADI[/COLOR] desc"

ile isimleri tersten alfabetik yapıyor.
Bununlada

s = s & "order by [COLOR="Red"]NO[/COLOR] asc"

yine tersten listeliyor. Kırmızılı yerler NO A sütunu sıra no su, ADISOYADI B sütunu isimler var.

 

[vardar07]

s = s & "order by ADISOYADI desc"

Bu satır fazlalıkmış sorun çözülmüştür.