Question

Delphi中插入数据到数据库但是不能重复的语句

try

with Form2.ADOQuery1 do
begin
SQL.Clear;
SQL.Add ('insert into Users (Loginname,Password) values ('+''''+sname+''''+','+''''+snum+''''+')');
application.MessageBox('注册成功','提示信息',64);
execsql;

end;
except
application.MessageBox('注册失败','提示信息',64);

end
end
这是我写的，我试过了几种方法却都不行，在注册的时候都会提示注册成功，求解答！！

Answer 1

方法很多，一种是在数据库里，把你的loginname设置为不重复的索引，或者设置为主键，这样插入相同值的时候就会出错。或者改你的上面的程序，在插入之前先检查select count(*) from Users where loginname=sname的结果，如果为0再执行上面的insert

追问

恩恩，那个插入之前检查的我写过，但是还是有问题诶，不知道怎么写了，你能写一下给我看看吗，
还有，我把loginname设置为的主键，但是我要是重复注册，就会先说注册成功，然后又是注册失败，然后又是注册成功，出现几次弹出窗口诶。。。。

追答

如果已经设成主键了，这两行要换一下

application.MessageBox('注册成功','提示信息',64);
execsql;

追问

我换了这两行，然后重复注册提示的是，注册成功、注册失败、注册失败，三次弹窗诶。。。怎么办啊。。。