Accesste Hesap Planı Sıralama

1 2 3 4 5 6 7 8
21/04/2020, 13:02

alicimri

Excele nasıl alıyorsunuz. Dış veri al ile mi alıyorsunuz.
21/04/2020, 13:20

kanakan52

Kod:
Private Sub listeyap()
With Me.ListView1
  .Gridlines = True
  .FullRowSelect = True
  .View = lvwReport
  .ListItems.Clear
  .ColumnHeaders.Clear

End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "Kimlik", 0
.ColumnHeaders.Add , , "Hesap Grubu", 60
.ColumnHeaders.Add , , "Hesap Kodu", 60
.ColumnHeaders.Add , , "Hesap Adı", 130
.ColumnHeaders.Add , , "Türü", 30
.ColumnHeaders.Add , , "Hesap Açıklama", 370

.FullRowSelect = True
.Gridlines = True
End With

Dim umit As ListItem

On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\HesapPlani.accdb"

rs.Open "select * from [Hesap_Plani]", baglan, 1, 1

ListView1.ListItems.Clear
Dim satir As Integer
On Error Resume Next
If Not rs.EOF Then
Do While Not rs.EOF
Set umit = ListView1.ListItems.Add(, , rs.Fields("Kimlik"))
umit.SubItems(1) = rs.Fields("Tur")
umit.SubItems(2) = rs.Fields("Kod")
umit.SubItems(3) = rs.Fields("HesapAdi")
umit.SubItems(4) = rs.Fields("Csekil")
umit.SubItems(5) = rs.Fields("Hesap_aciklama")
rs.MoveNext
           
Refresh.ListView1
    Loop
    End If
    rs.Close: con.Close
    Set rs = Nothing
   
End Sub

merhaba yukarıdaki kodları kullanıyorum..
21/04/2020, 13:23

accessman

Kod:
select * from [Hesap_Plani]
burada sıralamayı yaptığınız halde istediğiniz gibi olmaması ilginç gerçekten
21/04/2020, 13:25

kanakan52

(21/04/2020, 13:23)accessman yazdı:
Kod:
select * from [Hesap_Plani]
burada sıralamayı yaptığınız halde istediğiniz gibi olmaması ilginç gerçekten


Hocam çalışıyor kodlar, sorun yok.. Ama accsesste nsılsa userform'a da aynen geliyor. Sırasız yani ..
21/04/2020, 13:29

berduş

rs.Open "select * from [Hesap_Plani] order by kod", baglan, 1, 1
Gibi yazdığınızda istediğiniz gibi sıralamıyor mu?
21/04/2020, 13:35

accessman

Yoksa siz bilgisayara "Koda göre sırala" dememiş miydiniz?

"order by kod"


24. mesajda
Kod:
ya veri kaynağı Sql alınırken istediğiniz sıralamada alabilirsiniz
ve
Kod:
bilgisayarın sizin nasıl sıralama yapmak istediğinizden haberi var mı
onun ile konuştunuz mu ona dediniz mi
 derken  bunu kastetmiştim
Kod:
order by kod
1 2 3 4 5 6 7 8