Question

怎么把多行数据按照id合并为一行？SQL语句应该如何写啊？在线急求。

例如 test表中，
id name
TB7629 轻度脂肪肝
TB7629 右肾囊肿直径25px
TB10256 未见异常
TP36 脂肪肝
TP36 胆囊壁胆固醇结晶
TP36 左肾囊肿直径20px

我想通过SQL语句，得到以下结果：
id name
TB7629 轻度脂肪肝，右肾囊肿直径25px
TB10256 未见异常
TP36 脂肪肝， 胆囊壁胆固醇结晶， 左肾囊肿直径20px。

由于数据比较多，最好要能批量处理的语句。

Answer 1

--sql2000
Create Function fn_hb(@id Varchar(100))
Returns Varchar(8000)
As
Begin
     Declare @Rst Varchar(8000)
     Set @Rst=''
     Select @Rst=@Rst+name+',' From test Where id=@id
     Set @Rst=Left(@Rst,len(@RSt)-1)
     Return @Rst
End
go
--调用
select id,dbo.fn_hb(id) As 名称 from test
Group by id

--sql2005+
Select id,
Stuff(
    (Select ','+name From test Where id=A.id
        For XML Path('')
    ),1,1,'') As name
From test A
Group by id

追问

这个是在SQL Sever 2005中运行吗？Access数据库可以不？

追答

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

追问

改了以后还是运行不了，还是非常感谢您的热心帮助啦

追答

是不是在这句出错了啊 Set rs = CurrentDb.OpenRecordset
这个 CurrentDb 是 数据库的连接,不知道是不是全局变量,一建一个试试
实在不行,你查询出来,结果在程序或VBA中合并
代码也就是这样,判断有没有记录,有就用个循环一条一条的拼
If rs.RecordCount > 0 Then
Do While Not rs.EOF
ResultStr = ResultStr & "," & rs.Fields(0).Value
rs.MoveNext
Loop
End If

追问

您好，如果方便的话可以帮我试运行一下吗？就用我上面提到的数据。这个对我很重要，真的很麻烦您。

Answer 2

自己写一个函数，能根据ID合并name。

追问

我根据网上的提示，采用了SELECT id, [name]=STUFF((SELECT ','+[name] FROM test t WHERE id=test.id FOR XML PATH('')), 1, 1, '')
FROM test GROUP BY id; 等几种语句，可是总是运行不了。对这个语句不是很懂，希望能有针对这个写好的语句