Problème de test

Version imprimable

Problème de test

j' ai creér un tableau dans la BD il sappel (utilisateur) avec les chmaps suivant
pseudo_utilisateur char, nom ,prenom, password number

et j'ai utilisé le tableau dans 1 block (UTILISATEUR) avec juste deux champs(pseudo_utilisateur et le password) dans 1 CANVAS (LOGIN) avec deux boutons (OK) et (QUITTER) pour faire une authentification, et quand je clique sur OK le bouton fait un test avec les contenus de champ qui je suis remplir et verifier s'il exist ou pas dans la tableau (utilisateur ) de la BD s'il exist :ouvrir un autre form (GESTION) sinon il affiche un message indique que pseudo et password non correct

voici le code du bouton (OK) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 declare x number; b varchar(20); begin x:=0; c := :UTILISATEUR.PSEUDO_UTILISATEUR; b := :UTILISATEUR.PASSWORD; select count (pseudo_utilisateur) into x from utilisateur where pseudo_utilisateur like UTILISATEUR.PSEUDO_UTILISATEUR; and MDP_utilisateur = b ; if x!=0 then open_form('GESTION'); else message ('pseudo et password non correct'); end if; end;
J'ai essayé plusieur fois mais toujours affiche le message
('pseudo et password non correct'); meme si je rempli les champs avec des infos exist déja dans le tableau utilisateur.

merci

j'ai utilise une autre solution mais meme problem

le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
DECLARE
 user_id VARCHAR2(50);
 passwd  VARCHAR2(10);
 CURSOR users_cur IS SELECT pseudo_utilisateur, MDP_utilisateur
 FROM utilisateur
WHERE pseudo_utilisateur=:UTILISATEUR.PSEUDO_UTILISATEUR;                       
BEGIN
 OPEN users_cur;
 FETCH users_cur INTO user_id, passwd;
 IF users_cur%FOUND THEN
   IF :UTILISATEUR.MDP_UTILISATEUR = passwd THEN  
      begin 
       open_form('FORME2');
      end;
   ELSE
     CLOSE users_cur;
     message('erreur Mot de passe incorrect !');
 
   END IF;
 ELSE
   CLOSE users_cur;
   message('erreur Code utilisateur incorrect !');
 
 END IF;
END;

je ponse le problem dans le test fe verification entre les champs et
champ de tableau de la BD
svp aide mois

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Declare
  x  pls_integer;
Begin
  Select 1
  Into  x
  From utilisateur
  where pseudo_utilisateur = :UTILISATEUR.PSEUDO_UTILISATEUR
  and  password = :UTILISATEUR.PASSWORD
  ;
  -- trouvé --
  Open_Form( ... ) ;
Exception
  When no_data_found Then
    message ('pseudo et password non correct');
End;

N'oubliez pas que la casse est importante dans vos table et que 'TOTO' != 'toto' != 'Toto' != 'ToTo' etc...