21/04/2020, 13:02
21/04/2020, 13:20
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 Submerhaba yukarıdaki kodları kullanıyorum..
21/04/2020, 13:23
Kod:
select * from [Hesap_Plani]21/04/2020, 13:25
(21/04/2020, 13:23)accessman yazdı: [ -> ]burada sıralamayı yaptığınız halde istediğiniz gibi olmaması ilginç gerçektenKod:select * from [Hesap_Plani]
Hocam çalışıyor kodlar, sorun yok.. Ama accsesste nsılsa userform'a da aynen geliyor. Sırasız yani ..
21/04/2020, 13:29
rs.Open "select * from [Hesap_Plani] order by kod", baglan, 1, 1
Gibi yazdığınızda istediğiniz gibi sıralamıyor mu?
Gibi yazdığınızda istediğiniz gibi sıralamıyor mu?
21/04/2020, 13:35
Yoksa siz bilgisayara "Koda göre sırala" dememiş miydiniz?
"order by kod"
24. mesajda
ve
derken bunu kastetmiştim
"order by kod"
24. mesajda
Kod:
ya veri kaynağı Sql alınırken istediğiniz sıralamada alabilirsinizKod:
bilgisayarın sizin nasıl sıralama yapmak istediğinizden haberi var mı
onun ile konuştunuz mu ona dediniz miKod:
order by kod