这么长的语句怎么弄啊？

Question

select wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj,sum(sqjcsl),sum(sqjcdw),sum(bqrksl),sum(bqrkdw),sum(bqcksl),
sum(bqckdw),sum(bqjcsl),sum(bqjcdw) from 
(
select wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj ,sum(kcsw_rksl)-sum(kcsw_cksl) as sqjcsl ,sum(kcsw_rkdw)-sum(kcsw_rkdw) as sqjcdw, 0 as bqrksl,0 as bqrkdw,0 as bqcksl,0 as bqckdw,0 as bqjcsl,0 as bqjcdw
from kcsw ,wl where kcsw_wlid=wl_wlid and kcsw_jzrq <'20041219' group by wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj
union all
select wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj,0 as sqjcsl,0 as sqjcdw,sum(kcsw_rksl) as bqrksl,sum(kcsw_rkdw) as bqrkdw ,sum(kcsw_cksl) as bqcksl,sum(kcsw_ckdw) as bqckdw,0 as bqjcsl,0 as bqjcdw
 from  kcsw ,wl where kcsw_wlid=wl_wlid and kcsw_jzrq between '20041220' and '20041220' 
group by wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj
union all
select wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj ,0 as sqjcsl,0 as sqjcdw,0 as bqrksl,0 as bqrkdw,0 as bqcksl,0 as bqckdw ,sum(kcsw_rksl)-sum(kcsw_cksl) as bqjcsl ,sum(kcsw_rkdw)-sum(kcsw_ckdw) as bqjcdw
from kcsw ,wl where kcsw_wlid=wl_wlid and kcsw_jzrq <='20041220' group by wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj
) a 
 group by wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj要把以上查询语句指定到adodc1.recordsource中，该怎么写啊？

Answer 1

select wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj,sum(sqjcsl),sum(sqjcdw),sum & _
(bqrksl),sum(bqrkdw),sum(bqcksl), & _
sum(bqckdw),sum(bqjcsl),sum(bqjcdw) from & _
以下类推。

Answer 2

Dim SQL  As String SQL=""
SQL = SQL & " SELECT * "
SQL = SQL & " FROM TABLE1"
SQL = SQL & " WHERE COL1 = 'AA'"

Answer 3

如不是很长，就这样用：
select wl_wlid,kcsw_ph,wl_mc,wl_gg,wl_cz,wl_dj,sum(sqjcsl),sum(sqjcdw),sum & _
(bqrksl),sum(bqrkdw),sum(bqcksl), & _
sum(bqckdw),sum(bqjcsl),sum(bqjcdw) from & _
以下类推。如实在很长，还是这样用好，不然还会揭示很长：Dim sql  As String 
sql  =""
sql  = sql  & " SELECT * "
sql  = sql  & " FROM TABLE1"
sql  = sql  & " WHERE COL1 = 'AA'"