[RESOLU][SQL SERVER] Problème de curseur

Problème de curseur [RESOLU][SQL SERVER] - SQL/NoSQL - Programmation

Marsh Posté le 15-05-2006 à 17:25:06    

Bonsoir, je sollicite la communauté SQL / SERVER afin de m'aider sur un problème que je ne comprends pas. Cela fait bien 10h que je cherche l'erreur et je ne trouve pas.
J'effectue un curseur qui s'exécute deux fois, et la troisième fois, il ne veut plus ...
 
Voici le code :

Code :
  1. CREATE  PROCEDURE CALCUL_INTEGRALE_VERTICALE
  2.    @jaug_id int
  3. AS
  4. DECLARE @ord MES_COORD,
  5.         @prof MES_COORD,
  6.         @id int,
  7.         @aire_totale float,
  8.         @V_Temp MES_COORD,
  9.         @Prof1 MES_COORD,
  10.         @vitesse float
  11.        
  12. -- // liste de verticales
  13. DECLARE C_verticale CURSOR
  14. FOR
  15.    SELECT DISTINCT mes_abcisse
  16.    FROM MESURE
  17.    WHERE jaug_id = @jaug_id
  18.    ORDER BY mes_abcisse
  21.   -- // RAZ de la table firstintegrale
  22.   DELETE FROM firstintegrale
  24.  
  25.    -- // Premier chargement
  26.    OPEN C_verticale
  28.    FETCH C_verticale INTO @ord
  31.    WHILE @@fetch_Status = 0
  32.       BEGIN
  33.        
  34. SET @aire_totale = 0
  35. -- //création de la liste de chaque point de mesure pour une abcisse
  36. DECLARE C_point CURSOR
  37. FOR
  38.     SELECT mes_id, mes_ordonnee, mes_vitesse
  39.             FROM MESURE
  40.             WHERE jaug_id = @jaug_id
  41.             AND mes_abcisse = @ord
  42.  ORDER BY mes_ordonnee
  43. BEGIN
  45.           -- //premier chargement de points
  46.           OPEN C_point
  47.           FETCH C_point INTO @id, @prof, @vitesse
  50.           SET @V_Temp = @vitesse
  51.           SET @Prof1 = @prof
  52.          
  53.           WHILE @@fetch_Status = 0
  54.             BEGIN
  55.                FETCH C_point INTO @id, @prof, @vitesse
  57.                SET @aire_totale = @aire_totale + (((@prof - @Prof1) * @V_Temp) + (((@prof - @Prof1) * (@vitesse - @V_Temp)) * 0.5)) * 0.01
  58.             
  59.                SET @V_Temp = @vitesse
  60.                SET @Prof1 = @prof       
  61.             END     
  62.            
  63.           -- //ajout de résultat
  64.           INSERT INTO firstintegrale VALUES(@ord, @aire_totale)
  65.          
  66. PRINT 'BOB ' + CONVERT(char, @ord)
  68.           CLOSE C_point
  69.           DEALLOCATE C_point 
  71.          -- // Prochaine abcisse
  72.         FETCH C_verticale INTO @ord
  73.       END
  74.      
  75.     CLOSE C_verticale
  76.     DEALLOCATE C_verticale
  78. END
  80. GO


 
Voici l'erreur (extrait de Analyseur de requete) :

Code :
  1. (2 ligne(s) affectée(s))
  4. (1 ligne(s) affectée(s))
  6. BOB 18                           
  8. (1 ligne(s) affectée(s))
  10. BOB 38                           
  11. Serveur : Msg 16916, Niveau  16, État 1, Procédure CALCUL_INTEGRALE_VERTICALE, Ligne 73
  12. Un curseur nommé 'C_verticale' n'existe pas.
  13. Serveur : Msg 16916, Niveau  16, État 1, Procédure CALCUL_INTEGRALE_VERTICALE, Ligne 76
  14. Un curseur nommé 'C_verticale' n'existe pas.
  15. Serveur : Msg 16916, Niveau  16, État 1, Procédure CALCUL_INTEGRALE_VERTICALE, Ligne 77
  16. Un curseur nommé 'C_verticale' n'existe pas.


 
Le schéma de la table est :

Code :
  1. CREATE TABLE [MESURE] (
  2. [MES_ABCISSE] [MES_COORD] NULL ,
  3. [MES_ORDONNEE] [MES_COORD] NULL ,
  4. [MES_VALEUR] [numeric](18, 0) NULL ,
  5. [MES_TEMP_PRISE] [numeric](18, 0) NULL ,
  6. [MES_FOND] [bit] NULL ,
  7. [MES_ID] [int] IDENTITY (1, 1) NOT NULL ,
  8. [HEL_ID] [char] (7) COLLATE French_CI_AS NOT NULL ,
  9. [JAUG_ID] [int] NOT NULL ,
  10. [MES_VITESSE] [numeric](4, 1) NULL ,
  11. CONSTRAINT [PK_MESURE] PRIMARY KEY  CLUSTERED
  12. (
  13.  [MES_ID]
  14. )  ON [PRIMARY] ,
  15. CONSTRAINT [FK_MESURE_ETRE_PRIS_HELICE] FOREIGN KEY
  16. (
  17.  [HEL_ID]
  18. ) REFERENCES [HELICE] (
  19.  [HEL_ID]
  20. ),
  21. CONSTRAINT [FK_MESURE_JEAUGEAGE] FOREIGN KEY
  22. (
  23.  [JAUG_ID]
  24. ) REFERENCES [JEAUGEAGE] (
  25.  [JAUG_ID]
  26. )
  27. ) ON [PRIMARY]
  28. GO


 
