PL/SQL Positions de curseurs

Version imprimable

Bonjour, j'ai un petit soucis; non pas dû à un problème algorithmique mais plutôt au fait que je ne vois pas comment représenter ce que je dois faire...

Voici la structure de mon code actuel

Comme vous pouvez le voir je commence par saisir un identifiant; cet identifiant va me servir à accéder à plusieurs tables via des curseurs.
Jusque là pas de problème.

J'accède donc avec mon c2 à la position x et y d'une borne.

Le soucis apparaît à ce moment là. Pour mon traitement j'ai besoin du x et y de ma borne courante de curseur; mais j'ai également besoin de la suivante. Afin de faire des calculs de longueurs notamment.

Donc au final je dois pouvoir accéder à la borne courante comme je le fais mais aussi à sa suivante. Hors là je bloque.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Accept idParc prompt 'Identifiant Parcelle:'; BEGIN for c1_ligne in(select IdBorne from Sommet where IdParcelle='&idParc' order by 1) loop --borne for c2_ligne in(select X,Y from Borne where IdBorne=c1_ligne.IdBorne) loop --limite borne end loop; end loop; END; /
Merci pour votre aide.

16/02/2015, 15h45
punkoff

bonjour,

Et pourquoi ne passez-vous pas par des jointures ?
16/02/2015, 16h18
Amnael

Merci.

Mon énoncé me force à utiliser les notions que je vois pour le moment en cours; s'il est vrai que je pourrais surement faire des jointures; on m'oblige à passer par la solution des curseurs puis à faire un enregistrement dans un tableau.

Cela dit je pense que même en passant par des jointures j'en serais bloqué au même point.
16/02/2015, 16h58
mnitu

Si pour appliquer votre algorithme vous avez besoin de l'identifiant d'une borne et de l'identifiant de la borne suivante (comme est-elle définie la borne suivante ?) alors qu'il soit ainsi! Commencez donc avec la lecture des identifiants que vous besoin pour appliquer votre algorithme: l'identifiant d'une borne et de la suivante.
16/02/2015, 17h17
Amnael

Merci pour votre réponse.

Effectivement c'est la solution que je recherche^^

Le problème c'est que je ne sais pas comment je peux lire la position suivante de mon curseur justement.

Là je le parcours juste automatiquement dans ma boucle for.

Commencez par définir "suivante". N'hésitez pas à poster un jeu d'essai.

Niveau algorithme:
Code:

1 2 3 4 5 6 7 Pour chaque borne retourne par l'identifiant de la parcelle lecture de la borne "suivante" Si la borne suivante existe ... ... traitement de la borne et de la borne suivante Fin Si Fin Pour
Alternativement vous pouvez commencer l'algorithme avec les deux bornes
Code:

1 2 3 Pour chaque tuple borne et borne suivante ... Fin Pour

16/02/2015, 17h43
McM
Tout dépend de ce qu'il faut faire, généralement quand je veux vérifier 2 enregistrements qui se suivent par curseur (php ou parfois oracle), je traite dans le second enregistrement (après avoir sauvegardé les infos précédemment)
exemple
Code:

1 2 3 4 5 6 7 boucle si variable renseignée (donc = enreg précédent) alors calcul entre index actuel et variable finsi affectation variable = index actuel. fin boucle

J'ai légèrement modifié ma façon de faire...à présent j'ai un code qui s'exécute; mais je n'obtiens toujours pas ce que je recherche.
Peut être saurez vous capable de m'indiquer ce qu'il ne vas pas.

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
26
27
28
29
30
31
32
33
34
35
 
set serveroutput on;
 
 
Accept idParc prompt 'Identifiant Parcelle:';
 
 
DECLARE
 
idB1 VARCHAR(5);
posX1 INTEGER;
posY1 INTEGER;
idB2 VARCHAR(5);
posX2 INTEGER;
posY2 INTEGER;
k INTEGER:=0;
init VARCHAR(5) := '';
cursor c2_ligne is (select * from Borne where IdBorne=init);
 
BEGIN
 
	for c1_ligne in(select IdBorne from Sommet where IdParcelle='&idParc' order by 1) loop --borne
		--for c2_ligne in(select * from Borne where IdBorne=c1_ligne.IdBorne) loop limite borne
		init:=c1_ligne.IdBorne;
		if(k=0) then
			open c2_ligne;
			k:=k+1;
		end if;
		  	FETCH c2_ligne INTO idB1,posX1,posY1;
 			 DBMS_OUTPUT.PUT_LINE('Borne courante'|| idB1 || 'Position X' || posX2 || 'Position Y' || posY2);
 			 FETCH c2_ligne INTO idB2,posX2,posY2;
 			 DBMS_OUTPUT.PUT_LINE('Borne suivante'|| idB2 || 'Position X' || posX2 || 'Position Y' || posY2);
	end loop;
END;
/

Le premier for tourne bien le nombre de fois qu'il faut; mais les curseurs ne me retournent pas ce que je veux.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Accept idParc prompt 'Identifiant Parcelle:';
 
 
BEGIN
	for c1_ligne in(select IdBorne from Sommet where IdParcelle='&idParc' order by 1) loop --borne
		for c2_ligne in(select X,Y from Borne where IdBorne=c1_ligne.IdBorne) loop --limite borne
 
		end loop;
	end loop;
END;
/

Il est possible de récupérer sur une ligne les valeurs courantes et les suivantes selon le Order by avec la fonction LEAD()

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
26
27
 
Accept idParc prompt 'Identifiant Parcelle:';
 
 
BEGIN
  FOR c1_ligne IN
  (SELECT IdBorne,
    lead(IdBorne) over(partition BY IdParcelle order by IdBorne) IdBorneSuiv
  FROM Sommet
  WHERE IdParcelle='&idParc'
  ORDER BY 1
  )
  LOOP --borne
    FOR c2_ligne IN
    (SELECT X,
      lead(X) over(partition BY IdBorne order by IdBorne) X_BorneSuiv,
      Y,
      lead(Y) over(partition BY IdBorne order by IdBorne) Y_BorneSuiv
    FROM Borne
    WHERE c1_ligne.IdBorne IN (c1_ligne.IdBorne,c1_ligne.IdBorneSuiv)
    ORDER BY IdBorne
    )
    LOOP --limite borne
    END LOOP;
  END LOOP;
END;
/