values 附近有语法异常。请问高人指点。谢谢
values 附近有语法错误。请教高人指点。多谢!
qryupdate.Close;
qryupdate.Prepared:= true;
qryupdate.SQL.Text:= 'insert into tJob(js_no,st_date,de_date,fa_date,js_qty,day_qty,job_rs,job_ts,line_name,cYear,cMonth)';
qryupdate.SQL.Text:= 'values( :vJs_no,:vSt_date,:vDe_date,:vFa_date,:vJs_qty,:vDay_qty,:vJob_rs,:vJob_ts,:vLine_name,:vYear,:vMonth )';
qryupdate.Parameters.ParamByName('vJs_no').Value:= temp1.fieldbyname('js_no').AsString;
qryupdate.Parameters.ParamByName('vSt_date').Value:= temp1.FieldByName('st_date').asstring;
qryupdate.Parameters.ParamByName('vDe_date').Value:= temp1.FieldByName('de_date').AsString;
qryupdate.Parameters.ParamByName('vFa_date').Value:= datetimetostr(ndate);
qryupdate.Parameters.ParamByName('vJs_qty').Value:= temp1.FieldByName('js_qty').AsString;
qryupdate.Parameters.ParamByName('vDay_qty').Value:= temp3.FieldByName('day_qty').AsString;
qryupdate.Parameters.ParamByName('vJob_rs').Value:= temp3.FieldByName('line_qty').AsString;
qryupdate.Parameters.ParamByName('vJob_ts').Value:= inttostr(dayn);
qryupdate.Parameters.ParamByName('vLine_name').Value:= temp3.FieldByName('line_name').AsString;
qryupdate.Parameters.ParamByName('vYear').Value:= formatdatetime('yyyy',t1);
qryupdate.Parameters.ParamByName('vMonth').Value:= formatdatetime('mm',t1);
qryupdate.execsql;
上面全字符字段。
运行出现错误。values 附近有语法错误
------解决思路----------------------
qryupdate.SQL.Append( 'insert into tJob(js_no,st_date,de_date,fa_date,js_qty,day_qty,job_rs,job_ts,line_name,cYear,cMonth)');
qryupdate.SQL.Append( 'values( :vJs_no,:vSt_date,:vDe_date,:vFa_date,:vJs_qty,:vDay_qty,:vJob_rs,:vJob_ts,:vLine_name,:vYear,:vMonth )');
qryupdate.Close;
qryupdate.Prepared:= true;
qryupdate.SQL.Text:= 'insert into tJob(js_no,st_date,de_date,fa_date,js_qty,day_qty,job_rs,job_ts,line_name,cYear,cMonth)';
qryupdate.SQL.Text:= 'values( :vJs_no,:vSt_date,:vDe_date,:vFa_date,:vJs_qty,:vDay_qty,:vJob_rs,:vJob_ts,:vLine_name,:vYear,:vMonth )';
qryupdate.Parameters.ParamByName('vJs_no').Value:= temp1.fieldbyname('js_no').AsString;
qryupdate.Parameters.ParamByName('vSt_date').Value:= temp1.FieldByName('st_date').asstring;
qryupdate.Parameters.ParamByName('vDe_date').Value:= temp1.FieldByName('de_date').AsString;
qryupdate.Parameters.ParamByName('vFa_date').Value:= datetimetostr(ndate);
qryupdate.Parameters.ParamByName('vJs_qty').Value:= temp1.FieldByName('js_qty').AsString;
qryupdate.Parameters.ParamByName('vDay_qty').Value:= temp3.FieldByName('day_qty').AsString;
qryupdate.Parameters.ParamByName('vJob_rs').Value:= temp3.FieldByName('line_qty').AsString;
qryupdate.Parameters.ParamByName('vJob_ts').Value:= inttostr(dayn);
qryupdate.Parameters.ParamByName('vLine_name').Value:= temp3.FieldByName('line_name').AsString;
qryupdate.Parameters.ParamByName('vYear').Value:= formatdatetime('yyyy',t1);
qryupdate.Parameters.ParamByName('vMonth').Value:= formatdatetime('mm',t1);
qryupdate.execsql;
上面全字符字段。
运行出现错误。values 附近有语法错误
------解决思路----------------------
qryupdate.SQL.Append( 'insert into tJob(js_no,st_date,de_date,fa_date,js_qty,day_qty,job_rs,job_ts,line_name,cYear,cMonth)');
qryupdate.SQL.Append( 'values( :vJs_no,:vSt_date,:vDe_date,:vFa_date,:vJs_qty,:vDay_qty,:vJob_rs,:vJob_ts,:vLine_name,:vYear,:vMonth )');