office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access多行數據合并成一行(同列多行數據合并成一行)數據用逗號隔開

2017-08-17 21:00:00
zstmtony
原創
6601

'用途,將同客戶合同號同樣的模具號 的不同顏色合并到一個字段里

合并前的數據

'客合同  款號  顏色  數量
'A       9001  黑色  100
'A       9001  白色  200
'A       9001  紅色  300
'
'
'不用ADO 或DAO  ,用查詢,大家有什么比較好的辦法 顯示為:
'
合并后的效果

'客合同號  款號  顏色                   數量
'A         9001  黑色,白色,紅色         600


合并前查詢截圖:

合并后截圖:



完整源代碼如下:

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客戶合同款號匯總表 "
 rsDes.Open "select * from tbl客戶合同款號匯總表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 rs.Open "select * from qry客戶合同款號顏色匯總", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
 Do While Not rs.EOF
    '如果同樣的客合同號 同樣的模具號(款號),則將顏色合并在一起
    If strKeyNo = rs("客合同號") & "-" & rs("模具號") Then
            rsDes("顏色") = rsDes("顏色") & "," & rs("顏色")
            rsDes("訂單總數") = Nz(rsDes("訂單總數"), 0) + Nz(rs("訂單總數"), 0)
 
    Else
    '新的客合同號+模具號(款號),則創建一條新的記錄
           strKeyNo = rs("客合同號") & "-" & rs("模具號")
            rsDes.AddNew
            rsDes("客戶") = rs("客戶")
            rsDes("客戶名稱") = rs("客戶名稱")
            rsDes("客合同號") = rs("客合同號")
            rsDes("合同日期") = rs("合同日期")
            rsDes("模具號") = rs("模具號")
            rsDes("類別") = rs("類別")
            rsDes("顏色") = rs("顏色")
            rsDes("訂單總數") = Nz(rs("訂單總數"), 0)

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


其它參考資料:


------------------------------多行字段合并到一行上的SQL語句寫法----------------------------------



在開發過程中經常碰到要實現按照某一字段,將其它字段中不同的值連接后顯示到一行上的需求。
本人總結了一下兩種方法:
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
--第一種寫法: 
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函數用法:主要作用是可以把一個父節點下的所有子節點通過某個字符進行區分,然后連接在一個列中顯示
--其中connect by是oracle中一種特有按層次遞歸用法,PRIOR表示上一條記錄,CONNECT BY PRIOR ename=ename_1是說上一條記錄的ename是本條記錄的ename_1,即本記錄的父親是上一條記錄。
--level是一個偽列
--結果如下: 
--1 | 李四 王五 張三
--2 | 曹九 劉六 趙七
--改進后可以增加一列如下: 
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) 

--結果如下: 
--1 |F | 李四 王五 張三
--2 |M | 曹九 劉六 趙七

--第二種寫法:
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
--結果如下: 
--1| 張三 李四 王五|F| 18 19 20 
--2| 劉六 趙七 曹九|M| 21 22 23 




SQL查詢多行合并到一行




問題描述:
無論是在sql 2000,還是在 sql 2005 中,都沒有提供字符串的聚合函數,
  所以,當我們在處理下列要求時,會比較麻煩:
有表tb, 如下:
id    value
----- ------
1     aa
1     bb
2     aaa
2     bbb
2     ccc
需要得到結果:
id     values
------ -----------
1      aa,bb
2      aaa,bbb,ccc
即, group by id, 求 value 的和(字符串相加)

1. 舊的解決方法

-- 1. 創建處理函數
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 [email protected]
    RETURN STUFF(@r, 1, 1, '')
END
GO
-- 調用函數

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

-- 2. 新的解決方法 
-- 示例數據
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'

-- 查詢處理
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

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

    分享
    北京十一选五基本走势