[MySQL] requete SELECT retournant une seule ligne
Bien le bonjour ,
tout d'abord j'utilise Perl sur WindowsXP, via ActivePerl 5.10.0 Build 1004.
J'ai installé les modules NET::MySQL et DBD::mysqlPP.
voici mon problème qui me semble vraiment louche:
Lorsque j'exécute une requête me retournant un seul résultat(une seule ligne et une seul colonne), le script se bloque(je le lance dans cmd).
voici le code :
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
31
32
33
34
35
36
37
38
|
#!C:\\Perl\\bin\\perl -w
use strict;
use warnings;
# PERL MODULES WE WILL BE USING
use DBI;
use DBD::mysqlPP;
# CONFIG VARIABLES
my $platform = "mysqlPP";
my $database = "abcd";
my $host = "192.168.1.2";
my $port = "3306";
my $user = "abcd";
my $pw = "abcd";
# DATA SOURCE NAME
my $dsn = "dbi:$platform:$database:$host:$port";
# PERL DBI CONNECT
my $connect = DBI->connect($dsn, $user, $pw);
# PREPARE THE QUERY
my $query = "SELECT MAX(`champs2`) FROM Table1 WHERE `champs1` = 'pwet'";
my $query_handle = $connect->prepare($query);
# EXECUTE THE QUERY
$query_handle->execute();
# BIND TABLE COLUMNS TO VARIABLES
$query_handle->bind_columns(\my $LBR);
# LOOP THROUGH RESULTS
while($query_handle->fetch()){
print $LBR;
} |
Si vous pouviez m'aider, ce serait super sympa :) merci d'avance !
