if (select count(*) from table where zhujian='yourzhujian')=0 then adoquery1.sql.add('insert into............') else do your things; end; zhujian为你的主键字段
将表中的关键字段设唯一性索引,那么在插入同值的时候就会出错,你只要把插入数据的SQL语句写在TRY中,将提示信息写在EXCEPT中就行了,如:SQL.ADD('insert into 表(字段1,定段2....) values (值1,值2,...)'); try ExecSQL; except Application.messagebox('出错','提示',MB_OK+MB_IconSTOP); end;
adoquery1.sql.add('insert into............')
else
do your things;
end;
zhujian为你的主键字段
try
ExecSQL;
except
Application.messagebox('出错','提示',MB_OK+MB_IconSTOP);
end;
不成功 数据回滚
sdoconnection.BeginTrans
try
....
connection.CommitTrans;
except
connection.RollbackTrans;
MessageDlg('保存数据失败, 数据共享冲突!', mtError, [mbOK], 0);
Close;
end;