在ADO中使用“伪字段名”

作者：绿色风分类：时间：2022-08-18 浏览：113

楼主 wjc2090742	在ADO中，为了取得字段名，需要进行循环。下面介绍一种“伪字段名”的方式，注意其中的ORDER BY的使用。如下图的转换： Sub GetSums() Dim oCnn As Object Dim sTab As String Dim sSQL As String Range("f1:h65536").ClearContents sTab = "[Sheet1$a:d]" Set oCnn = CreateObject("adodb.connection") oCnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName sSQL = "select * from (select top 1 '年级' as 年级, '班级' as 班级, '分数合计' as 分数合计 from " & sTab & " " _ & " union all select 年级,班级,sum(分数) from " & sTab & " group by 年级,班级" _ & " union all select 年级,'小计' as 班级,sum(分数) from " & sTab & " group by 年级" _ & " union all select '总计' as 年级,'' as 班级,sum(分数) from " & sTab & " " _ & ") order by (年级='年级'),(年级<>'总计'),年级,(班级<>'小计'),班级" Range("e1").CopyFromRecordset oCnn.Execute(sSQL) oCnn.Close Set oCnn = Nothing End Sub 语句重点：因为真正的字段名”年级“是需要另外循环提取的，联合表中的“年级”、“班级”、“分数合计”实际上是一行数据，所以需要在ORDER BY中对数据内容进行判断，作为排序依据，将该数据行排至前面。汇总.rar
2楼成就滋味	学习了
3楼 MMonica605	有点吸收不了。。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表