Bonjour,
Je suis débutante en perl et je veux récupérer les valeurs de ma table adminnistrateur mais j'obtiens toujours cette erreur : Can't call method "fetchrow_array".

Voici mon code :
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
 
#!C:/Perl/bin/Perl.exe
use CGI;
use DBI;
 
my $DB_DSN = "DBI:mysql:OffreWeb:127.0.0.1";
my $DB_USER = "root";
my $DB_PASSWD = "";
 
my $dbconnect = DBI->connect($DB_DSN, $DB_USER, $DB_PASSWD) or die "Connexion à la base impossible: " . DBI->errstr;
 
my $sth = $dbconnect->prepare(qq{SELECT LoginAdmin FROM administrateur})  or die "Préparation de la requête impossible: " . $dbconnect->errstr;
 
$dbexe = do($sth);
while ($data = $dbexe->fetchrow_array())
    {
    print $data, "\n"; 
    }
if ($dbexe->rows == 0)
    {
    print "pas de résultats.\n\n";
    }
  $dbexe->finish;
 
 
$dbconnect->disconnect();
Merci d'avance de m'aider!!