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

文章作者 100test 发表时间 2007:09:06 11:38:02
来源 100Test.Com百考试题网

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(" 0select " &. 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

建立查询：

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

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