Son Veri Nasıl Alınır.

[HD1975]

Merhaba ;

Kapalı olan bir dosyadan verileri aşağıdaki ado kodu ile alıyorum,bu verilerde bir kritere ihtiyacım var.

Dim Baglan As New ADODB.Connection
Dim Kayit As New ADODB.Recordset
Sub al()
Set Baglan = New ADODB.Connection
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\NOTLARIM.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes"""
Set Kayit = New ADODB.Recordset
Kayit.Open "SELECT * FROM [Sayfa1$]", Baglan, adOpenDynamic, adLockOptimistic
Sayfa3.Range("A2").CopyFromRecordset Kayit
Kayit.Close
Baglan.Close
Set Kayit = Nothing
Set Baglan = Nothing
End Sub

Şöyleki ;

Sıra no,Kişi No,Adı,Not,Tarih gibi alanlarım var.Bu alanlardan kişi no'su koşul alınarak aynı kişi nosundan kaç adet satır varsa en son olanı yada sıra nosu
en büyük olanı almasını istiyorum.


Saygılar

 

[Recep İpek]

Mükerrer kaydı olan kişilerin son satırındaki tüm bilgileri mi almak istiyorsunuz?

 

[HD1975]

EVET

Mükerrer kaydı olan kişilerin son satırındaki tüm bilgileri mi almak istiyorsunuz?

Doğrudur.Son satırın hepsini alacağız.

 

[Recep İpek]

Mükerrer olan alanları seçerek son kayıtları aşağıdaki kodla alabildim.

Diğerleri almak için başka çözüm bulmak gerekiyor sanırım.

Kayit.Open "[B]SELECT MAX(SiraNo),KisiNo,Adi,Soyadi FROM [Sayfa1$] GROUP BY KisiNo,Adi,Soyadi ORDER BY KisiNo, MAX(SiraNo)[/B]", Baglan, adOpenDynamic, adLockOptimistic