mikej28621
MIS
**** Cross-post from VBA Visual Basic for Applications. I thought it might be relavant here also. ****
Thanks
I am trying to build a multi table join sql statement using Excel VBA thru client access for an AS400 DB2 database.
I do single tables all the time. I would love to move on to multi table queries. Here is what I have so far. Any ideas or examples would be helpful
sqlstr = "SELECT T1.PSSVCTYP, T1.PSSVCID, T2.SVACCT, T2.SVBRCH, T3.AMNAME, T1.PSPCOD, T4.PMDESC, T4.PMTHDT, T4.PMCYCLES, T1.PSCYCLES"
sqlstr = sqlstr & " FROM " & CurrLib & ".SVCWIL/PROSVCID, SVCWIL/SRVMAST99, SVCWIL/ACTMAST, SVCWIL/PROMSTR"
sqlstr = sqlstr & " WHERE T1.PSSVCID = T2.SVCID AND T2.SVACCT = T3.AMACCT AND T2.SVBRCH = T3.AMBRCH AND T1.PSPCOD = T4.PMPCOD"
sqlstr = sqlstr & " Order by T1.PSSVCID"
Thanks
Thanks
I am trying to build a multi table join sql statement using Excel VBA thru client access for an AS400 DB2 database.
I do single tables all the time. I would love to move on to multi table queries. Here is what I have so far. Any ideas or examples would be helpful
sqlstr = "SELECT T1.PSSVCTYP, T1.PSSVCID, T2.SVACCT, T2.SVBRCH, T3.AMNAME, T1.PSPCOD, T4.PMDESC, T4.PMTHDT, T4.PMCYCLES, T1.PSCYCLES"
sqlstr = sqlstr & " FROM " & CurrLib & ".SVCWIL/PROSVCID, SVCWIL/SRVMAST99, SVCWIL/ACTMAST, SVCWIL/PROMSTR"
sqlstr = sqlstr & " WHERE T1.PSSVCID = T2.SVCID AND T2.SVACCT = T3.AMACCT AND T2.SVBRCH = T3.AMBRCH AND T1.PSPCOD = T4.PMPCOD"
sqlstr = sqlstr & " Order by T1.PSSVCID"
Thanks