• Publicidad

Error al ejecutar query anidado

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Error al ejecutar query anidado

Notapor teco000 » 2008-07-09 12:15 @552

Saludos, me pueden ayudar, estoy ejecutando un query, al momento de correrlo en la consola sí me funciona pero en el programa me da el siguiente error:

Código: Seleccionar todo
Can't locate object method "fetchrow" via package "select sum(diferencia)as diferencia from( select distinct flectura, contador,lecturant,lectura, lectura-lecturant as diferencia , fechasis from lectura where flectura ='20080701'order by fechasis desc) as general" (perhaps you forgot to load "select sum(diferencia)as diferencia from( select distinct flectura, contador,lecturant,lectura, lectura-lecturant as diferencia , fechasis from lectura where flectura ='20080701'order by fechasis desc) as general"?)


El query es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using sql Syntax Highlighting
SELECT sum(diferencia)AS diferencia FROM( SELECT DISTINCT flectura, contador,lecturant,lectura, lectura-lecturant AS diferencia , fechasis FROM lectura WHERE flectura ='20080701'ORDER BY fechasis DESC) AS general
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¿En qué estoy cometiendo el error?
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Publicidad

Notapor explorer » 2008-07-09 12:25 @559

¿Y dónde está la línea del código que hace esa consulta?

Por de pronto, veo que falta un espacio delante de 'ORDER', pero no creo que ese sea el error.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor teco000 » 2008-07-09 12:28 @561

Perdón, mando el código.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my $query2= "select sum(diferencia)as diferencia from( select distinct flectura, contador,lecturant,lectura, lectura-lecturant as diferencia , fechasis from lectura where flectura ='20080701'order by fechasis desc) as general";
my $sth = $db->prepare($query2) or die "ERROR prepare\n";
$sth->execute() or die ;
@row = $query2->fetchrow();    
$total_ingresados=$row[0];
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala

Notapor explorer » 2008-07-09 12:53 @578

La línea
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
@row = $query2->fetchrow();
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

debería ser
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
@row = $sth->fetchrow();
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor teco000 » 2008-07-09 13:03 @585

Gracias, explorer.
teco000
Perlero nuevo
Perlero nuevo
 
Mensajes: 67
Registrado: 2008-05-29 15:22 @682
Ubicación: Guatemala


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado