Ado ile Listviewe Veri Çekmek

[vedatelci]

Selam Arkadaşlar
Ado ile MDB dosyasından veri çekmek istiyorum.. Ancak sorunum şu; Dosyadaki son 20 kaydın Listviewe alınmasını istiyorum... yardımcı olacak arkadaşlara teşekkürler iyi çalışmalar

Örnek Kodum Aşağıdaki şekildedir:
ListView1.ListItems.Clear
If Not RS.EOF Then
'Dim lvwItem As ListItem
Do While Not RS.EOF
Set lvwItem = ListView1.ListItems.Add(, , RS.Fields("SIRA").Value)
lvwItem.SubItems(1) = RS.Fields("SIRA").Value
lvwItem.SubItems(2) = RS.Fields("ADI").Value
lvwItem.SubItems(3) = RS.Fields("SOYADI").Value
lvwItem.SubItems(4) = RS.Fields("TELEFON").Value
RS.MoveNext
Loop
End If

 

[Zeki Gürsoy]

Test etmedim ama işinizi görebilir.

RS.MoveLast
RS.Move RS.RecordCount - 20

ListView1.ListItems.Clear
If Not RS.EOF Then
'Dim lvwItem As ListItem
    Do While Not RS.EOF
        Set lvwItem = ListView1.ListItems.Add(, , RS.Fields("SIRA").Value)
        lvwItem.SubItems(1) = RS.Fields("SIRA").Value
        lvwItem.SubItems(2) = RS.Fields("ADI").Value
        lvwItem.SubItems(3) = RS.Fields("SOYADI").Value
        lvwItem.SubItems(4) = RS.Fields("TELEFON").Value
        RS.MoveNext
    Loop
End If

 

[vedatelci]

Sayın Anemos henüz kontrol edemedim ama şimdiden cevabınız için teşekkürler

 

[vedatelci]

Sayın Anemos verdiğin kod Malesef işimi görmedi Listview içeriği tamamen boş oluyor

 

[vedatelci]

Sorumun Cevabi

Sayın Anemos Sorunumu Hallettim... Sizinle de paylaşmak isterim. teşekkürler iyi çalışmalar...

ListView1.ListItems.Clear
Dim i As Integer
Dim X As Integer
Dim Y As Integer

Y = RS.RecordCount
If Y > 20 Then
X = Y - 20
Else
X = 0
End If

If Not RS.EOF Then
RS.Move X
For i = 1 To 20
ListView1.ListItems.Add , , RS.Fields("SIRA").Value
ListView1.ListItems(i).SubItems(1) = RS.Fields("SIRA").Value
ListView1.ListItems(i).SubItems(2) = RS.Fields("ADI").Value
ListView1.ListItems(i).SubItems(3) = RS.Fields("SOYADI").Value
ListView1.ListItems(i).SubItems(4) = RS.Fields("TELEFON").Value
RS.MoveNext
Next i
End If