Foro - Perl en Español

por **seafree** » 2014-03-27 11:54 @537

Hola.

Realizo varias consultas dentro de dos ciclos y en la última de las consultas arroja: Can't call method "prepare" on an undefined value. ¿Me puedes asesorar en cuál puede ser el error? Creé una segunda variable $dbh_fe, el correspondiente $sth_fe y el correspondiente while ($reg_fentra = $sth_fe->fetchrow_hashref()) { pero no arroja resultado alguno.

¿Me podrás apoyar, por favor, con alguna idea, por favor? Gracias.

#############------##############
my $dbh;
my $sth;
my $sql;
my $sql_evento;
my $reg_dcev;
my $sql_max_fsale;
my $dbh_fe;
my $sth_fe;
 
$dbh          = DBI->connect( "DBI:Pg:dbname=eventos;host=localhost", "seafree", "", { 'RaiseError' => 1 } );
$sql          = "SELECT......";
$sql_eventos  = "SELECT.....";
$sql_eventos2 = "SELECT....";
$sth          = $dbh->prepare($sql) or die $DBI::errstr;
$sth->execute();
while ( $reg_dcev = $sth->fetchrow_hashref() ) {
    ...;
    ...;
    ...;
}                                      #END WHILE ($reg_dcev = $sth->fetchrow_hashref)
$sth_event2 = $dbh->prepare($sql_eventos2) or die $DBI::errstr;
$sth_event2->execute();
while ( $reg_dcev_event2 = $sth_event2->fetchrow_hashref() ) {
 
}                                      #END WHILE ($reg_dcev = $sth->fetchrow_hashref)
 
#############################################
###---EN EL SIGUIENTE TENGO EL PROBLEMA---###
#############################################
$sth_fe = $dbh->prepare($sql_eventos) or die $DBI::errstr;
$sth_fe->execute();
$tuplas = $sth_fe->rows;               ###SÍ ME ESTÁ ARROJANDO UNA TUPLA, PORQUE SÓLO ES UNA CON EL VALOR MÁXIMO
 
while ( $reg_fe = $sth_fe->fetchrow_hashref() ) {
    if ( $descrip_aux ne $descrip_comp ) {    # Creo una condición para cuando sea un diferente grupo "descrip_comp"
        $sql_max_fsale
            = "SELECT MAX(fecha_entra) FROM (SELECT id,descrip_comp,fecha_sale,fecha_entra FROM t_eventos te, c_tipo_componentes ctc, c_componentes cc WHERE (fecha_sale BETWEEN '$f_ini' AND '$f_fin') AND indice='S' AND te.id_tipo_componente=ctc.id_tipo_componente AND ctc.id_componente=cc.id_componente GROUP BY id,descrip_comp,fecha_sale,fecha_entra ORDER BY descrip_comp,fecha_entra) AS subquery WHERE descrip_comp=\'$descrip_comp\' GROUP BY descrip_comp";
        $sth_fe = $dbh->prepare($sql_max_fsale) or die $DBI::errstr;
        $sth_fe->execute();
        $tuplas_max_fentra = $sth_fe->rows;
        while ( $reg_fentra = $sth_fe->fetchrow_hashref() ) {
            $fentra = $reg_fentra->{'fecha_entra'};
            print $fentra              ## Envía valores vacíos y la consulta sí me da el resultado esperado
        }
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿Puedes encontrar algo con este código?

por **explorer** » 2014-03-27 14:14 @634

Sí que veo algo...

En la línea 35 extraes el resultado de la consulta, en forma de referencia a un hash, y lo guardas en la variable escalar $reg_fe... que luego no usas en el resto del código...

por **seafree** » 2014-03-27 14:26 @643

No, mira, la línea 35 está compuesta así:

$sth_fe= $dbh->prepare($sql_max_fsale) or die $DBI::errstr;
$sth_fe->execute();
$tuplas_max_fentra=$sth_fe->rows;
while($reg_fentra = $sth_fe->fetchrow_hashref()) {
$fentra=$reg_fentra->{'fecha_entra'};
print "FECHA ENTRA: $fentra<br>";
}

Por error tome otra línea o algo pasó. Como puedes ver el valor que obtengo con la consulta es el valor máximo de la fecha de entrada, es decir, solo me da un valor como resultado. Al ejecutar la consulta directamente en la base de datos sí me arroja un resultado, pero en el programa, nada.

por **seafree** » 2014-03-27 14:42 @654

¡Ups! Era algo tan simple que es una verdadera pena que haya pasado esto.

Era la asignación del MAX(fecha_entra) a un alias, es decir, MAX(fecha_entra) AS fecha_entra y asignar ese valor como ya estaba: $fentra = $reg_fentra->{'fecha_entra'}; Lo que pasa es que quería utilizar el valor de 'fecha_entra' sin asignarlo a un alias.

Foro - Perl en Español

Error de DBI en dos ciclos de consultas

Error de DBI en dos ciclos de consultas

Publicidad

Re: Error de DBI en dos ciclos de consultas

Re: Error de DBI en dos ciclos de consultas

Re: Error de DBI en dos ciclos de consultas

Re: Error de DBI en dos ciclos de consultas

Re: Error de DBI en dos ciclos de consultas

¿Quién está conectado?