with datamodule.CustomerData.login do
begin
close;
sql.Clear;
sql.Add('select * from customer where custid=:srh');
parameters.ParamByName('srh').Value:=trim(seskinedit1.Text);
prepared;
open;
if recordcount=1 then
begin
close;
sql.Clear;
sql.Add('insert into products values(:srh1,:srh2,:srh3,:srh4)');
parameters.ParamByName('srh1').Value:=trim(seskinedit1.Text);
parameters.ParamByName('srh2').Value:=seskinedit2.Text;
parameters.ParamByName('srh3').Value:=seskinedit3.Text;
parameters.ParamByName('srh4').Value:=strtocurr(trim(seskinedit4.Text));
prepared;
execsql;
end else
begin
showmessage('数据库内不存在客户编号为”'+trim(seskinedit1.Text)+'“的记录,请先添加客户资料,然后在添加此客户的产品资料!');
end;
end;运行提示说,"查询值的数目与目标字段的数目不同",我的插入语句错了吗?
表products有5个字段其中第一个是自增的,其余四个我已经表示出来了
请问错在那里?
begin
close;
sql.Clear;
sql.Add('select * from customer where custid=:srh');
parameters.ParamByName('srh').Value:=trim(seskinedit1.Text);
prepared;
open;
if recordcount=1 then
begin
close;
sql.Clear;
sql.Add('insert into products values(:srh1,:srh2,:srh3,:srh4)');
parameters.ParamByName('srh1').Value:=trim(seskinedit1.Text);
parameters.ParamByName('srh2').Value:=seskinedit2.Text;
parameters.ParamByName('srh3').Value:=seskinedit3.Text;
parameters.ParamByName('srh4').Value:=strtocurr(trim(seskinedit4.Text));
prepared;
execsql;
end else
begin
showmessage('数据库内不存在客户编号为”'+trim(seskinedit1.Text)+'“的记录,请先添加客户资料,然后在添加此客户的产品资料!');
end;
end;运行提示说,"查询值的数目与目标字段的数目不同",我的插入语句错了吗?
表products有5个字段其中第一个是自增的,其余四个我已经表示出来了
请问错在那里?
你在这一句中添加你所自增的字段名!
try