onPostError 中加入以下语句:
for ErrCount :=0 to ADOConnection1.Errors.Count-1 do
if ADOConnection1.Errors.Item[ErrCount].Number = -2147217873 then
showmessgae('主键重复.')
(应该不同版本,错误代码号是一样的吧?!)
onPostError 中加入以下语句:
for ErrCount :=0 to ADOConnection1.Errors.Count-1 do
if ADOConnection1.Errors.Item[ErrCount].Number = -2147217873 then
showmessgae('主键重复.')
(应该不同版本,错误代码号是一样的吧?!)