Discussion :

[lonestar]

J'ai une application VB6-oracle8i et un user ne doit pouvoir se connecter qu'une fois à la base via l'appli VB.

Comment puis-je limiter le nombre de connexion (v$Session n'étant pas accessible via vb)?

En gros ce que j'aimerais faire, c'est :
- à la connexion verif que le user n'est pas dejà connecté.
- si non ça passe
- si oui, petit message et bye.

(c'est le 1er point qui m'embete )

[Jaouad]

Bonjour ,
Un trigger sur la connexion pourrait vous aider

[LeoAnderson]

Au niveau du profil, on peutr également définir le nombre max de sessions simultanées ! ;-)

[lonestar]

Les 2 solutions me plaisent bien.

Mais la 1ère (trigger) je ne vois pas bien comment la mettre en place.

Vous pouvez m'éclairer ?

[Jaouad]

Le code n'est pas tout à fait vérifié , sinon je le testerai tout à l'heure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
create or replace trigger interdire_connexion after  logon on database     
declare      
v_isdba number;
begin     
execute immediate   
'select count (username)from v$session where username = ( select distinct (username) from v$session where sid = (select distinct sid from sys.v_$mystat )) ' into v_isdba ;  
if   v_isdba = '1'
then       
RAISE_APPLICATION_ERROR (-20001,'Ily a déja une connexion avec cet user ',TRUE);   
end  if;     
end;    
/

Par contre ce dont je suis sûr , c'est que cette solution sera "inutile" face
aux utilisateurs ayant le privilége :"ADMINISTER DATABASE TRIGGER"

De plus ce privilége peut parfois être inclut dans des doles de types DBA ou même IMP_FULL_DATABASE

[Jaouad]

Il est également conseillé de créer le trigger sous le compte SYS .

[LeoAnderson]

Pourquoi donc vouloir réinventer la roue ???

http://download-west.oracle.com/docs...users.htm#1176

CREATE PROFILE clerk
LIMIT SESSIONS_PER_USER 1
CPU_PER_SESSION unlimited
CPU_PER_CALL 6000
LOGICAL_READS_PER_SESSION unlimited
LOGICAL_READS_PER_CALL 100
IDLE_TIME 30
CONNECT_TIME 480;

puis

Code :

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

1
2
3
4
5
6
CREATE USER jfee
    IDENTIFIED BY wildcat
    DEFAULT TABLESPACE users
    TEMPORARY TABLESPACE temp_ts
    QUOTA 500K ON users
    PROFILE clerk;

[EDIT]
Sans compter que je préfèrerai quelque chose du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
BEGIN
   SELECT Terminal, OSUser
     INTO lc$Term, lc$OSUser
     FROM V$Session
    WHERE UserName = User
       AND SID <> UserEnv('SESSIONID')
       AND ROWNUM = 1;
   RAISE_APPLICATION_ERROR ('Déjà connecté depuis '||lc$Term||' avec le compte systeme '||lc$OSUser);
EXCEPTION
    WHEN NO_DATA_FOUND THEN NULL;
END;

Non testé également :-(

[/EDIT]

[EDIT2]
Au passage, je remarque que tu fais un select sur sys.v_$mystat !
En général, il vaut mieux éviter d'attaquer directement les vues et passer par les synonymes. En effet, si dans le futur, pour une raison x ou y on ne souhaite pas que les utilisateurs aient accès à tout, on sera coincés et on devra tout réécrire.
Si dès le départ, on ,n'utilise pas sys.v_$... mais v$... il suffit de créer un synonyme privé et tout le filtrage/modifications deviennent complètement transparents aux utilisateurs, procédures et programmes ! ;-)
[/EDIT2]

[lonestar]

Merci pour tout.

Limiter au niveau profil me plait bien.
En effet je veux que les utilisateurs soient limités mais moi, je veux pouvoir avoir plusieurs connexions (une PL Sql et une VB par ex).

[Jaouad]

Pourquoi donc vouloir réinventer la roue ???

Ici il s'agit de montrer une solution alternative qui peut être évolutive , car cette solution permet d'interdire un ou plusieurs outils , ou même comme le souhaite Lonestar , d'avoir une connexion VB , une connexion Toad , une conexion par user et par poste ... etc



n'es tu pas de cette avis léo ?

[LeoAnderson]

Si, ça apporte une souplesse de plus, mais des contraintes et des risques supplémentaires d'erreurs (c'est typiquement ce qu'on oublie de prendre dans le cas d'une migration vu que ça appartient à SYS et que c'est automatique... )
Si le besoin est simplement : une connection par compte utilisateur, alors on créé un profil ad-hoc ! ;-)

[lonestar]

J'ajouterais que la limitation de session ne marche pas du tout.

Et c'est étrange, dans dba studio, on voit bien que le profile est limité à 1 session/user et que le user est bien affecté au profil.
Mais je peux quand même me connecter autant de fois que je veux.

Remarque : Les connexions sont effectuées à l'entrée dans l'appli (normal) et apparaissent dans oracle à l'état inactives. c'est p'etre ca ??

, bon bah je passe au trigger alors.

[Jaouad]

voila pourquoi cela ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SQL> show parameter resource_limit
 
NAME                                 TYPE        VALUE
------------------------------------ ----------- ------------------------------
resource_limit                       boolean     FALSE
SQL> alter system set resource_limit= TRUE ;
 
Système modifié.
 
SQL> conn dvp/dvp
ERROR:
ORA-02391: exceeded simultaneous SESSIONS_PER_USER limit

et pour boucler la boucle , changer ce paramétre en 8i :
init.ora

Code :

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

1
2
 
 resource_limit = true

en 9i :

Code :

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

1
2
 
alter system set  resource_limit = true scope =BOTH

[lonestar]

C'est géant.
Merci.