Discussion :

[tscoops]

Bonjour,

j'ai créé une procédure qui fait des mises à jours sur différentes bases oracle via des dblink.
A la fin de ma procédure un COMMIT valide ma transaction.
Le problème que je me pose est le suivant:

-dans le cas où un verrou est posé sur un enregistrement que je vais mettre à jour, que va-t-il se passer?

Voici un exemple:

- je mets à jour sur la BDD 1
- je mets à jour sur la BDD 2
- je mets à jour sur la BDD 3
- je Commit.

Maintenant, un verrou est posé sur l'enregistrement de ma BDD 3
- je mets à jour sur la BDD 1
- je mets à jour sur la BDD 2
- j'attends la fin du verrou qui a été posé pour pouvoir continuer...

Mais le problème est que de ce fait je pose moi-même des verrous sur BDD1 et BDD2.

Y a t il possibiliter de paramétrer un timeout sur la procédure, ou bien de récupérer une exception dans ma procédure?

Je vous remercie de votre aide.

Anthony.

[Orameur]

qu'est ec que vous voulez dir par verrous?

[tscoops]

En fait pour moi un verrou c'est un lock qui empêche la mise à jour d'un enregistrement si le commit de la précédente mise à jour n'a pas été effectué.

[LeoAnderson]

Il vous faut poser les verrous par un

Code :

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

1
2
3
SELECT xxx
 FOR UPDATE
NOWAIT;

Dans ce cas, si l'enregistrement est déjà locké, la procédure n'attend pas la libération de l'enregistrement et déclenche une exception.

[tscoops]

Vous pouvez être un peu plus explicite svp?

Est ce que je peux intégrer directement cette fonctionnalité dans ma procédure?

Dsl, je n'ai pas bien compris l'exemple.

Merci bcp.

[aline]

vous pouvez aussi tuer les sessions qui posent des verrous.Que ce soient les votres ou celles de vos voisins (evidement avec les droits appropriés).

voici le genre de requêtes que j'utilise pour 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
 
select 'alter system kill session '|| ''''||
         s.sid ||
         ','||
         s.serial# ||
         ''';'
from v$lock l,
  v$lock d,
  v$session s,
  v$session b,
  v$process p,
  v$transaction t,
  sys.dba_objects o,
  v$open_cursor c
where l.sid = s.sid
  and o.object_id (+) = l.id1
  and c.hash_value (+) = s.sql_hash_value
  and c.address (+) = s.sql_address
  and s.paddr = p.addr
  and d.kaddr (+) = s.lockwait
  and d.id2 = t.xidsqn (+)
  and b.taddr (+) = t.addr
  and l.type = 'TM';

[LeoAnderson]

L'exemple donné permet de verrouiller explicitement l'enregistrement AVANT d'effectuer la mise à jour.
En effet, en temps normal, le verrou n'est posé qu'entre le moment de l'update (t1) et le moment de fin de transaction (i.e. commit ou rollback) (t2).

Pour éviter de se retrouver en attente de fin de transaction, vous pouvez, avant d'effectuer l'update, vous assuré qu'il est libre de tout verrou en posant un verrou sans pour autant modifier l'enregistrement.

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
 
BEGIN
   ... /* début de la procédure */
   /* On doit mettre à jour la ligne de la table MATABLE dont le NUM = 10
   BEGIN
      SELECT * FROM MATABLE WHERE Num= 10 FOR UPDATE NOWAIT;
      /* à partir de maintenant, la ligne est verrouillée */
 
      ...
 
      UPDATE MATABLE
           SET ...
        WHERE Num = 10;
 
      ...
 
 
     COMMIT;
      /* Il faut obligatoirement libérer l'enregistrement */
   EXCEPTIONS
    WHEN OTHERS THEN
       IF SQLCode  = 54 THEN
         /* L'enregistrement était déjà verrouillé*/
          ...
       END IF;
   END;

[orafrance]

Voila une lien intéressant : http://asktom.oracle.com/pls/ask/f?p=4950:8:5915454283198116693::NO::F4950_P8_DISPLAYID,F4950_P8_CRITERIA:4515126525609

Le but étant d'essayer de réserver 3 fois l'enregistrement qu'on souhaite mettre à jour et de retourner une erreur si une exception de lock se déclenche.

Voila une fonction que tu peux adapter qui retourne FALSE si la ligne p_id est réservée dans matable :

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
CREATE OR REPLACE FUNCTION check_id (p_id INTEGER) RETURN BOOLEAN AS
    resource_busy   EXCEPTION;
    PRAGMA EXCEPTION_INIT( resource_busy, -54 );
    success BOOLEAN := False;
    dummy matable%ROWTYPE;
BEGIN
 
  SELECT id, col2
    INTO dummy
    FROM matable 
   WHERE id = p_id 
   FOR UPDATE NOWAIT;
 
  RETURN TRUE;
 
  EXCEPTION 
    WHEN resource_busy then
      RETURN FALSE;
END;
/

[tscoops]

Merci à vous tous pour votre aide.

Mon problème est en effet résolu.

Merci.