就是这个报错。SQL语句放到sql里面可以正常执行 已经试了。
下面是代码
procedure TForm4.Button1Click(Sender: TObject);
var
sqlstr,edxingming,eddianhua,edcardno,ednianling,edzhuzhi,dengjisj:string;
begin
edxingming:=trim(edtxingming.text);
if length(edxingming)<1 then
begin
showmessage('请输入姓名');
exit;
end;
eddianhua:=trim(edtdianhua.text);
if length(eddianhua)<1 then
begin
showmessage('请输入联系电话');
exit;
end;
edcardno:=trim(edtno.text);
if length(edcardno)<1 then
begin
showmessage('请输入身份证号');
exit;
end;
ednianling:=trim(edtnianling.text);
edzhuzhi:=trim(edtzhuzhi.text);
sqlstr:='insert into wym_dengji (djxingming,lianxidh,shenfenzheng)valuse('''+edxingming+''','''+eddianhua+''','''+edcardno+''')';
with query1 do
begin
//try
Close;
SQL.Clear;
SQL.Add(sqlstr);
ExecSQL;
Close;
//finally
free;
end;
end;