limiter le nombre de connexion VB-Oracle

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 :lol: )

Bonjour ,
Un trigger sur la connexion pourrait vous aider

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

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 ?

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

Code:

---

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

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

Pourquoi donc vouloir réinventer la roue ??? 8O

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

Citation:

---

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:

---

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:

---

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]

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).

Citation:

---

Envoyé par LeoAnderson

Pourquoi donc vouloir réinventer la roue ??? 8O

---

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

:wink:

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

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 ! ;-)

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.

voila pourquoi cela ne marche pas :

Code:

---

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:

---

1 2	resource_limit = true

---

en 9i :

Code:

---

1 2	alter system set resource_limit = true scope =BOTH

---

C'est géant.
Merci.