insert代码格式问题
procedure Tproductivity.btnToDfsClick(Sender: TObject);begin
qryProductivity.Close;
qryProductivity.SQL.Clear;
qryProductivity.SQL.Add(' select * from output where fac='''+CDS_Outputfac.Value+'''');
qryProductivity.SQL.Add(' and pn='''+CDS_Outputpn.Value+'''');
qryProductivity.SQL.Add(' and res='''+CDS_Outputres.Value+'''');
qryProductivity.SQL.Add(' and area='''+CDS_Outputarea.Value+'''');
qryProductivity.SQL.Add('insert output(fac,res,area,date,shift,line,linetype,item,model,pn,output,gain,onoff,qa,total) values ('CDS_Outputfac.Value','CDS_Outputres.Value','CDS_Outputarea.Value',CDS_Outputdate.Value,'CDS_Outputshift.Value','CDS_Outputline.Value','CDS_Outputlinetype.Value','CDS_Outputitem.Value','CDS_Outputmodel.Value','CDS_Outputpn.Value',CDS_Outputoutput.Value,CDS_Outputgain.Value,CDS_Outputonoff.Value,CDS_Outputqa.Value,CDS_Outputtotal.Value)');
qryProductivity.ExecSQL;
end;
-------我是分割线-------
是这样, 我写了一个按钮事件, 第一件事是要做删除. 删除表中跟条件相同的数据,(注:因数据重要.所以先用select测试)
然后再将查询到底数据插进表里面. 可是结果大家都看到了. 错误.如果是values后面的数据类型错误到还可以接受.现在就是不知道出 了什么错误. 请大虾们关注下. 帮帮忙