Tùy chọn
[Function] Code Xếp hạng
- [Function] Code Xếp hạng
-
[Function] Code Xếp hạng
tranthanhan1962 > 21-07-15, 12:31 AM
Trên Forum các bạn cũng đã có hướng dẫn một vài phương pháp để xử dụng xếp hạng (Cái này access dỡ hơn excel). Mình cũng gởi đến “góp vui cùng các bạn” một code xếp hạng trước đây mình xử dụng để xếp hạng khi còn đi dạy. Lúc trước do yêu cầu xếp hạng theo điểm nên functon này chỉ xếp được điểm lớn thì hạng cao. Nhưng để hoàn chỉnh mình xử lý cả 2 dạng: Điểm lớn hạng cao, điêm nhỏ hạng thấp và ngược lại (Ví dụ thi bơi lội thì thời gian càng ít hạng càng cao).
Tạo một module chứa
Mã PHP:Function XepHang(TenQuery As String, FieldXepHang As String, FieldID As String, ValueID, Kieuxep As Integer) As String
On Error GoTo BiLoi
Dim CSDL As Database
Dim Bang As Recordset
Dim Duocxephang As Long
Dim Xep As Double
Dim TrungHang As Double
Xep = 1
TrungHang = 0
Set CSDL = CurrentDb
Set Bang = CSDL.OpenRecordset(TenQuery, dbOpenDynaset, dbReadOnly)
Bang.FindFirst FieldID & " = " & ValueID
If Is_Null(Bang(FieldXepHang)) Then Exit Function
Duocxephang = Bang(FieldXepHang)
Bang.MoveFirst
Select Case Kieuxep
Case 0 ' Lon hang cao
Do Until Bang.EOF
If Bang(FieldXepHang) > Duocxephang Then Xep = Xep + 1
If Bang(FieldXepHang) = Duocxephang Then TrungHang = TrungHang + 1
Bang.MoveNext
Loop
If TrungHang > 1 Then
XepHang = Xep & "="
Else
XepHang = Xep
End If
Bang.Close
Set Bang = Nothing
Set CSDL = Nothing
Case 1 ' Nho hang cao
Do Until Bang.EOF
If Bang(FieldXepHang) < Duocxephang Then Xep = Xep + 1
If Bang(FieldXepHang) = Duocxephang Then TrungHang = TrungHang + 1
Bang.MoveNext
Loop
If TrungHang > 1 Then
XepHang = Xep & "="
Else
XepHang = Xep
End If
Bang.Close
Set Bang = Nothing
Set CSDL = Nothing
Case Else
End Select
BiLoi:
End Function
Trong đó biến Kieuxep là 0 thì giá trị FieldXepHang càng cao thì hạng càng cao, biến Kieuxep càng thấp thì hạng càng cao.
Để xử lý hàm này thì table của bạn phải có field ID Primary Key.
Ví dụ Bạn có table với các field: ID, TenHS, Diem
Tạo query: BangXepHangHocTap
Mã PHP:SELECT DiemHocTap.ID, XepHang("BangXepHangHocTap","Diem","ID",[ID],0) AS ThuHang, DiemHocTap.TenHS, DiemHocTap.Diem
FROM DiemHocTap
ORDER BY DiemHocTap.Diem;
Vài điểm cần lưu ý
Field ThuHang có function:
ThuHang: XepHang("BangXepHangHocTap","Diem","ID",[ID],0)
- "BangXepHangHocTap" là tên của query nó đang xử lý.
- "Diem", là Field để căn cứ giá trị lớn nhỏ để xếp hạng.
- "ID" và [ID] là Tên và giá trị Field Primary Key chỉ mục để vòng lặp xử lý việc xếp hạng. Nhớ là một cái trong " " và một cái trong [ ].
- Giá trị 0 để xếp hạng lớn Diem trước nhỏ sau, giá trị 1 để xếp hạng Diem nhỏ trước lớn sau.
- Nhớ Thay thế từ Is_Null = IsNull trong đoạn mã
Mong rằng function này sẽ hỗ trợ được cho các bạn trong công việc
Function Xep Hang -
RE: [Function] Code Xếp hạng
tracanhtam > 21-07-15, 07:47 AM
Bạn cho hỏi,nếu xếp hạng theo từng lớp của một trường học thì phải làm sao. Xin cám ơn -
RE: [Function] Code Xếp hạng
tranthanhan1962 > 21-07-15, 11:37 AM
-
RE: [Function] Code Xếp hạng
bvchauthanh > 23-07-15, 12:11 AM
Cách của bạn tranthanhan1962 rất hay, cho mình hỏi về vấn đề trùng hạng => bị nhảy hạng (VD trùng hạng 2 thì hạng kế tiếp sẽ không liên tục được (Xem hình bên dưới)
![[Hình: Xephang.png]](http://www.upsieutoc.com/images/2015/07/22/Xephang.png)
Và mình xin góp 1 cách khác mà không dùng đến modul để xếp hạng (nhưng vẫn bị lỗi như trên)
ai có cách giải quyết không? xin chỉ giáo
Mượn lại file của bạn tranthanhan1962 nhé. Mình đã làm với 2 query hoàn toàn không sài đến modul, và kết quả ra tương tự. -
RE: [Function] Code Xếp hạng
maidinhdan > 23-07-15, 12:25 AM
![[Hình: codeSQLXephang.jpg]](https://sites.google.com/site/congthucassecc/home/hinh-linh-tinh/codeSQLXephang.jpg)