Access Veritabanındaki Max Değere Ait Diğer Sütundaki Veriyi Bulmak

[Orion1]

Evet hocam oda oluyor.Teşekkür ederim.

 

[Orion1]

Hocam işi garantiye almak için koda aşağıdakini de ekleme yaptım.

 RS.Open strSQL, adoCN
    RS.movefirst

 

[Haluk]

Evren Bey;

"Cursor" zaten RS'de ilk bulduğu yere konumlanacağı için ve "Order By [ISG_NO] desc" komutuyla zaten geriye dönen sonuçlar ISG_NO alanı esas alınarak azalandan artana göre sıralandığı için "MoveFirst" metoduna gerek yok.

.

 

[bluefalcon]

Gerçekten muhteşemsiniz. Gayesi sadece yardımcı olmak ve kendini geliştiribilmek olan kişilerin buluştuğu bu yerde bulunuyor olmak bile mutluluk verici. Hepinize tekrar tekrar teşekkür ederim.

 

[Haluk]

-Teşekkürler @bluefalcon

-Evren Bey, başka bir alternatif de; ekli dosyadaki gibi "max" fonksiyonunu aşağıdaki gibi "subquery" içinde kullanmak olabilir....

    strSQL = " Select [ISG_NO], [ISG_YIL], [KONU] from [ACIKAKSIYON$] " & _
             " where [ISG_NO] in (select max([ISG_NO]) from [ACIKAKSIYON$] where [ISG_YIL]  =" & Year(Date) & ")"

.

 

[Orion1]

-Teşekkürler @bluefalcon

-Evren Bey, başka bir alternatif de; ekli dosyadaki gibi "max" fonksiyonunu aşağıdaki gibi "subquery" içinde kullanmak olabilir....

    strSQL = " Select [ISG_NO], [ISG_YIL], [KONU] from [ACIKAKSIYON$] " & _
             " where [ISG_NO] in (select max([ISG_NO]) from [ACIKAKSIYON$] where [ISG_YIL]  =" & Year(Date) & ")"

.

Haluk hocam,buda oldu.
Hemen arşivime aldım.
Teşekkür eder iyi günler dilerim.

 

[Orion1]

Gerçekten muhteşemsiniz. Gayesi sadece yardımcı olmak ve kendini geliştiribilmek olan kişilerin buluştuğu bu yerde bulunuyor olmak bile mutluluk verici. Hepinize tekrar tekrar teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[Zeki Gürsoy]

Böyle de bir alternatifimiz var...

strSQL = " Select [ISG_NO], [ISG_YIL], [KONU] from [ACIKAKSIYON$] as a" & _
         " where exists(" & _
                "select * from [ACIKAKSIYON$] as b where b.[ISG_YIL] = a.[ISG_YIL] And b.[ISG_YIL]  =" & Year(Date) & _
         ") Order By a.[ISG_NO] Desc"

 

[Haluk]

Böyle de bir alternatifimiz var...

Üstadım; bu SQL amaca tam hizmet etmiyor, rastladığı ilk 2019 yılına ait verileri getiriyor...

.

 

[Zeki Gürsoy]

#25 nolu mesaja ataçlı dosya eki ile test ettim. RecordCount=4 geliyor. Order By eklendiğinde ilk sonuca ekleyecektir. Yukarıdaki mesajı güncelliyorum.

 

[Haluk]

Evet üstadım şimdi oldu ama, "Order By" metodunu kullanınca bu sefer de; 20 No'lu mesajdaki alternatiften çok fazla farkı olmadı.....hatta biraz daha uzun oldu.

.

 

[Haluk]

Bu arada başka bir alternatif de; aşağıdaki gibi ekli dosyada "Inner Join" metodunu kullanmak olabilir....

    strSQL = " Select [ISG_NO], [ISG_YIL], [KONU] from [ACIKAKSIYON$] as Table1" & _
             " inner join" & _
             " (" & _
                " select max([ISG_NO]) as [MAX_ISG_NO] from [ACIKAKSIYON$] where [ISG_YIL]  =" & Year(Date) & _
             " )" & _
             " as Table2" & _
             " on Table1.[ISG_NO] = Table2.[MAX_ISG_NO]"

.