ignore duplicate key error and continue

[lespaul]

I have an insert query that, if it returns a duplicate key error, instead of informing the user of the error, ignore it and keep processing the code. Is this possible?

Thanks!

leslie

 

[GeppoDarkson]

Hi,

you can manage exceptions (error) with the statement

Try
Query1.ExecSQL;
Except
ShowMEssage('Ignore ERROR');
End;
---
This as generic suggestion,
*** BUT ***
Maybe you'll better write a SQL statement that's insert records avoiding duplications,
for example

Insert into Old_Customer
Select * From Customer
Where Not Exists(Select * From Old_Customer
Where Old_Customer.id=Customer.id)


Hope this can be usefully.

Ciao,
Geppo Darkson.

 

[lespaul]

Actually what I'm doing is continuing a trial to a second or more day. So the program inserts a new trial slot into the table. But, there are other ways to get a new slot. So if the user has already created a slot in one of the other processes, I don't need one. I have worked around it by running a query to see if a record exists, and if not, then insert one, but it's just one more query instead of just passing over the error.

Thanks!
Leslie

 

[svanels]

If you remove the keyfield property it will insert the record, but that will violate data inconsistency. It would be better to make the Number record read-only and allow only editing of the remaining fields

Steven van Els
SAvanEls@cq-link.sr

 

[richardchaven]

You can try the following, but generally keys are not meant to be broken. Check your schema and design to find out why collisions are possible.

Note: you can also use OnPostError

...
while True;
try
    Post;
    Break;
except
    on E:EDBEngineError do
    begin
        if IsKeyViolation(E) then
            DataSet.FieldByName('DATE_POSTED').AsDateTime := Now
        else
             raise;
    end;
end;

function IsKeyViolation(E : Exception) : Boolean;
begin
   if (E is EDBEngineError) and (EDBEngineError(E).ErrorCount > 0) and
       (EDBEngineError(E).Errors[0].ErrorCode = DBIERR_KEYVIOL) then
   begin
       Result := True;
   end
   else
       Result := False;
end;

Cheers