DBI::db fetchrow_ introuvable

Version imprimable

11/05/2007, 17h08
hsbzh

DBI::db fetchrow_ introuvable
Bonjour, je commence à développer un script en perl et lorsque je veux récupérer les résultats stockés dans MySQL par la fonction :
Code:

1 2 3 4 5 while ( $hash_ref = $dbh->fetchrow_hashref ){ $last_in_bits = $hash_ref->{IN}; $last_out_bits = $hash_ref->{OUT}; }
il me retourne cette erreur :
Code:

1 2 Can't locate object method "fetchrow_hashref" via package "DBI::db"
Cependant le module DBI a bien été installé, c'est le dernier en date et je me demande donc si il y aurait une explication à tout celà... merci =)
11/05/2007, 18h23
Jedai

Il nous manque des éléments pour répondre. Cependant je dirait que $dbh n'est pas un objet "statement handle" (requête), ce qui signifie qu'il n'a pas la méthode fetchrow_hashref(). Tu devrais nous donner le début de ton script et en particulier la façon dont tu as construit $dbh pour que nous t'en disions plus.

--
Jedaï

voilà la partie complète en relation avec MySQL :

Code:

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
 
my $dbh = DBI->connect(    "DBI:mysql:database=oreon_storage;host=localhost", 
                           "root", 
                           "",
                           {'RaiseError' => 1}
                       );
my $sql_query = "INSERT INTO bits VALUES('','".abs($in_bits)."','".abs($out_bits)."');";
my $sth = $dbh->do($sql_query);
my $id = $dbh->{'mysql_insertid'};
$id--;
if (!defined($sth)){
	print "MySQL Error";
	exit($ERRORS{"UNKNOWN"});
}
 
#############################################
#####          Get trafic Day - 1
##
 
my $hash_ref;
if ( defined($id) && $id > 0 ){
	$sql_query = "SELECT * FROM bits WHERE `id` = '".$id."';";
	$sth = $dbh->do($sql_query);
	while ( $hash_ref = $dbh->fetchrow_hashref ){
		$last_in_bits = $hash_ref->{IN};
		$last_out_bits = $hash_ref->{OUT};
	}
}
 
my $rc = $dbh->disconnect;

11/05/2007, 20h55
Jedai

Tu as écris $dbh alors que tu voulais écrire $sth.

--
Jedaï

Le problème c'est que lorsque j'écris
Code:

1 2 $hash_ref = $sth->fetchrow_hashref
j'ai en retour :
Code:

1 2 Can't call method "fetchrow_hashref" without a package or object reference at

do() est une méthode qui permet d'exécuter une requête SQL et de retourner le nombre de lignes affectées, typiquement on l'utilise pour des insert, update... Mais jamais pour des select. Ce que tu veux faire c'est sans doute :
Code:

1 2 3 4 5 6 7 8 9 if ( defined($id) && $id > 0 ){ $sql_query = "SELECT * FROM bits WHERE `id` = ? ;"; $sth = $dbh->prepare($sql_query); $sth->execute( $id ); while ( my $hash_ref = $sth->fetchrow_hashref ){ $last_in_bits = $hash_ref->{IN}; $last_out_bits = $hash_ref->{OUT}; } }
--
Jedaï

11/05/2007, 21h53
hsbzh
ouep ça marche oO :yaisse2:

mais tant qu'à utiliser le execute j'aurais fait un
Code:

1 2 $sth = $dbh->execute($sql_query);
ce qui prouve que je n'ai pas encore tout à fait compris comment ça fonctionne...
En tout cas merci :king: