[sgbd] Probleme DBI, procedure stockée de type "SELECT"

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:

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:

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:

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.