查询某个分组中多行字段值的拼接字串的方法


access的SQL语法中没有自定义函数,也不能象SQL Server中一样用变量、游标、子查询等方法来灵活处理查询语句。

  但是,在Access环境中,透过模块中的过程,可利用功能强大的VB语言,生成复杂需求的查询语句。

   下面是本人今天在Access版块中的一个回复,以此例子,简单说明Access依托VB所蕴含的强大功能。

  网友提问:   

  --------------------------------------------------------------------------------

   我在ACCESS里面的表如下:

   comname   name   sex

   1公司     小王 男  

   1公司     小李 女  

   2公司     小张 男  

   我想将同公司的内容合在一起如:

  comname   name      sex   

  1公司    小王,小李  男,女  

  2公司    小张     男    

  请问我在ACCESS里面该如可操作?请问有什么好的方法去处理??

  --------------------------------------------------------------------------------

  解答:

  ----------------------------------------------------------------------------------

  在 access的模块中建立一个自定义函数:

Public Function CombStr(TableName As String, FieldName As String, GroupField As String, GroupValue As String) As String
  Dim ResultStr As String
  Dim rs As Recordset
  Set rs = CurrentDb.OpenRecordset(" select " & FieldName & " from " & TableName & " where " & GroupField & "='" & GroupValue & "'")
  If rs.RecordCount > 0 Then
  Do While Not rs.EOF
    ResultStr = ResultStr & "," & rs.Fields(0).Value
    rs.MoveNext
  Loop
  End If
  If ResultStr <> "" Then ResultStr = Mid(ResultStr, 2)
  CombStr = ResultStr
  
End Function


  建立查询:


SELECT T.comname, combstr("T","Name","comname",t.comname) AS CombName, combstr("T","ses","comname",t.comname) AS CombSex
FROM T
GROUP BY T.comname



相关阅读:
经典:Linux安全配置步骤大全
针对select写了一个通用的option输出函数
asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
php抓取页面与代码解析 推荐
让ubuntu从字符界面(命令行)登录
修改MySQL 5.0的默认100连接数
Oracle数据库备份与恢复(3):OS备份和用户管理
Windows 7游戏资源管理器程序特点
纯CSS实现的当鼠标移上图片添加阴影效果代码
安装输入法原来可以这么简单
一个原生的用户等级的进度条
提高网页效率的14条注意事项图文
Win7加鼠标常用功能一按直达快捷键
js下弹出窗口的变通
快速导航

Copyright © 2016 phpStudy |