Discussion :

[viking1404]

Bonjour,

je voudrais effectuer une requête SQLite avec des données saisie depuis une interface graphique ne Tk.

Quand j'entre cette commande dans la console j'obtiens le bon résultat mais, depuis mon programme en perl je n'obtiens pas ce que je veux.

Voici ma requete SQL :

Code :

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

1
2
3
4
 
sqlite> SELECT quantitee FROM vins WHERE libelle='Leoville' AND millesime='1989' AND couleur='rouge';
50
sqlite>

Voici mon code perl :

Code :

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

1
2
3
4
5
6
7
8
9
 
print "libelle=$_[1] AND millesime=$_[2] AND couleur=$_[3]\n";
	my $RequeteSQL = <<"SQL";
		SELECT quantitee FROM vins
		WHERE libelle='$_[1]' AND millesime='$_[2]' AND couleur='$_[3]'
SQL
	my $select = $connect->prepare($RequeteSQL);
	$select->execute() || die "\nechec de la requete\n";
	print "le resultat est : ", $select->rows , "\n";

Et voici le resultat du programme :

Code :

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

1
2
3
 
libelle=Leoville AND millesime=1989 AND couleur=rouge
le resultat est : 0

je devrais obtenir 50 mais j'obtiens 0. Je ne comprend vraiment pas pourquoi. J'ai supposé une erreur au niveau des quotes pour les variables mais je n'y crois pas trop.
Est-il possible qu'il y ai un problème de casse ?

[thierry.chich]

Pour debugger, il vaudrait mieux imprimer la valeur de $RequeteSQL.

Mais bon, il n'y a rien d'évident.
Même un effet de bord sur le @_ parait improbable.
Peut-être les tabulations ajoutées dans la requête ?

[Invité]

Salut,

rows
$rv = $h->rows;
or
$rv = $DBI::rows



This returns the number of rows effected by previous SQL statement and equivalent to $DBI::rows.

Tu ne récupères donc pas le résultat de ta requête avec la méthode rows

Je t'invite à regarder ce lien pour pouvoir récupérer le résultat d'une requête:

http://www.tutorialspoint.com/perl/perl_database.htm

[viking1404]

Tu as raison Mygale1978. En suivant l'exemple de récupération de données dans le lien que tu as donnée, ça fonctionne.

Voici un code qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
print "libelle=$_[1] AND millesime=$_[2] AND couleur=$_[3]\n";
	my $RequeteSQL = <<"SQL";
		SELECT quantitee FROM vins
		WHERE libelle='$_[1]' AND millesime='$_[2]' AND couleur='$_[3]'
SQL
	my $select = $connect->prepare($RequeteSQL);
	$select->execute() || die "\n\nEchec requete : \n$RequeteDepCheflieu";
	$select->rows;
	while (my @row = $select->fetchrow_array()) {
	my ($resultat) = @row;
	print "le resultat est  : $test\n";

Et là j'obtiens bien 50 comme prévu ^^