Attaki örneği inceleyebilirsiniz ado ve arraylist sıralama adoda resimdeki gibi garip sıralanıyor buyüzden ado ve bubblesortu beraber kullanıyorum orjinal dosyamda.


https://dosya.co/zozysol1c4xb/Arraylist_...e.rar.html

Private Sub Ado_Click() 'Ado



Dim rs As Object

Dim con As Object

Dim Sql As String, sql1 As String





Set con = CreateObject("Adodb.Connection")

Set rs = CreateObject("Adodb.Recordset")



ComboBox1.Clear

ListBox2.Clear



con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";" & _

                                            "extended properties=""Excel 12.0;hdr=no;Imex=1"""





    Sql = "select f1+0 from [Sayfa1$] where not isnull(f1) group by f1 order by f1 "

    rs.Open sql, con

    ComboBox1.Column = rs.GetRows

    rs.Close

    

      

      rs.Open sql, con

      ListBox2.Column = rs.GetRows

      rs.Close



con.Close: i = Empty: Sql = vbNullString: Set con = Nothing: Set rs = Nothing



End Sub

CommandButton2_Click() 'Arraylist





    Dim arr1 As Object

    Dim sayyfa As Worksheet

    Dim son As Long

    

    

    Set arr1 = CreateObject("System.collections.arraylist")

    Set sayyfa = sayfa

    

    son = sayyfa.Cells(Rows.Count, 1).End(3).Row

    aa = sayyfa.Range("A1:A" & son).Value

    

    Application.ScreenUpdating = False

    

    sayfa.ComboBox1.Clear

    sayfa.ComboBox1.Value = ""

    sayfa.ListBox1.Clear

    With arr1

        For i = 1 To son

            If Not .contains(aa(i, 1) + 0) Then

                arr1.Add aa(i, 1) + 0

            End If

        Next

'  On Error Resume Next

        arr1.Sort

  Err.Clear

        sayfa.ComboBox1.List = arr1.toarray

        sayfa.ListBox1.List = arr1.toarray

        arr1.Clear

        Application.ScreenUpdating = True

        

    End With

    

    

  Set arr1 = Nothing: Erase aa: Set sayyfa = Nothing



End Sub

Biri sayıya biri metine göre sıralıyor

Ado daki
bu kodu silerseniz A5 ve A7 dekiler listboxta listelenmez.
A5 ve A7 dekilerde sayı gibi olsaydı sorun yoktu.

Örneği bu şekilde yaptım özellikle.

sql = "select f1 from [Sayfa1$] where not isnull(f1) group by f1 order by clng(f1) " sıralama yaparken sıralayacağımız alan sayısalsa
Clng yada Cdbl yaparsak recordset de düzgün sıralıyor galiba

(18/01/2020, 18:09)berduş yazdı: sql = "select f1 from [Sayfa1$] where not isnull(f1) group by f1 order by clng(f1) " sıralama yaparken  sıralayacağımız alan sayısalsa
Clng yada Cdbl  yaparsak recordset de düzgün sıralıyor galiba

Sayısal olursa düzgün sıralanıyor zaten.Birde verdiğiniz yöntemi deneyeyim bugün.

(18/01/2020, 18:39)feraz yazdı:

(18/01/2020, 18:09)berduş yazdı: sql = "select f1 from [Sayfa1$] where not isnull(f1) group by f1 order by clng(f1) " sıralama yaparken  sıralayacağımız alan sayısalsa
Clng yada Cdbl  yaparsak recordset de düzgün sıralıyor galiba

Sayısal olursa düzgün sıralanıyor zaten.Birde verdiğiniz yöntemi deneyeyim bugün.

Bunu öğrendiğim iyi oldu order by clng(f1) olarak.

Sayısal alanlarda tam oldu sağolunuz.