select动态查询OLE error 800A0E7C请大家帮忙看看
我想实现如图所示的效果，根据radiogroup选的不同然后做各个分类汇总，现在我的代码是静态的查询，效果如图，
SQLStr :='SELECT 业务员, SUM(CASE WHEN month(操作时间) = 1 THEN 台数 ELSE 0 END) AS "1月份总额",SUM(CASE WHEN month(操作时间) = 2 THEN 台数 ELSE 0 END) AS "2月份总额",SUM(CASE WHEN month(操作时间) = 3 THEN 台数 ELSE 0 END) AS "3月份总额",'
+'SUM(CASE WHEN month(操作时间) = 4 THEN 台数 ELSE 0 END) AS "4月份总额",SUM(CASE WHEN month(操作时间) = 5 THEN 台数 ELSE 0 END) AS "5月份总额", SUM(CASE WHEN month(操作时间) = 6 THEN 台数 ELSE 0 END) AS "6月份总额",'
+' SUM(CASE WHEN month(操作时间) = 7 THEN 台数 ELSE 0 END) AS "7月份总额", SUM(CASE WHEN month(操作时间) = 8 THEN 台数 ELSE 0 END) AS "8月份总额", SUM(CASE WHEN month(操作时间) = 9 THEN 台数 ELSE 0 END) AS "9月份总额",'
+' SUM(CASE WHEN month(操作时间) = 10 THEN 台数 ELSE 0 END) AS "10月份总额", SUM(CASE WHEN month(操作时间) = 11 THEN 台数 ELSE 0 END) AS "11月份总额", SUM(CASE WHEN month(操作时间) = 12 THEN 台数 ELSE 0 END) AS "12月份总额" '+'FROM 订车合同 where year(操作时间)=2012 GROUP BY 业务员';
ADOQuery1.Close;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SQLStr);
ADOQuery1.Open;
SQLStr :='SELECT :leixing, SUM(CASE WHEN month(操作时间) = 1 THEN :paiming ELSE 0 END) AS "1月份总额",SUM(CASE WHEN month(操作时间) = 2 THEN :paiming ELSE 0 END) AS "2月份总额",SUM(CASE WHEN month(操作时间) = 3 THEN :paiming ELSE 0 END) AS "3月份总额",'
+'SUM(CASE WHEN month(操作时间) = 4 THEN :paiming ELSE 0 END) AS "4月份总额",SUM(CASE WHEN month(操作时间) = 5 THEN :paiming ELSE 0 END) AS "5月份总额", SUM(CASE WHEN month(操作时间) = 6 THEN :paiming ELSE 0 END) AS "6月份总额",'
+' SUM(CASE WHEN month(操作时间) = 7 THEN :paiming ELSE 0 END) AS "7月份总额", SUM(CASE WHEN month(操作时间) = 8 THEN :paiming ELSE 0 END) AS "8月份总额", SUM(CASE WHEN month(操作时间) = 9 THEN :paiming ELSE 0 END) AS "9月份总额",'
+' SUM(CASE WHEN month(操作时间) = 10 THEN :paiming ELSE 0 END) AS "10月份总额", SUM(CASE WHEN month(操作时间) = 11 THEN :paiming ELSE 0 END) AS "11月份总额", SUM(CASE WHEN month(操作时间) = 12 THEN :paiming ELSE 0 END) AS "12月份总额" '+'FROM 订车用户合同 where year(操作时间)=:nianfen GROUP BY :leixing';
ADOQuery1.Close;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SQLStr);
case RadioGroup1.ItemIndex of
0: ADOquery1.Parameters.ParamByName('leixing').Value:='车型';
1: ADOquery1.Parameters.ParamByName('leixing').Value:='区域';
2: ADOquery1.Parameters.ParamByName('leixing').Value:='客户';
3: ADOquery1.Parameters.ParamByName('leixing').Value:='业务员';
4: ADOquery1.Parameters.ParamByName('leixing').Value:='品系';
5: ADOquery1.Parameters.ParamByName('leixing').Value:='订单类型';
end;
case RadioGroup2.ItemIndex of
0: ADOquery1.Parameters.ParamByName('paiming').Value:='台数';
1: ADOquery1.Parameters.ParamByName('paiming').Value:='总价';
end;
ADOquery1.Parameters.ParamByName('nianfen').Value:=spinEdit1.Value;
ADOQuery1.Open;
