用SQL语句求符合条件的人数

his803

如图所示，请熟悉SQL的老师用SQL语句求出符合条件的人数，因数据量太大，用数组方式有点慢。

wxxydl

前5 名 是班级前5 名  年级前5 名  还是所有学校前5 名？

his803

wxxydl 发表于 2023-12-28 21:18
前5 名 是班级前5 名  年级前5 名  还是所有学校前5 名？

老师，是年级前5名。

his803

wxxydl 发表于 2023-12-28 21:18
前5 名 是班级前5 名  年级前5 名  还是所有学校前5 名？

老师，是年级排名。

zpy2

his803 发表于 2023-12-28 23:39
老师，是年级排名。

是所有学校  年级 前5 名？
是不是模拟一下结果？

his803

zpy2 发表于 2023-12-29 06:56
是所有学校  年级 前5 名？
是不是模拟一下结果？

老师，是以该科目学校排名的前5名，每班分别有几人。其他也由此类推

limonet

关键字：TOP\GROUP BY
做了语文，其它你依葫芦画瓢。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, StrSQL1$, i%, j%, Arr As Variant, Brr As Variant
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    Arr = Array("Desc", "Asc"): Brr = Array(5, 10)
    StrSQL1 = "Select * From [Sheet1$K1:M5]"
    For j = 0 To UBound(Arr)
        For i = 0 To UBound(Brr)
            StrSQL = "Select Top " & Brr(i) & " 学校,年级,班级,姓名,语文 From [Sheet1$A:G] Order By 语文 " & Arr(j)
            StrSQL = "Select 学校,年级,班级,Count(*) As 计数 From (" & StrSQL & ") Group By 学校,年级,班级"
            StrSQL1 = "Select a.*,b.计数 From (" & StrSQL1 & ")a Left Join (" & StrSQL & ")b On a.学校=b.学校 And a.年级=b.年级 And a.班级=b.班级"
        Next i
    Next j
    Range("K2").CopyFromRecordset Cn.Execute(StrSQL1)
End Sub

his803

limonet 发表于 2023-12-29 09:04
关键字：TOP\GROUP BY
做了语文，其它你依葫芦画瓢。

非常感谢！

洋务德雷

你这个不是一个SQL就能解决的。需要VBA+SQL一起来使用