Discussion :

[poula]

salut
je utilise Oracle 9i Fomrs.
dans mon base il existe 2 tables utilisateur et super_utilisateur et chaque table contient un login et mot de passe je affecte 2 fenêtre l'une à utilisateur et l'autre à super_utilisateur.
comment je peux verifier le login et le mot de paase correspond à quels table et afficher la fenêtre qui lui correspond?

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
20
21
22
DECLARE
    CURSOR C_EMP IS
      Select
        login1,MOT_PASSE1
      From
        SUPER_UTILISATEUR ;
 
     LN$Num SUPER_UTILISATEUR.LOGIN1%Type ;
     LC$Nom SUPER_UTILISATEUR.MOT_PASSE1%Type ;
     LN$But  Pls_integer ;DECLARE
   Begin  
     Open C_EMP ; 
    Loop 
 
       Fetch C_EMP Into LN$Num, LC$Nom ; 
        show_window('espace_super_utilisateur');
 
     End loop ;
    	Set_ALert_Property('ALERT', ALERT_MESSAGE_TEXT, LN$NUM ) ;   
    	LN$But := Show_ALert('AL_ERREUR' )  ;
    Close C_EMP ; 
   End ;

merci

[plaineR]

Je ne comprends pas ce que tu veux faire ni quel est ton problème, peux-tu être plus précis ?

NB : merci de penser à utiliser les balises code (icône # dans la barre d'outils)

[plaineR]

Merci d'avoir précisé, mais tu aurais du le faire en réponse à mon poste, j'ai failli ne pas voir que tu avais corrigé ton post
Je ferai quelque chose comme cela :

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
20
21
22
23
24
25
26
27
28
declare
  v_exist number(1);
begin
   -- recherche si l'utilisateur / mot de passe correspond à un super utilisateur
   select 1
   into v_exist
   from super_utilisateur
   where usr = :monBlock.userSaisi
     and pwd = :monBlock.pwdSaisi;
   -- il s'agit d'un utilisateur (une ligne trouvée)
   go_block ('blockSuperUtilisateur'); 
exception
   -- aucune ligne trouvee => il ne s'agit pas d'un super utilisateur
   when no_data_found then
       -- recherche s'il s'agit d'un user
       begin
          select 1
          into v_exist
          from utilisateur
          where usr = :monBlock.userSaisi
            and pwd = :monBlock.pwdSaisi;
          -- il s'agit d'un utilisateur (une ligne trouvée)
          go_block ('blockUtilisateur'); 
      exception
            when no_data_found then
                 message ('Utilisateur / mot de passe inexistant');
       end;
end;