Ver Tema - Consulta mysql con variables individuales

Gonzalojimenezroldan · 2008-09-23 10:17 @470

Buenos días, podrían ayudarme, la consulta no me trae datos.
La consulta es la siguiente:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use strict;

use DBI;

my $identif = " ";

my $nombre = " ";

my $pruser = "GJR";

my $dbuser = "maest_gonzalo";

my $dbpass = "gjr";

my $dbhost = "localhost";

my $dbname = "maest_ME3REGIS";

my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost",$dbuser,$dbpass)|| die('No se puede conectar a la base de datos...');

my $query = $dbh->prepare( "SELECT nombre,identif FROM ME3REG WHERE identif = '$pruser'" );

$query->bind_columns(\$nombre, \$identif);

$query->execute();

while( $query->fetch() ) {

       print "$nombre   $identif\n";

     }

$query->finish();

De antemano agradezco su ayuda.

Cordial Saludo,

Gonzalo.

explorer · 2008-09-23 10:31 @479

Pero... si esto es un CGI... ¿cuándo envías las cabeceras?

¿O lo estás ejecutando directamente desde la línea de comandos?

Gonzalojimenezroldan · 2008-09-23 10:39 @485

Lo estoy ejecutando de esta manera:

http://www.xxxxxxxxxx.com/cgi-bin/conec.cgi

Esto es temporal mientras corrijo los errores, posteriormente lo ejecuto desde una página, que llama este CGI.

Este CGI me funciona, lo único que cambié es la utilización de variables independientes para recibir la consulta.

monoswim · 2008-09-23 11:32 @522

Es verdad, coloca al principio un

print "Content-type: text/html \n\n";

¿Te tira algún error?

Saludos

explorer · 2008-09-23 11:57 @540

Ya encontré el posible error.

Según la documentación de DBI:

Citar:

For maximum portability between drivers, bind_columns() should be called after execute() and not before.

que quiere decir que debes poner la línea del bind_columns() después del execute().

Prueba a ver...

Gonzalojimenezroldan · 2008-09-23 12:19 @555

Excelente, funcionó... con la recomendación.

De nuevo Gracias...

Publicidad

Socializa