Ошибка синтаксиса - VB
Формулировка задачи:
rs.Open "SELECT SUM(S1), SUM(S2) FROM " + _
"((select sum(dp.akt_rasx) As S1 ,sum(dp.summa) As S2 " + _
"from d_point dp, " + _
"LEFT JOIN " + _
"d_sabon ds on dp.k_sabon=ds.k_sabon " + _
"and ds.k_Month= " + month_ + _
"and ds.Year= " + year_ + _
"and (ds.k_f46=1 or ds.k_f46=27) " + _
"where dp.k_Month = " + month_ + _
"And dp.Year = " + year_ + _
"And (dp.k_f46 = 1 Or dp.k_f46 = 27) " + _
"and dp.k_tov > 0 and dp.k_pred <> 45) " + _
"Union ALL " + _
"select sum(dps.rasx_a) As S1,sum(dps.summa) As S2 " + _
"from d_dopsum dps " + _
"where dps.k_pred <> 45 And dps.k_Month = " + month_ + _
"And dps.Year = " + year_ + _
"And (dps.k_f46 = 1 Or dps.k_f46 = 27)) T1", cn, adOpenStatic, adLockReadOnly
на что VBA выдает, ошибка синтаксиса в операции Join
если кто знает подскажите в чем дело????
в QA запрос работает
"((select sum(dp.akt_rasx) As S1 ,sum(dp.summa) As S2 " + _
"from d_point dp, " + _
"LEFT JOIN " + _
"d_sabon ds on dp.k_sabon=ds.k_sabon " + _
"and ds.k_Month= " + month_ + _
"and ds.Year= " + year_ + _
"and (ds.k_f46=1 or ds.k_f46=27) " + _
"where dp.k_Month = " + month_ + _
"And dp.Year = " + year_ + _
"And (dp.k_f46 = 1 Or dp.k_f46 = 27) " + _
"and dp.k_tov > 0 and dp.k_pred <> 45) " + _
"Union ALL " + _
"select sum(dps.rasx_a) As S1,sum(dps.summa) As S2 " + _
"from d_dopsum dps " + _
"where dps.k_pred <> 45 And dps.k_Month = " + month_ + _
"And dps.Year = " + year_ + _
"And (dps.k_f46 = 1 Or dps.k_f46 = 27)) T1", cn, adOpenStatic, adLockReadOnly
на что VBA выдает, ошибка синтаксиса в операции Join
если кто знает подскажите в чем дело????
в QA запрос работает
Решение задачи: «Ошибка синтаксиса»
textual
Листинг программы
спасибо всем разобралась
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д