PDA

View Full Version : Help with concatrelated vba excel



Gus0411
10-12-2012, 11:08 AM
Hi, I'm having problem using the function concatrelated on a sql statement. I want to obtain as follows:

My data is:
A.CABNRO E01.EXCCEX
90001 500
87000 400
90001 450
90001 300
87000 500
76005

I want to obtain:
A.CABNRO NEW FIELD
90001 500,450,300
87000 400,500
76005

The following code does not run when I include the statement related with concatrelated. I will be grateful if someone can help me!!!

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'"

snb
10-12-2012, 02:59 PM
croosposted here:
http://www.excelfox.com/forum/f2/help-concatrelated-vba-excel-605/#post2484

typos included.

shrivallabha
10-13-2012, 02:39 AM
croosposted here:
http://www.excelfox.com/forum/f2/help-concatrelated-vba-excel-605/#post2484

typos included.
LOL:rotlaugh: