Discussion :

[King_T]

salut a tous,
je travail avec form 6 et oracle 8, j'ai crée un déclencheur (trigger) pour contrôler l'ajout des adhérents :
voici le code du trigguer :

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
19
 
declare 
	nom adherant.nom_ad%type;
	existe exception;
  al_button Number;
  al_id     Alert; 
begin 
	select nom_ad into nom
	from adherant 
	where nom_ad=:adherant1.nom_ad
	and pre_ad=:adherant1.pre_ad;
	if nom<>'' 
	then raise existe;
	end if;
exception
when existe then 
  al_id:= Find_Alert('ALERTE1'); 
  al_button:= SHOW_ALERT  (al_id);
end;

lors de son exécution form me sort l'erreur suivante : ORA-01422 (exact fetch returns more than requested number of rows. ) ce qui est impossible car j'ai un seul enregistrement dans la base!!!

ce qui est sur c'est que le probleme vient de de la première requête car j'ai enlever la partie "exception" et le résultat est le même !!!
merci pour votre aide

[orafrance]

le SELECT retourne plus d'une ligne

Sinon attention :

Code :

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

IF nom<>''

est différent de

Code :

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

IF nom IS NOT NULL

juste pour info

[King_T]

oui, j'ai compris que ma requête retourne plusieurs lignes.
mais je ne comprend pas pour quoi, j'ai même repris cette requête sur SQL+, elle a retourné une seul ligne.
j'ai même mis cette requête (avec les valeurs) dans le form et j'ai toujours la même erreur !!!

[SheikYerbouti]

Vérifier que la connexion dans Forms pointe bien vers la même base que celle utilisée par Sql+. Vous pouvez faire un Select count(*) Into ... dans votre trigger pour vous en assurer.

[Garuda]

Inutile de ramener le nom pour faire un test d'existence d'icelui !
A mon avis, c'est plus propre de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
cpt INTEGER;
BEGIN
SELECT count(*) INTO cpt
    FROM adherant 
    WHERE upper(nom_ad)=upper(:adherant1.nom_ad)
    AND upper(pre_ad)=upper(:adherant1.pre_ad);
/* TESTER SANS TENIR COMPTE DE LA CASSE !*/  
IF cpt>0 THEN 
 al_button:= SHOW_ALERT  (Find_Alert('ALERTE1')); 
End IF;

[orafrance]

le plus propre c'est bien EXIST et pas COUNT pour tester l'existence.

[Garuda]

orafrance, tu veux faire

Code :

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

1
2
3
4
5
6
7
Select 1 INTO CPT
from dual where exists (
SELECT 1
    FROM adherant 
    WHERE upper(nom_ad)=upper(:adherant1.nom_ad)
    AND upper(pre_ad)=upper(:adherant1.pre_ad));

Un peu compliqué , dans du forms ! Et pas trés lisible !
Mais en théorie, c'est vrai que le EXISTS est plus rapide .
Chez moi je fais le même genre de controle sur l'existence d'un nom dans Forms avec COUNT : c'est immediat (2500 enregistrements) !

[orafrance]

fait la même chose dans une table de 1 ligne dans laquelle tu auras supprimé 1000000 lignes et tu comprendras le soucis

[Garuda]

Supprimer un million d'adhèrents d'un coup (déja faut les avoir !) ?
Ca existe , dans la vraie vie ?
Et s'il ne reste qu'un adhèrent, King_T peut pointer au chomage !
Bon je plaisante, ne m'en tiens pas rigueur !