Sorguyla puana göre sıra numarası vermek

1 2
16/04/2013, 12:58

celila

Baska bir forumda bir arkadasımız sorgu kullanmadan vb ile kısa bir cozum buldu. kodu asagı ekliyorum. yardımlarından dolayı "omerceri" bey e tesekkurler...


Private Sub Komut0_Click()

say = 0
Dim ys As New ADODB.Recordset
Sec = "SELECT Table1.[SINIFI] FROM Table1 GROUP BY Table1.[SINIFI];"
ys.Open Sec, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
son = ys.RecordCount
ReDim aa(0 To son - 1)
Do While Not ys.EOF
aa(say) = ys("SINIFI")

ys.MoveNext
say = say + 1
Loop
ys.Close

For i = 0 To son - 1
sır = 0
Dim ys1 As New ADODB.Recordset
Sec = "SELECT Table1.[sıra], Table1.[SINIFI], Table1.[NOTU] FROM Table1 WHERE (((Table1.[SINIFI]) =" & aa(i) & ")) ORDER BY Table1.[NOTU] DESC;"
ys1.Open Sec, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
test = -8
Do While Not ys1.EOF
If test <> ys1("NOTU") Then
sır = sır + 1
Else
sır = sır
End If
test = ys1("NOTU")

ys1("sıra") = sır
ys1.Update

ys1.MoveNext

Loop
ys1.Close
Next

End Sub
1 2