Listboxda kimlik numarasına göre sıralama

[ofbayoglu]

arkadaşlar merhaba aşağıdaki sorguda listboxta ürünler gösterilerken numara sıralamasına göre sıralama nasıl yapabilirim. Son kayıt en üste olmasını istiyorum..


---------------------------------------------------------------------------------------------------
Private Sub ComboBox5_Change()
Dim baglan As New Connection
Dim rs As New Recordset

ListBox1.Clear

On Error Resume Next

t1 = Me.ComboBox5.Text

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\vegaserver\sippro\ResanData.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis where durumu=('" & t1 & "')", baglan, adOpenKeyset, adLockPessimistic

With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = .ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows

End With

rs.Close

baglan.Close
End Sub
------------------------------------------------------------------------------------------------------

 

[Korhan Ayhan]

Merhaba,

Bu şekilde işnize yarar mı?

Private Sub ComboBox5_Change()
Dim baglan As New Connection
Dim rs As New Recordset

ListBox1.Clear

On Error Resume Next

t1 = Me.ComboBox5.Text

baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=\\vegaserver\sippro\ResanData.accdb;"
' SIRALAMA EKLENDİ - kimlik alanına göre ters sıralama
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis where durumu=('" & t1 & "') ORDER BY sirano DESC", baglan, adOpenKeyset, adLockPessimistic

With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows
End With

rs.Close
baglan.Close
End Sub

 

[ofbayoglu]

Denedim olmadı yalnız eksik bilgi yazmışım. "durumu=('" & t1 & "') olan kısımda " ACIK olanları son kayda göre sıra numarasına göre değilde kimlik numarasına göre sıralamak istiyorum. aslında t1 den seçmesine gerek yok t1 deki ifadeyi çıkartabiliriz. Sadece açık olanları sıralayabiliriz. form açıldığında listede açık olanlar sadece sıralansın atmış olduğum dizinde listede butonla verileri alıyorum ama orda da kayıtlar altta kalıyor.

 

[ofbayoglu]

bu arada attığınız şekilde çalıştı. Elinize sağlık. Bunu buton seçimi yapmadan direk yapabilirmiyim.

 

[Korhan Ayhan]

Kodları formun açılış olayına (Initialize-Activate) yazarak kullanabilirsiniz.

t1 degiskenini aşağıdaki gibi tanımlayabilirsiniz.

t1 = "ACIK"