SQL排名之总分名次在10名以内的语文单科排名

(2014-07-18 23:24:07)

标签：

excel

vba

sql

分类： ExcelVBA

SQL排名之总分名次在10名以内的语文单科排名

http://s5/mw690/001f8HsBzy6KyfGqNVi14&690总分名次在10名以内的语文单科排名" TITLE="SQL排名之总分名次在10名以内的语文单科排名" />

序号	学号	姓名	语文	数学	英语	物理	化学	政治	历史	地理	生物	总分	名次	积分
1	7102	曹金钰	100	90	98	45	38	100	90	98	45	704	2	118
2	7106	曹永鑫	88	73	95	45	29	88	73	95	45	631	6	114
3	7113	布慧恩	80	37	27	92	61	80	38	89	85	589	13	107
4	7201	陈永吉	91	62	87	50	34	91	62	87	50	614	8	112
5	7202	程大冉	94	69	78	42	33	94	69	78	42	599	11	109
6	7203	崔红玉	90	63	66	34	22	90	63	66	34	528	29	91
7	7204	范冬阳	99	43	34	64	88	99	63	66	0	556	21	99
8	7205	郝磊	79	44	38	105	81	79	58	48	33	565	19	101
9	7206	李莹莹	87	50	34	91	62	87	91	45	36	583	14	106
10	7301	刘杭	92	85	98	49	39	57	33	57	33	543	24	96
11	7302	刘蒙恩	105	81	79	44	38	105	81	79	44	656	5	115
12	7303	刘青崧	93	51	36	94	97	93	28	30	19	541	25	95
13	7304	刘晓	89	85	105	41	38	53	34	53	34	532	28	92
14	7305	吕宗洋	98	45	38	100	90	98	27	80	33	609	9	111
15	7306	乔方方	94	94	101	47	37	57	40	57	40	567	17	103
16	7307	王东婷	97	90	102	46	38	56	35	56	35	555	22	98
17	7308	王恩洋	94	97	93	51	36	94	97	93	51	706	1	119
18	7309	王菲	64	88	99	43	34	64	88	99	43	622	7	113
19	7310	王慧平	92	61	80	37	27	92	61	80	37	567	17	103
20	7311	王喜乐	94	78	100	41	36	94	78	100	41	662	4	116
21	7401	武相坡	94	82	79	30	29	94	82	79	30	599	11	109
22	7402	闫学新	102	90	94	60	35	61	37	61	37	577	15	105
23	7403	余柳亨	77	91	45	40	28	77	91	45	40	534	26	94
24	7404	张海燕	100	90	98	45	38	58	31	58	31	549	23	97
25	7405	张楷耀	94	97	93	51	36	64	39	64	39	577	15	105
26	7406	赵新悦	100	41	36	94	78	100	22	61	28	560	20	100
27	7407	朱满	85	86	40	40	32	85	86	40	40	534	26	94
28	7408	朱强	89	85	105	41	38	89	85	105	41	678	3	117
29	7409	朱欣才	95	45	29	88	73	95	27	92	61	605	10	110

Sub Test4()
    Dim Conn As Object, Rst As Object
    Dim strConn As String, strSQL As String
    Dim i As Integer, PathStr As String
    Set Conn = CreateObject("ADODB.Connection")
    Set Rst = CreateObject("ADODB.Recordset")
    PathStr = ThisWorkbook.FullName   '设置工作簿的完整路径和名称
    Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    Case Is <= 11
        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    End Select
    '设置SQL查询语句
    On Error GoTo 提示
    Conn.Open strConn    '打开数据库链接
    strSQL = "select * from(Select A1.*," & _
             "(Select Count(*)+1 From [成绩表$]A2 Where A1.语文
             "(Select Count(*)+1 From [成绩表$]A2 Where A1.总分
             "From[成绩表$]A1)c WHERE c.总分排名<10"
    Set Rst = Conn.Execute(strSQL)    '执行查询，并将结果输出到记录集对象
    With Sheet3
        .Cells.Clear
        For i = 0 To Rst.Fields.Count - 1    '填写标题
            .Cells(1, i + 1) = Rst.Fields(i).Name
        Next i
        .Range("A2").CopyFromRecordset Rst
        .Cells.EntireColumn.AutoFit '自动调整列宽
    End With
    Rst.Close: Conn.Close   '关闭数据库连接
    Set Conn = Nothing: Set Rst = Nothing: Exit Sub
提示:
    MsgBox Err.Description, , "雪山飞狐温馨提示"
End Sub

http://s5/mw690/001f8HsBzy6KyfHL0q024&690总分名次在10名以内的语文单科排名" TITLE="SQL排名之总分名次在10名以内的语文单科排名" />

新浪博客:http://weibo.com/u/1139851561

百度空间:http://hi.baidu.com/335081548

往期精彩在:

腾讯(QQ)微博:http://t.qq.com/huangshifang?preview

更多分享请关注微信号

微信号：Excel335081548 或:

雪山飞狐Excel

https://mmbiz.qlogo.cn/mmbiz/iaPxYpQyYlmkYZWm4n62a2AMKpmZRkhsnyv2lr4rFSSkTLOU6dCYXULX86yROfRxDrcSVpm5N8XKag4eSFuCnmQ/0总分名次在10名以内的语文单科排名" TITLE="SQL排名之总分名次在10名以内的语文单科排名" />

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：正则表达式自定义函数提取不规则数字并求和

后一篇：用SQL语句实现技巧的分类汇总的效果

新浪BLOG意见反馈留言板　欢迎批评指正