Discussion :

[natie_49]

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!!

[djibril]

Code :

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

  my $dbconnect = DBI -> connect ("dbi:mysql:dbname=OffreWeb;host=127.0.0.1;",$DB_USER, $DB_PASSWD) or die "connection impossible!";

c'est mieux

de plus, il te manque

Code :

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

$dbexe-> execute() || die "pb de selection : $DBI::errstr";

Et une fois de plus, regarde la FAQ, il y a un exemple simple d'ecrire de script DBI pour faire un select

[natie_49]

J'avais essayer execute mais j'ai pas droit à l'erreur : can't call method "execute"

[natie_49]

C 'est bon j'ai trouvé c'était $sth-> execute() qu'il fallait mettre!!
Merci de m'avoir mis sur la bonne piste!!

[djibril]

oubli pas le tag resolu