Discussion :

[tony le chicon]

Ma procedure stockée (Mysql 5)

PROCEDURE `TEST`()
BEGIN
SELECT * FROM TABLE;
END$$

--- Perl ---
$sth = $dbh->prepare("CALL TEST()");
$sth->execute;

>> Message d'erreur à l'éxecution : PROCEDURE TEST can't return a result set in the given context...

Je ne comprend pas car un $dbh->prepare("SELECT * FROM TABLE"); marche, et l'utilisation de procedure stockée de type INSERT ou DELETE (pas de retour) fonctionne correctement.

[Lapince]

Voilà par exemple ce que j'ai fait.

J'utilise un PC sous Windows 98 ou XP, Perl 5.6, DBI, DBD:Oracle. Les bases accédées sont Oracle mais cela doit être du même tonneau que toi parce que nous passons par DBI.
L'objectif est de décoder des adresses pour qu'elles soient lisibles par le facteur.
La procédure stockée et une méthode d'appel avec paramètres s'appelle: e01c013.ligne_six
A l'ouverture de la base, je prépare pour le passage des paramètres.

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
 
$f_ligne_six_4 =  $dbh2->prepare(q{
                                            BEGIN
                                                e01c013.ligne_six
                                                (
                                                    :v_dir,
                                                    :v_com,
                                                    :v_voie,
                                                    :v_numvoie,
                                                    :v_ligne6,
                                                    :code_retour
                                                );
                                            END;
                                        }
                                )|| die qq{Preparation appel 'ligne_six' impossible: $dbh2->errstr\n};

Pour récupérer un enregistrement de la base, je stocke dans une table hash via une référence :

Code :

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

1
2
 
my $adretb_ref;                     # référence sur un enregistrement adresse

Dans l'itération de recherche, le lie les paramètres et j'execute:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
eval {
                $f_ligne_six_4->bind_param(":v_dir",$adretb_ref->{DIR});
                $f_ligne_six_4->bind_param(":v_com",$adretb_ref->{COM});
                $f_ligne_six_4->bind_param(":v_voie",$adretb_ref->{VOIE});
                $f_ligne_six_4->bind_param(":v_numvoie",$adretb_ref->{NUMVOIE});
                $f_ligne_six_4->bind_param_inout(":v_ligne6",\$ligne6, 40);
                $f_ligne_six_4->bind_param_inout(":code_retour",\$coderetourTOPAD,4);
                $code_retour_package_e01c013 = $f_ligne_six_4->execute;
             };

Et j'ai récupéré ainsi mes données dans $ligne6.