Discussion :

[shurized]

Bonjour,

je fais des insertions dans une table Oracle (5champs)
j'ai une clé primaire sur les 5 champs qui me permet de gérer les doubles.
Je voudrai qu'à chaque fois qu'il ya un double au lieu que l'éxection s'arrete que je puisse incrémenter un compteur et que l'éxecution passe à l'instruction suivante.
j'ai fais le code suivant mais j'arrive pas à lever l'exception EOLEException.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Try
                     with Form1.ADOTable1 Do
                      begin
                        // on insère un enregistrement vide
                        Append;
                        // qu'on remplit...
                        FieldValues['demande'] := dde;
                        FieldValues['demandeur'] := ddr;
                        FieldValues['duree'] := dur;
                        FieldValues['heure'] := hh;
                        FieldValues['date_appel'] := dte;
                        Refresh;
                      end;
                    Except
                      on E:EOLEException do
                        doubl := doubl + 1;
                    End;

l'erreur est la suivante:
Classe d'exception EOLEException avec 'ORA-00001 violation de contraite unique'
je voudrai qu'il n'affiche plus ce message et qu'il continue en comptant le double.

quelqu'un aurait il une idée de ce que je dois faire

merci d'avance.

[Pascal Jankowski]

Et comme cela, il n'y aura pas d'arret lors de la levée de l'exception et il comptabilisera doubl

Pour tester la procédure, lancer l'exécutable seul et non à partir de delphi ou alors désactiver les exceptions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
with Form1.ADOTable1 Do 
  try
    // on insère un enregistrement vide 
    Append; 
    // qu'on remplit... 
    FieldValues['demande'] := dde; 
    FieldValues['demandeur'] := ddr; 
    FieldValues['duree'] := dur; 
    FieldValues['heure'] := hh; 
    FieldValues['date_appel'] := dte; 
    Refresh;  
  Except 
    doubl := doubl + 1; 
  End;

[shurized]

j'ai lancer l'exécutable mais maintenant j'ai l'erreur suivante:

EOF est égal à true ou l'enregistrement actuel a été supprimé

[Pascal Jankowski]

remplace le Refresh par Post

[shurized]

je l'ai fait mais ça ne change rien
il ya toujours le même message d'erreur

[shurized]

J'ai réglé le problème en changeant de version.
j'utilisais delphi 5 j'ai changé pour mettre delphi7.
et ça marche.
merci quand même.