Devart Forums

Hello,
How would you replace these BDE error codes?

1)
procedure UpdateError1(Sender: TObject; DataSet: TCustomClientDataSet;
E: EUpdateError; UpdateKind: TUpdateKind; var Response: TResolverResponse);
Begin
If (UpdateKind=ukInsert)And(E.ErrorCode=9733) Then
Response:=rrIgnore; //9733=Master record missing
End;

2)
If E is EDBEngineError Then
If (EDBEngineError(E).Errors[0].ErrorCode = 9729) Then
// Key Violation

3)
If (E is EDBEngineError) Then
If (EDBEngineError(E).Errors[0].ErrorCode =
ERRBASE_OTHER + ERRCODE_UNKNOWNSQL) Then
//13056 + 3 = 13059

Hello,

You can process these errors in the onUpdateError event of the TOraTable and TOraQuery components as in TDataSetProvider.

I was referring to the BDE error code. Is it the same as ODAC error code ? If EOraError(E).ErrorCode= number Then …
For example some BDE error codes I check:
9733 Master record missing
9729 Key Violation
13056 + 3 = 13059 ERRBASE_OTHER + ERRCODE_UNKNOWNSQL

Hello,

BDE and ODAC codes do not match, since ODAC returns an Oracle ORA-XXXXX error code in EOraError(E).ErrorCode, while BDE returns its own error codes.