Access中实现GroupConcat效果

**T_Edwin**
ID	Name	Role
1	王楠	部门经理
2	张乐	营销主任
3	张乐	市场推广员
4	欧阳华	技术主管

建立如上的表，并添加如下的函数：

Public Function GroupConcat(sColumn As String, sTable As String, Optional sCriteria As String, Optional sDelimiter As String = ",") On Error GoTo ErrHandler Dim rs As New ADODB.Recordset Dim sSQL As String Dim sResult As String sResult = "" sSQL = "select " & sColumn & " from " & sTable If sCriteria <> "" Then sSQL = sSQL & " where " & sCriteria End If rs.Open sSQL, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly Do While Not rs.EOF If sResult <> "" Then sResult = sResult & sDelimiter End If sResult = sResult & rs.Fields(0).Value rs.MoveNext Loop rs.Close Set rs = Nothing GroupConcat = sResult Exit Function ErrHandler: If rs.State <> adStateClosed Then rs.Close End If Set rs = Nothing GroupConcat = Err.Number & " : " & Err.Description End Function

添加如下查询

SELECT Name, GroupConcat('Role','T_Edwin','Name=' & "'" & Name & "'") AS Roles FROM T_Edwin GROUP BY Name;

执行结果：

查询
Name	Roles
欧阳华	技术主管
王楠	部门经理
张乐	营销主任,市场推广员

Access中实现GroupConcat效果相关推荐

JQuery中的动画效果
show() hide() slideUp slideDown fadeIn fadeOut animate : 自定义动画 JQuery中的动画效果.html <!DOCTYPE html&g ...
ACCESS中实现密码输入值显示和掩盖的方法
ACCESS中编程密码输入文本框的"输入掩码"属性一.目的:点击一个眼睛的图标,实现密码输入框的输入值隐藏和显现. 二.操作步骤: 下载一个眼睛的图标点击添加图像 ,到输入密码 ...
气泡图在开源监控工具中的应用效果
气泡图在开源监控工具中的应用 Bubble Chart(气泡图),使用气泡图便于在行.列两个方向同时进行比较.气泡图也清晰地告诉哪里大.哪里小.如图1~图5为你展示几款开源监控工具在使用气泡图时的应用 ...
sql和access中截取字符串的区别
一向对数据库不熟悉,今天又遇到简单而又被忽略的问题--字符串的截取. 在Excel处理数据过程中,我们常用substring,left,mid,right来截取字符:在.NET编程中,我们常用subs ...
Android关于绘图中Shader 的效果（中级）
Android关于绘图中Shader 的效果(中级) 关于绘图中Shader 的效果本人对API中Shaser的参数理解不够深刻所以只能测试来看效果一下就看出来了 Shader mShade=n ...
DevExpress中透明玻璃效果
Aero玻璃效果下图左是DevExpress无玻璃效果,图右是Windows自带玻璃效果. Windows Aero 是从 Windows Vista 开始使用的新型用户界面,透明玻璃感让用户一眼贯 ...
access oracle sql语句,在 Access 中使用 SQL 建索引
时间:2017-12-29 08:30:39 作者:摘要: 一般在Oracle中使用Sql,在Access中使用很少,不过与Oracle的Sql还是有很多相似之处的.以下SQL语句在ACCES ...
网络营销专员浅析如何判断网络营销中网站优化效果几何？
对于新老站长来说在网站网络营销推广过程中时常都会针对行业内类似同行网站进行网站优化效果分析,并针对其他网站重点优势取长补短以此来提升自家网站优化水平,大大提升企业网站在搜索引擎中的网站排名和权重指数. ...
mysql 录入窗体设计_在Access中，可用于设计输入界面的对象是　　A）窗体 B）报表 C）查询 D）表...
展开全部在Access中,可用于设计输入界面的对象是窗体.不属于Access数据类型62616964757a686964616fe4b893e5b19e31333431373330的是报表. 窗体对 ...

Access中实现GroupConcat效果

Access中实现GroupConcat效果相关推荐

最新文章

热门文章