Access多行數(shù)據(jù)合并成一行（同列多行數(shù)據(jù)合并成一行）數(shù)據(jù)用逗號(hào)隔開(kāi)

'用途,將同客戶合同號(hào)同樣的模具號(hào) 的不同顏色合并到一個(gè)字段里

合并前的數(shù)據(jù)

'客合同  款號(hào)  顏色  數(shù)量
'A       9001  黑色  100
'A       9001  白色  200
'A       9001  紅色  300
'
'
'不用ADO 或DAO  ,用查詢(xún)，大家有什么比較好的辦法 顯示為：
'
合并后的效果

'客合同號(hào)  款號(hào)  顏色                   數(shù)量
'A         9001  黑色,白色,紅色         600

合并前查詢(xún)截圖：

合并后截圖：

完整源代碼如下：

Private Sub cmdCombineColor_Click()
 Dim rs As New ADODB.Recordset
 Dim rsDes As New ADODB.Recordset
 Dim strKeyNo As String
 Dim strStyleNo As String
 CurrentDb.Execute "delete * from tbl客戶合同款號(hào)匯總表 "
 rsDes.Open "select * from tbl客戶合同款號(hào)匯總表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 rs.Open "select * from qry客戶合同款號(hào)顏色匯總", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
 Do While Not rs.EOF
    '如果同樣的客合同號(hào) 同樣的模具號(hào)(款號(hào)),則將顏色合并在一起
    If strKeyNo = rs("客合同號(hào)") & "-" & rs("模具號(hào)") Then
            rsDes("顏色") = rsDes("顏色") & "," & rs("顏色")
            rsDes("訂單總數(shù)") = Nz(rsDes("訂單總數(shù)"), 0) + Nz(rs("訂單總數(shù)"), 0)
 
    Else
    '新的客合同號(hào)+模具號(hào)(款號(hào)),則創(chuàng)建一條新的記錄
           strKeyNo = rs("客合同號(hào)") & "-" & rs("模具號(hào)")
            rsDes.AddNew
            rsDes("客戶") = rs("客戶")
            rsDes("客戶名稱(chēng)") = rs("客戶名稱(chēng)")
            rsDes("客合同號(hào)") = rs("客合同號(hào)")
            rsDes("合同日期") = rs("合同日期")
            rsDes("模具號(hào)") = rs("模具號(hào)")
            rsDes("類(lèi)別") = rs("類(lèi)別")
            rsDes("顏色") = rs("顏色")
            rsDes("訂單總數(shù)") = Nz(rs("訂單總數(shù)"), 0)

    End If
    rsDes.Update
    rs.MoveNext
 Loop
 rs.Close
 rsDes.Close
 DoCmd.OpenTable "tbl客戶合同款號(hào)匯總表", , acReadOnly
End Sub

其它參考資料：

------------------------------多行字段合并到一行上的SQL語(yǔ)句寫(xiě)法----------------------------------

在開(kāi)發(fā)過(guò)程中經(jīng)常碰到要實(shí)現(xiàn)按照某一字段，將其它字段中不同的值連接后顯示到一行上的需求。
本人總結(jié)了一下兩種方法：
CREATE TABLE dept(DEPTID int,ENAME varchar(20 BYTE),SEX varchar(20 BYTE),AGE varchar(20 BYTE));
insert into dept values(1,'張三','F','18'); 
insert into dept values(1,'李四','F','19'); 
insert into dept values(1,'王五','F','20'); 
insert into dept values(2,'劉六','M','21'); 
insert into dept values(2,'趙七','M','22'); 
insert into dept values(2,'曹九','M','23');
commit;
select * from dept
--第一種寫(xiě)法： 
SELECT DISTINCT FIRST_VALUE(deptid) OVER(PARTITION BY deptid ORDER BY lv DESC) AS deptid,
FIRST_VALUE(ename) OVER(PARTITION BY deptid ORDER BY lv DESC) AS ename
FROM (SELECT deptid, SYS_CONNECT_BY_PATH(ename, ' ') ename, LEVEL lv
FROM (SELECT deptid,ename,LAG(ename, 1, NULL) OVER(PARTITION BY deptid ORDER BY ename) ename_1
FROM (SELECT deptid, ename FROM dept))
CONNECT BY PRIOR ename = ename_1
ORDER BY deptid, ename)
--Oracle中sys_connect_by_path函數(shù)用法：主要作用是可以把一個(gè)父節(jié)點(diǎn)下的所有子節(jié)點(diǎn)通過(guò)某個(gè)字符進(jìn)行區(qū)分，然后連接在一個(gè)列中顯示
--其中connect by是oracle中一種特有按層次遞歸用法,PRIOR表示上一條記錄,CONNECT BY PRIOR ename=ename_1是說(shuō)上一條記錄的ename是本條記錄的ename_1，即本記錄的父親是上一條記錄。
--level是一個(gè)偽列
--結(jié)果如下： 
--1 | 李四 王五 張三
--2 | 曹九 劉六 趙七
--改進(jìn)后可以增加一列如下： 
SELECT DISTINCT FIRST_VALUE (deptid) OVER (PARTITION BY deptid ORDER BY lv DESC) AS deptid, 
FIRST_VALUE (sex) OVER (PARTITION BY sex ORDER BY lv DESC) AS sex, 
FIRST_VALUE (ename) OVER (PARTITION BY deptid ORDER BY lv DESC) AS ename 
FROM (SELECT deptid, sex, SYS_CONNECT_BY_PATH (ename, ' ') ename, LEVEL lv 
FROM (SELECT deptid, ename, sex, 
LAG (ename, 1, NULL) OVER (PARTITION BY deptid ORDER BY ename) ename_1 
FROM (SELECT deptid, ename, sex FROM dept)) 
CONNECT BY PRIOR ename = ename_1 
ORDER BY deptid) 

