回 帖 发 新 帖 刷新版面

主题:急救,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;

回复列表 (共3个回复)

沙发

if ADOQ_input.RecordCount>0 then 
IF和THEN 只间应该返回的是布尔型的。所以提示回错误

板凳

问题出在:
ADOQ_input.SQL.Add('select *form st_info where number='''+Trim(Edt_num.Text)+'''');

select中是from 而不是form

3 楼

ADOQ_input.RecordCount>0  这句是用来判断表中是否有记录的吧

我来回复

您尚未登录,请登录后再回复。点此登录或注册