工作中由于用各种框架,业务也不是很复杂,一直没怎么写过复杂的sql,今天写了一个

数据如下

代码如下

  1. Sub 班级分数等级分析(shname)
  2.  
  3. Dim Con As Object, rs As Object
  4. Dim sql As String, sql2 As String, sh As String
  5. Dim headArr
  6.  
  7. headArr = Array("序号", "班级", "班主任", "任教老师", "最高分", "最低分", "平均分", "平均分名次", "A", "A率", "B", "B率", "C", "C率", "D", "D率", "E", "E率", "参考率", "T", "质量指数名次")
  8.  
  9. Set Con = CreateObject("ADODB.Connection")
  10.  
  11. Con.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no;imex=1';Data Source=" & ActiveWorkbook.FullName
  12.  
  13. sh = "[" & ActiveSheet.Name & "$]"

  14. 这个是分析统计参考的人,参考的学生成绩分 A B C D E 五个等级,一开始不知道要怎么对每个等级分别统计,因为是在同一个字段里
    后来发现可以用IIF函数来判断是否是哪个等级的,再用sum做个数统计,这里用IFF是因为这里不支持case whencase when IIF要根据不同的数据库来选择使用
    c8是统计参考的全部人数
  15. sql = " SELECT f1, f2, f3, max(f10), min(f10), avg(f10) as f6, count(f8) as c8,"
  16. sql = sql + " sum(IIF(trim(f8)='A',1,0)) as A, A/c8 as AA, "
  17. sql = sql + " sum(IIF(trim(f8)='B',1,0)) as B, B/c8 as BB, "
  18. sql = sql + " sum(IIF(trim(f8)='C',1,0)) as C, C/c8 as CC, "
  19. sql = sql + " sum(IIF(trim(f8)='D',1,0)) as D, D/c8 as DD, "
  20. sql = sql + " sum(IIF(trim(f8)='E',1,0)) as E, E/c8 as EE "
  21. sql = sql + " from " & sh & " where f10 >= 0 group by f1,f2,f3 "

  22. 这个是为了查找出每个班级对应的所有人,包括缺考的
    红色三个字段是为了左连接用的
    cc8是统计班级的全部人数
  23. sql2 = "select f1,f2,f3,count(f8) as cc8 from " & sh & " group by f1,f2,f3"

  24. 这个呢是把两个查询结果,作为两个表,左连接查询   sql = " select a.*, c8/cc8, (c8/cc8)*((AA+BB)*30+(AA+BB+CC+DD)*60+EE*10) from (" & sql & ") a left join (" & sql2 & ") b on a.f1 = b.f1 and a.f2 = b.f2 and a.f3 = b.f3 order by f6 desc "
  25.  
  26. Set rs = Con.Execute(sql)
  27.  
  28. Call 删除已经存在的表(shname)
  29. Sheets.Add After:=Sheets(Sheets.Count)
  30. ActiveSheet.Name = shname
  31.  
  32. For i = To UBound(headArr)
  33. Cells(, i + ) = headArr(i)
  34. Next
  35.  
  36. Cells(, ).CopyFromRecordset rs
  37.  
  38. rs.Close: Set rs = Nothing
  39. Con.Close: Set Con = Nothing
  40.  
  41. End Sub

