concatrelated vba excel的使用

Posted 2023-03-24

【中文标题】concatrelated vba excel的使用

【英文标题】：Use of concatrelated vba excel

【发布时间】：2012-10-12 19:24:01

【问题描述】：

我在 sql 语句中使用 concatrelated 函数时遇到问题。我想获取如下：

我的数据是：

A.CABNRO E01.EXCCEX
90001 500
87000 400
90001 450
90001 300
87000 500
76005

我要获取：

A.CABNRO NEW FIELD
90001 500,450,300
87000 400,500
76005

当我包含与 concatrelated 相关的语句时，以下代码不会运行。如果有人可以帮助我，我将不胜感激！！！

mysql = "SELECT A.CABFPR, A.CABCIA, A.CABCTR, B.CTRDTR, A.CABLOE, "
MYSQL = MYSQL & "A.CABNRO, A.CABCAR, A.CABFED, A.CABHOD, A.CABFEI, "
MYSQL = MYSQL & "A.CABHOI, A.CABFEF, A.CABHOF, A.CABFEE, A.CABHOE, "
MYSQL = MYSQL & "A.CABCCL, A.CABNEM, A.CABDEM "
MYSQL = MYSQL & "CONCATRELATED(EXCCEX, E01, A.CABNRO=E01.EXCNRO) "
MYSQL = MYSQL & "FROM BDYOBEL.AIPDTA.AIPCAB A "
MYSQL = MYSQL & "LEFT OUTER JOIN BDYOBEL.AIPDTA.AIPCTR B ON A.CABCIA=B.CTRCIA AND A.CABCTR=B.CTRCTR "
MYSQL = MYSQL & "LEFT OUTER JOIN BDYOBEL.AIPDTA.AIPEXC E01 ON A.CABNRO=E01.EXCNRO "
MYSQL = MYSQL & "WHERE A.CABCIA='LOR' AND A.CABFED>="
MYSQL = MYSQL & Chr$(39) & fini & Chr$(39) & "AND A.CABFED<=" & Chr$(39) & ffin & Chr$(39)
MYSQL = MYSQL & " AND (A.CABCTR='DM' OR A.CABCTR='L1' OR A.CABCTR='L5' OR A.CABCTR='LR') AND A.CABCAR<>'0'"

【问题讨论】：

您选择的远远超出样本数据所暗示的范围。

【参考方案1】：

声明http://allenbrowne.com/func-concat.html

如果 ConcatRelated 函数返回超过 255 个字符，并且 你在查询中使用它作为另一个记录集的源，一个错误 Access 可能会为剩余的字符返回垃圾。

这或许可以解释为什么您的代码无法正常工作。 在 Access 中无法为非固定数量的列聚合数据。你能做的最好的事情就是写这样的东西，然后用文本编辑器把这些列组合起来。

TRANSFORM Sum(E01.EXCCEX) AS SumOfEXCCEX
SELECT A.CABNRO
FROM [BDYOBEL-AIPDTA-AIPCAB] AS A INNER JOIN [BDYOBEL-AIPDTA-AIPEXC] AS E01 ON 
  A.CABNRO = E01.EXCNRO
GROUP BY A.CABNRO
ORDER BY A.CABNRO DESC , E01.EXCCEX DESC 
PIVOT E01.EXCCEX;  

运行查询会为您的示例数据提供以下结果： .