主题:急救,sql server插入数据出问题!!
我用delphi连接上sql server后,查询数据没有任何问题,可就是怎么也写不进去数据。一直提示语法错误,可是检查了好多遍都没问题。
ADOQ_input.Close;
ADOQ_input.SQL.Clear;
ADOQ_input.SQL.Add('select *form st_info where number='''+Trim(Edt_num.Text)+'''');
ADOQ_input.Open;
if ADOQ_input.RecordCount>0 then(----就是在这一句上出错--------)
begin
application.MessageBox('考生编号重复!','提示信息',mb_ok+mb_iconinformation);
Edt_num.SetFocus;
exit;
end;
Str_S:='Insert Into st_info(number,name,province,phone)values('+Trim(Edt_num.Text)+','+Trim(Edt_name.Text)+','
+Trim(Edt_prov.Text)+','+Trim(Edt_phone.Text)+')';
ADOQ_input.Close;
ADOQ_input.SQL.Clear;
ADOQ_input.SQL.Add(Str_S);
ADOQ_input.ExecSQL;
ADOQ_input.Close;
ADOQ_input.SQL.Clear;
ADOQ_input.SQL.Add('select *form st_info where number='''+Trim(Edt_num.Text)+'''');
ADOQ_input.Open;
if ADOQ_input.RecordCount>0 then(----就是在这一句上出错--------)
begin
application.MessageBox('考生编号重复!','提示信息',mb_ok+mb_iconinformation);
Edt_num.SetFocus;
exit;
end;
Str_S:='Insert Into st_info(number,name,province,phone)values('+Trim(Edt_num.Text)+','+Trim(Edt_name.Text)+','
+Trim(Edt_prov.Text)+','+Trim(Edt_phone.Text)+')';
ADOQ_input.Close;
ADOQ_input.SQL.Clear;
ADOQ_input.SQL.Add(Str_S);
ADOQ_input.ExecSQL;