--結(jié)果如下： 
--1 |F | 李四 王五 張三
--2 |M | 曹九 劉六 趙七

--第二種寫(xiě)法：
SELECT deptid,SYS_CONNECT_BY_PATH(ename, ' ') AS ename,sex,SYS_CONNECT_BY_PATH(age, ' ') AS age
FROM (SELECT deptid,ename,sex,age,
RANK() OVER(ORDER BY deptid)+ROW_NUMBER() OVER(ORDER BY deptid) rn,
ROW_NUMBER() OVER(PARTITION BY deptid ORDER BY deptid) rm
FROM dept) a1
WHERE a1.ROWID IN (SELECT MAX(a2.ROWID) FROM dept a2 WHERE a2.deptid = a1.deptid)
START WITH rm = 1
CONNECT BY PRIOR rn = rn - 1
--結(jié)果如下： 
--1| 張三 李四 王五|F| 18 19 20 
--2| 劉六 趙七 曹九|M| 21 22 23 

SQL查詢(xún)多行合并到一行

問(wèn)題描述：
無(wú)論是在sql 2000，還是在 sql 2005 中,都沒(méi)有提供字符串的聚合函數(shù)，
  所以，當(dāng)我們?cè)谔幚硐铝幸髸r(shí)，會(huì)比較麻煩：
有表tb, 如下：
id    value
----- ------
1     aa
1     bb
2     aaa
2     bbb
2     ccc
需要得到結(jié)果：
id     values
------ -----------
1      aa,bb
2      aaa,bbb,ccc
即， group by id, 求 value 的和（字符串相加）

1. 舊的解決方法

-- 1. 創(chuàng)建處理函數(shù)
CREATE FUNCTION dbo.f_str(@id int)
RETURNS varchar(8000)
AS
BEGIN
    DECLARE @r varchar(8000)
    SET @r = ''
    SELECT @r = @r + ',' + value
    FROM tb
    WHERE id=@id
    RETURN STUFF(@r, 1, 1, '')
END
GO
-- 調(diào)用函數(shù)

SELECt id, values=dbo.f_str(id) 
FROM tb 
GROUP BY id

-- 2. 新的解決方法 
-- 示例數(shù)據(jù)
DECLARE @t TABLE(id int, value varchar(10))
INSERT @t SELECT 1, 'aa'

 
UNION ALL SELECT 1, 'bb'
UNION ALL SELECT 2, 'aaa'
UNION ALL SELECT 2, 'bbb'
UNION ALL SELECT 2, 'ccc'

-- 查詢(xún)處理
SELECT *
FROM(
    SELECT DISTINCT 
        id
    FROM @t
)A
OUTER APPLY(
    SELECT 
        [values]= STUFF(REPLACE(REPLACE(
            (
                SELECT value FROM @t N
                WHERE id = A.id
                FOR XML AUTO
            ), '<N value="', ','), '"/>', ''), 1, 1, '')
)N

/*--結(jié)果
id          values
----------- ----------------
1           aa,bb
2           aaa,bbb,ccc
(2 行受影響)
--*/