Discussion :

[devalender]

Bonjour à tous

J'ai depuis ce matin fait un tour dans le PLSQL de mysql, Voici ce que j'ai tenté de faire :
1- Sélection d'un certain de nombre de codecompte dans ma table moncompte
2- Pour chaque codecompte faire un certain traitement.

Donc pour la partie 1: Pour avoir la liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
DELIMITER $$
CREATE PROCEDURE `CONTROLE_GROUP_COMPTE`(IN `LibExercice` VARCHAR(20), OUT `LibCompte` VARCHAR(20))
BEGIN
    SELECT MONCOMPTE.CODECOMPTE INTO LibCompte
    FROM MONCOMPTE
    WHERE (MONCOMPTE.CODECOMPTE NOT LIKE '%/%') 
    AND (MONCOMPTE.BUGENCOURS ='Prise') 
    AND (MONCOMPTE.NATURECOMPTE = 'Depenses') 
    AND (MONCOMPTE.TITRECOMPTE = 'Rouge') 
    AND (MONCOMPTE.EXERCICECOMPTE = LibExercice);                               
END$$
DELIMITER ;

Mais a cet stade voici l'erreur que j'ai :

MySql a répondu :#1172 - Le résultat contient plus d'un enregistrement

c'est normal qu'il y ai plusieurs enregistrement ! Donc je pense que je dois faire une boucle, mais je sais pas comment faire avec le PLSQL de Mysql.

Merci de m'aider !

[devalender]

Au niveau de FIREBIRD on a la syntaxe suivante :

Code :

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

1
2
3
4
5
6
7
8
9
 
FOR SELECT .......//ce code ici permet de parcourir plusieurs lignes
            FROM ......
            WHERE ........
            INTO :......
            DO
          BEGIN
        /*traitement*/
         END

c'est cette syntaxe que je veux reproduire au niveau de Mysql !

Merci

[devalender]

Je viens d'essaiyer ce code mais toujours une erreur de syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
BEGIN
    FOR SELECT MONCOMPTE.CODECOMPTE INTO LibCompte 
    FROM MONCOMPTE
    WHERE (MONCOMPTE.CODECOMPTE NOT LIKE '%/%') 
    AND (MONCOMPTE.BUGENCOURS ='Prise') 
    AND (MONCOMPTE.NATURECOMPTE = 'Depenses') 
    AND (MONCOMPTE.TITRECOMPTE = 'Rouge') 
    AND (MONCOMPTE.EXERCICECOMPTE = LibExercice)  
    DO 
/*traitement*/                            
    END FOR;
END

[devalender]

Bonjour
@Artemus24, tu pourrai m'aider sur ce coup ? je suis coincé la !
Merci à tous

[Artemus24]

Salut devalender.

Autre environnement, autre façon de raisonner.
En MySql, on utilise le "cursor" pour extraire les lignes dont on a besoin, puis par un "fetch", lire chaque ligne une par une.

Voici un exemple d'un script source :

Code mysql :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
START TRANSACTION;
 
-- ======================
-- Base de Données `base`
-- ======================
 
DROP DATABASE IF EXISTS `base`;
 
CREATE DATABASE `base`
        DEFAULT CHARACTER SET `latin1`
        DEFAULT COLLATE       `latin1_general_ci`;
 
use `base`;
 
-- ==================
-- Procedure `verify`
-- ==================
 
DROP PROCEDURE IF EXISTS `verify`;
 
DELIMITER $$
CREATE PROCEDURE `verify` (  in_database   varchar(255))
DETERMINISTIC
NO SQL
BEGIN
  DECLARE _tab   VARCHAR(255);
  DECLARE _col   VARCHAR(255);
  DECLARE _line  VARCHAR(255);
  DECLARE _fin   INTEGER  DEFAULT 1;
 
  DECLARE _curs  CURSOR FOR SELECT table_name, column_name from information_schema.columns
                 where table_schema = in_database and data_type in ('char','varchar','text','mediumtext','longtext');
 
  DECLARE CONTINUE HANDLER FOR NOT FOUND SET _fin = 0;
 
  OPEN  _curs;
  FETCH _curs INTO _tab, _col;
 
  WHILE (_fin)
  DO
    SET _line = concat('select ', _col, ' from ', in_database, '.', _tab, ' where locate(\'alphabetic\', ', _col, ') <> 0;');
 
    SELECT _line as Requête;
 
    SET @req  = _line;
    PREPARE            stmt FROM @req;
    EXECUTE            stmt;
    DEALLOCATE PREPARE stmt;
 
    FETCH _curs INTO _tab, _col;
  END WHILE;
 
  CLOSE _curs;
END$$
DELIMITER ;
 
-- =====================
-- Exécuter la procédure
-- =====================
 
call `verify` ('mysql');
 
-- ===
-- Fin
-- ===
 
COMMIT;
EXIT

Je pense que cet exemple est assez complet.
Dans le "cursor", tu vas mettre ton select.
Juste après le "do", tu vas introduire ce que tu désires faire pour une ligne donnée.
Je suppose qu'il y aura des tests au préalable.

Ici dans mon exemple, c'est une mise en forme, dont le but est de rechercher la présence de la chaîne de caractères "alphabetic" dans une colonne de type chaîne de caractères.

J'exécute ce select dynamiquement, puis à fin de boucle, je lis (fetch) la ligne suivante.

@+

[devalender]

Bonjour
Merci beaucoup je brasse tout ça et je vous fais un retour !

[devalender]

Voici la requête modifiée a partir de la tienne :

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
27
28
29
30
31
32
33
34
 
DELIMITER $$
CREATE PROCEDURE `CONTROLE_GROUP_COMPTE` ( IN `LibExercice` varchar(255), OUT `LibCompte` VARCHAR(255))
DETERMINISTIC
NO SQL
BEGIN
 
DECLARE _fin   INTEGER  DEFAULT 1;
 
DECLARE _curs CURSOR 
FOR SELECT MONCOMPTE.CODECOMPTE
FROM MONCOMPTE
WHERE (MONCOMPTE.CODECOMPTE NOT LIKE '%/%') 
AND (MONCOMPTE.BUGENCOURS ='Prise') 
AND (MONCOMPTE.NATURECOMPTE = 'Depenses') 
AND (MONCOMPTE.TITRECOMPTE = 'Rouge') 
AND (MONCOMPTE.EXERCICECOMPTE = LibExercice);
 
DECLARE CONTINUE HANDLER FOR NOT FOUND SET _fin = 0;
 
OPEN  _curs;
FETCH _curs INTO LibCompte;
 
WHILE (_fin)
DO
/*Mon traitement*/
/*Affiche tous les LibCompte*/  
 
FETCH _curs INTO LibCompte;
END WHILE;
 
CLOSE _curs;
END$$
DELIMITER ;

Au niveau de la compilation parfait, pas d'erreur, mais à l'exécution par contre j'ai un soucis ! je croyais voir afficher la liste de tous les MONCOMPTE.CODECOMPTE
mais dans mon cas je n'ai qu'une seule valeur affichée (la dernière peut être), ai-je rater un truc ?

Merci

[devalender]

Je pense avoir trouver il manquait le Select dans la boucle.
Merci Artemus24