Listbox Da Türkçe Karakterler En Sonda Sıralanıyor

Listbox Da Türkçe Karakterler En Sonda Sıralanıyor - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listbox Da Türkçe Karakterler En Sonda Sıralanıyor (/konu-listbox-da-turkce-karakterler-en-sonda-siralaniyor.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11

RE: Listbox Da Türkçe Karakterler En Sonda Sıralanıyor - accessman - 08/06/2020

Çok teşekkürler arkadaşlar

Kod:

SELECT CStr([isim]) AS ismi FROM tListedenAl GROUP BY CStr([isim]) ORDER BY CStr([isim]);

şu şekilde yapınca düzgün sıraladı

[Resim: do.php?img=10306]

Re: Listbox Da Türkçe Karakterler En Sonda Sıralanıyor - berduş - 03/11/2024

çok uzun zaman geçmiş ama çözüm çözümdür)
rs.CursorLocation = 3 '|<--- "sort" özelliğinin çalışabilmesi için eklenmesi gereken özellik

Sub xSıraliVeri_TR_Sirali()

  Dim con As Object, rs As Object

    

    Set con = CreateObject("ADODB.Connection")

    Set rs = CreateObject("ADODB.Recordset")

    

    con.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\deneme.db;" 'Locale Identifier=1055;

    

    strSQL = "SELECT baslik from tblDeneme order by baslik" ' COLLATE NOCASE" 'Kücük büyük harf

    rs.CursorLocation = 3     '|<---"sort" özelliğinin çalışabilmesi için eklenmesi gereken özellik

    rs.Open strSQL, con, 1, 3

    rs.Sort = "baslik"        '|<---Türkçe sıralama için

    With Sheets("Sayfa2")

        .Range("E:E").ClearContents

        .Range("e1").CopyFromRecordset rs

    End With

    rs.Close

    con.Close

    Set rs = Nothing: Set con = Nothing

End Sub