Voici un petit DUMP de la table avec quelques données :
 

Code :
  1. 18,450,,100,,3,"1-15620",1,2.6
  2. 18,300,10,100,,4,"1-15620",1,2.6
  3. 18,150,10,100,,5,"1-15620",1,2.6
  4. 18,60,10,100,,6,"1-15620",1,2.6
  5. 18,10,10,100,,7,"1-15620",1,2.6
  6. 18,0,43,0,,8,"1-15620",1,.0
  7. 38,700,0,0,True,9,"1-15620",1,.0
  8. 38,680,46,100,,10,"1-15620",1,8.2
  9. 38,600,54,100,,11,"1-15620",1,8.4
  10. 38,400,86,100,,12,"1-15620",1,10.4
  11. 38,200,90,100,,13,"1-15620",1,11.1
  12. 38,60,102,100,,14,"1-15620",1,12.0
  13. 38,10,98,100,,15,"1-15620",1,11.4
  14. 38,0,0,0,,16,"1-15620",1,.0
  15. 45,600,10,100,,17,"1-15620",1,2.6
  16. 18,500,10,20,,37,"1-15620",1,2.6
  17. 18,500,10,20,,38,"1-15620",1,2.6
  18. 18,300,10,100,,39,"1-15620",1,2.6
  19. 45,200,10,20,,40,"1-15620",1,2.6
  20. 45,200,10,20,,41,"1-15620",1,2.6
  21. 45,150,10,20,,43,"1-15620",1,2.6
  22. 18,450,20,10,,50,"1-15620",1,5.2
  23. 18,450,,,,51,"1-15620",1,
  24. 18,450,,,,52,"1-15620",1,
  25. 18,450,,,,53,"1-15620",1,
  26. 18,450,,,,54,"1-15620",1,


Message édité par CORBASE le 16-05-2006 à 17:43:21
Reply

Marsh Posté le 15-05-2006 à 17:25:06   

Reply

Marsh Posté le 16-05-2006 à 17:42:40    

Bon, problème résolu :
 

Code :
  1. CREATE    PROCEDURE CALCUL_INTEGRALE_VERTICALE
  2.    @jaug_id int
  3. AS
  4. DECLARE @ord MES_COORD,
  5.         @prof MES_COORD,
  6.         @id int,
  7.         @aire_totale float,
  8.         @V_Temp MES_COORD,
  9.         @Prof1 MES_COORD,
  10.         @vitesse float,
  11. @const_fond int,
  12. @echelle int
  13.        
  14. -- // liste de verticales
  15. DECLARE C_verticale CURSOR
  16. FOR
  17.    SELECT DISTINCT mes_abcisse
  18.    FROM MESURE
  19.    WHERE jaug_id = @jaug_id
  20.    ORDER BY mes_abcisse
  23.   -- // RAZ de la table firstintegrale
  24.   DELETE FROM firstintegrale
  26.  
  27.    -- // Premier chargement
  28.    OPEN C_verticale
  29.    SET @aire_totale = 0
  30.    SET @echelle = (SELECT hauteur_echelle FROM JEAUGEAGE WHERE jaug_id = @jaug_id)
  31.    SET @const_fond = (SELECT jaug_ctefond FROM JEAUGEAGE WHERE jaug_id = @jaug_id)
  33.    FETCH C_verticale INTO @ord
  35.  
  36.    WHILE @@fetch_Status = 0
  37.       BEGIN
  38.        
  40. -- //création de la liste de chaque point de mesure pour une abcisse
  41. DECLARE C_point CURSOR
  42. FOR
  43.     SELECT mes_id, mes_ordonnee, mes_vitesse
  44.             FROM MESURE
  45.             WHERE jaug_id = @jaug_id
  46.             AND mes_abcisse = @ord
  47.  ORDER BY mes_ordonnee
  48. BEGIN
  50.           -- //premier chargement de points
  51.           OPEN C_point
  52.           FETCH C_point INTO @id, @prof, @vitesse
  53.   -- // Calcul du premier tirangle d'aire de la lame
  54.   SET @aire_totale = @aire_totale + ((@vitesse * (@prof - @echelle)) * 0.5)
  56.           SET @V_Temp = @vitesse
  57.           SET @Prof1 = @prof
  58.          
  59.           WHILE @@fetch_Status = 0
  60.             BEGIN
  61.                FETCH C_point INTO @id, @prof, @vitesse
  63.                SET @aire_totale = @aire_totale + (((@prof - @Prof1) * @V_Temp) + (((@prof - @Prof1) * (@vitesse - @V_Temp)) * 0.5)) * 0.01
  64.             
  65.                SET @V_Temp = @vitesse
  66.                SET @Prof1 = @prof       
  67.             END     
  68.           -- // calcul de la fin de l'integrale
  69.   SET @aire_totale = @aire_totale + ((@V_Temp * @const_fond) * 0.5)
  70.           -- //ajout de résultat
  71.           INSERT INTO firstintegrale VALUES(@ord, @aire_totale)
  72.           CLOSE C_point
  73.           DEALLOCATE C_point 
  75.          -- // Prochaine abcisse
  76.         FETCH C_verticale INTO @ord
  77.       END
  78. END
  79.     CLOSE C_verticale
  80.     DEALLOCATE C_verticale
  84. GO


 
C'etait le close et le desallocate qui n'etait pas à la bonne place ...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed