Question

在delphi7中如何检查插入数据库的数据在原来的表中已存在！

adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into worker (Wno,Wname,Wbrith,Wsex,Wage)values ('''+edit1.text+''','''+edit2.text+''','''+edit3.text+''','''+edit4.text+ ''','''+edit5.text+''')');
adoquery1.ExecSQL;
messagedlg('插入成功!',mtconfirmation,[mbok],0);
我想在此句段之前判断原数据库表中是否已存在相同数据，如果已存在，阻止继续插入，如何实现！求大神快点回复，周二要交报告！感之不尽！

Answer 1

先按主键在数据库里查一下，看有没有记录返回，来决定原来的表中数据是否已存在！

追问

我明白，就是不懂代码！大神帮忙决绝一下好么？

追答

原理，请调试：
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select count(*) sl from worker where Wno='''+edit1.text+'''');
adoquery1.Active :=True;
if adoquery1.Eof or (adoquery1.FieldByName('sl').AsInteger <1) then Exit;
adoquery1.Active :=false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert

......