Discussion :

[Cryonie]

Bonjour,

J'ai un petit programme d'interface qui copie des données d'une base vers une autre. Je fais une copie complète des données sachant que certaines s'y trouvent déjà et que cela causera une erreur de doublon (sur la clef primaire).

Tout ceci est normal .. en fait ce que je voudrai c'est dans delphi récupérer le code d'erreur d'oracle pour différencier cette erreur d'une autre qui pourrait survenir (on sait jamais )

Je sais que dans les objets ADO_Connexion on peut récupérer des informations sur le n° d'erreur mais dans les ADO_QRY je n'ai trouvé ca nulle part


svp

[alexmorel]

En fais avec ADO, tu peux récupère un messsage d'erreur dans lequel tu peux faire une recherche si il contient le n° de l'erreur..

Perso j'ai opter pour les composants DOA (Direct Oracle Access) qui permet eux de récupère directement les N° d'erreur. Il permet aussi de mieux gérer les propriéte d'oracle.


A toi de voir.

PS. Pour récupère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
try
  query.open
Except
  On E : ...
End;

[Cryonie]

Yeah j'arrive à faire ce que je veux

C'est pas un truc intégré par l'ADOQuery mais ca marche quand même alors ...

[alexmorel]

ta fais comment finalement ? tu peux mettre ton code que les autres aies un exemple . Merci

[Cryonie]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
try
      ADO_QRYInsert.ExecSQL;
    Except
      on E : Exception do
        if (copy(E.Message,0,9)<>'ORA-00001') then
          WriteLn(FFIC_Log,FormatDateTime('DD/MM/YYYY HH:NN:SS',Now)+' - Erreur dans l''insertion du couple '+ ADO_QRY.Recordset.Fields[0].Value + ' - '+ ADO_QRY.Recordset.Fields[1].Value + ' -- ' + E.Message);
    end;

Voila c'est un peut du code de goret mais ca marche alors je me plaind pas