下面写成这样应该没错吧,但提示说 sql.Add('select :Rq1,:FlowV1,:SumFlowV1,:Cod1 union all ');出错
with ADOQuery1 do
begin
close;
sql.Clear;
sql.add('insert into THData(Rq,FlowV,SumFlowV,CodV) ');
sql.Add('select :Rq1,:FlowV1,:SumFlowV1,:Cod1 union all ');
sql.Add('select :Rq2,:FlowV2,:SumFlowV2,:Cod2 union all ');
sql.Add('select :Rq3,:FlowV3,:SumFlowV3,:Cod3 union all ');
parameters.ParamByName('Rq1').Value:=i+(1/24)*t;
parameters.ParamByName('FlowV1').Value:=flow;
parameters.ParamByName('SumFlowV1').Value:=sumflow;
parameters.ParamByName('Cod1').Value:=Cod1;
parameters.ParamByName('Rq2').Value:=i+(2/24)*t;
parameters.ParamByName('FlowV2').Value:=flow;
parameters.ParamByName('SumFlowV2').Value:=sumflow;
parameters.ParamByName('Cod2').Value:=Cod2;
parameters.ParamByName('Rq3').Value:=i+(3/24)*t;
parameters.ParamByName('FlowV3').Value:=flow;
parameters.ParamByName('SumFlowV3').Value:=sumflow;
parameters.ParamByName('Cod3').Value:=Cod3;
Prepared;
ExecSQL;
end;