sql IIF函数的应用的更多相关文章

  1. 楼梯T-SQL:超越基础6级:使用CASE表达式和IIF函数

     从他的楼梯到T-SQL DML,Gregory Larsen涵盖了更多的高级方面的T-SQL语言,如子查询. 有时您需要编写一个可以根据另一个表达式的评估返回不同的TSQL表达式的单个TSQL语句. ...

  2. t-sql的楼梯:超越基本级别6:使用案例表达式和IIF函数

    t-sql的楼梯:超越基本级别6:使用案例表达式和IIF函数 源自:Stairway to T-SQL: Beyond The Basics Level 6: Using the CASE Expre ...

  3. sql 判断 函数 存储过程是否存在的方法

    下面为您介绍sql下用了判断各种资源是否存在的代码,需要的朋友可以参考下,希望对您学习sql的函数及数据库能够有所帮助.库是否存在if exists(select * from master..sys ...

  4. DB2 SQL 日期函数

    DB2 SQL 日期函数1:CURRENT TIMESTAMP 函数:获取当前日期时间语法:CURRENT TIMESTAMP参数:当前日期时间返回值:当前日期时间 2:CURRENT DATE 函数 ...

  5. Netsuite Formula > Oracle函数列表速查(PL/SQL单行函数和组函数详解).txt

    PL/SQL单行函数和组函数详解 函数是一种有零个或多个参数并且有一个返回值的程序.在SQL中Oracle内建了一系列函数,这些函数都可被称为SQL或PL/SQL语句,函数主要分为两大类: 单行函数 ...

  6. SQL 聚合函数

    SQL聚合函数 MAX---最大值 MIN--最小值 AVG--平均值 SUM--求和 COUNT--记录的条数 EXample: --从MyStudent表中查询最大年龄,最小年龄,平均年龄,年龄的 ...

  7. SQL表值函数和标量值函数的区别

    SQL表值函数和标量值函数的区别 写sql存储过程经常需要调用一些函数来使处理过程更加合理,也可以使函数复用性更强,不过在写sql函数的时候可能会发现,有些函数是在表值函数下写的有些是在标量值下写的, ...

  8. ylb:SQL 常用函数

    ylbtech-SQL Server: SQL Server-SQL 常用函数 1,数学函数 2,日期和时间函数 3,字符串函数 4,转换函数 1,ylb:SQL 常用函数返回顶部 1,数学函数 2, ...

  9. SQL自定义函数split分隔字符串

    SQL自定义函数split分隔字符串 一.F_Split:分割字符串拆分为数据表 Create FUNCTION [dbo].[F_Split] ( @SplitString nvarchar(max ...

随机推荐

  1. 后台发送http请求通用方法,包括get和post

    package com.examsafety.service.sh; import java.io.BufferedReader; import java.io.IOException; import ...

  2. PHP mysql 连接ipV6地址

    需要在PHP页面中通过ipv6连接数据库,但是发现无论是用mysql_connect还是mysqli_connect,如果host是ipv6格式,就不能正常连接,会提示“php_network_get ...

  3. mongodb配置主从模式

    Mongodb的replication主要有两种:主从和副本集(replica set).主从的原理和mysql类似,主节点记录在其上的所有操作oplog,从节点定期轮询主节点获取这些操作,然后对自己 ...

  4. ABAP OLE

    OLE DATA: excel TYPE ole2_object, workbook TYPE ole2_object, sheet TYPE ole2_object, cell TYPE ole2_ ...

  5. CentOS下VI命令整理

    Vi共分三种模式,分别是“一般模式”.“编辑模式”与“命令行命令模式”. l         一般模式:vi处理文件时,一进入该文件就是一般模式.在这个模式中,可以使用“上下左右”键来移动光标,可以使 ...

  6. MAC OS brew安装MNMP

    安装HomeBrew Brew是Mac下面的包管理工具,就像centos下面的yum一样.HomeBrew可以通过ruby来安装,mac系统是自带ruby的,所以只要在终端运行下面的代码即可安装Hom ...

  7. 5 Application 对象

    5.1鸟瞰Application对象 5.2 必须了解的面向显示特性 5.2.1 使用ScreenUpdating改进和完善执行性能 代码清单5.1:实现屏幕更新的性能 '代码清单5.1: 实现屏幕更 ...

  8. 继续不温不火Windows Phone

    已经辞了,人也离开帝都了.是否还会回去? 不知道,也许脑子突然正常了又跑回去了. 如题,继续不温不火的Windows Phone. 今年2014,没错,Windows Phone是新加了好几家厂商,微 ...

  9. ODP.NET Managed 相关文章收集

      一.Oracle 对.net支持的一些基础知识了解介绍. 1.早年的时候,微软自己做的有 System.Data.OracleClient. 现在已经成了过期类了.性能等都不是很好. 2.Orac ...

  10. python中socket编程

    一.网络协议 客户端/服务器架构 1.硬件C/S架构(打印机) 2.软件C/S架构(互联网中处处是C/S架构):B/S架构也是C/S架构的一种,B/S是浏览器/服务器 C/S架构与socket的关系: ...