if语句的三种形式sql字段求和_VBA+SQL-常⽤函数SQL语句中的⼀些简单计算函数:
如max函数
SELECT MAX(列字段) AS 别名1 FROM [⼯作表名$]
如AVG函数
SELECT AVG(列字段) AS 别名1 FROM [⼯作表名$]
使⽤实例说明:
源数据:
查询内容
对英语成绩最⾼分:
对英语成绩平均分:
数据结构到底要怎么学
代码运⾏的结果如下:
代码如下:
Sub FuYun_Sql_Avg()
Dim cnn As Object, rst As Object
Dim Mypath As String, Str_cnn As String, Sql As String
Dim i As Long
Set cnn = CreateObject("tion")
'以上是第⼀步,后期绑定ADO
Mypath = ThisWorkbook.FullName
'以上获取当前⼯作簿的路径及名称
If Application.Version < 12 Then
'格式为.xls,调⽤下述语句
Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath
Else
'格式为.xlsx,调⽤下述语句
Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
End If
cnn.Open Str_cnnswitch多个case
'以上是第⼆步,建⽴链接
Sql = "SELECT avg(英语) as 平均分 FROM [英语-成绩单$]"
'Sql语句,查询所有数据,并按照英语成绩进⾏排序
[g2:g1000].ClearContents
'清空[g2:g1000]区域内容
Range("g2").CopyFromRecordset cnn.Execute(Sql)
'Execute语句先执⾏SQL语句
mysql语句的执行顺序'使⽤单元格对象的CopyFromRecordset⽅法将SQL查询到的内容复制到D2单元格为左上⾓的单元格区域
'以上是第三步,执⾏SQL语句并将数据读⼊表格指定区域
cnn.Close
'关闭链接
Set cnn = Nothing
'释放内存
End Sub
代码解析
代码我放了⼀个例⼦,⼤部分的代码是⼀致的,只有SQL的句⼦不⼀样。 SQL⽀持的函数有 COUNT函数(计数)、SUM函数(求和)、
MIN(最⼩值)
php mysql apache 集成环境SELECT COUNT(列字段) AS 别名1 FROM [⼯作表名$]SELECT SUM(列字段) AS 别名1 FROM [⼯作表名$]SELECT MIN(列字段) AS 别名1 FROM [⼯作表名$]多种函数还可以⼀起使⽤。⽐如最⾼分和平均分:
Sql = "SELECT MAX(英语) as 最⾼分,SELECT avg(英语) as 平均分 FROM [英语-成绩单$]"延伸阅读
VBA+ADO+SQL语句,⼩试⽜⼑。
SQL 查询语句-WHERE
SQL 的排序 ORDER BY
VBA+SQL-按顺序提取
私信 SQL 可以获取SQL代码的Excel⽂件
私信视频可以获取54集VBA⼊门视频
私信 VBA或 vba 可以获取⽂章中含VBA代码的Excel⽂件
>在常用的正则化计算方法中 属于
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论