rs.GetRows ' da listbox' a tersten yükleme

[tamer42]

Merhaba,

Ado ile kapalı dosyadan veri alırken; Listbox' a ilk kayıttan başlayarak ekleme yapmakta; listenin en üstünde ilk kayıt olmakta
ListBox1.Column = rs.GetRows

bu işlemi tersten nasıl yapabiliriz? yani son kayıttan başlayarak ilk kayıta doğru ekleme yapacak, listenin en üstünde son kayıt olacak

strSQL = "Select * from [Table12]"

rs.Open strSQL, baglan, 1, 3

If rs.RecordCount > 0 Then

With me.ListBox1

    .Column = rs.GetRows
    
End With

End If

teşekkürler,
iyi çalışmalar.

 

[Korhan Ayhan]

Sorgu satırında Z-A sıralaması yaptırmanız çözüm olur mu?

 

[tamer42]

Sorgu satırında Z-A sıralaması yaptırmanız çözüm olur mu?

Korhan hocam teşekkürler,

ORDER BY [alan_adi] desc

hiç aklıma gelmemişti

 

[TURKOLOG]

Aşağıdaki kodları kendinize uyarlayabilir iseniz işinizi görür

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, son As Long, Veri As Variant, x As Long, Genislik As String, say As Long
    
    OptionButton2.Value = True
    
    Set S1 = Sheets("ŞLEMLER")
    son = S1.Cells(S1.Rows.Count, 1).End(3).Row
    Veri = S1.Range("A2:O" & son).Value2
    ReDim Liste(1 To UBound(Veri), 1 To 15)
    
    say = 1
    
    With ListBox1
        .ColumnCount = S1.Cells(1, S1.Columns.Count).End(1).Column
         For x = 1 To S1.Cells(1, S1.Columns.Count).End(1).Column
             Genislik = Genislik & CLng(S1.Columns(x).Width) & ";"
         Next
        .ColumnWidths = Genislik
        
        For x = UBound(Veri) To LBound(Veri) Step -1
            For Y = 1 To UBound(Veri, 2)
                Liste(say, Y) = Veri(x, Y)
            Next
            say = say + 1
        Next
        
        .list = Liste
    End With
    
    
End Sub