Hola, tengo un problema con DBI que se da cuando ejecuto un procedimiento almacenado que me trae datos y la respuesta es 0 registros (cuando existen datos me los trae sin problemas).
El punto es que al ejecutar execute el programa me envía a la #%#&%#& (censurado).
Estoy trabajando bajo ambiente Windows.
Gracias.
-
- Publicidad
Problemas con DBI
12 mensajes
• Página 1 de 2 • 1, 2
Problemas con DBI
por Fegna » 2008-02-27 13:16 @594
- Fegna
- Perlero nuevo
- Mensajes: 28
- Registrado: 2008-01-08 09:29 @437
- Ubicación: Santiago, Chile
Publicidad
por Fegna » 2008-02-27 13:42 @613
Mmmmm, claro, aquí va (debí haberlo pensado antes):
He destacado la línea que me arroja problemas.
Además, envío el mensaje donde Perl me manda a pasear:
Creo que es toda la información.
Gracias.
Using perl Syntax Highlighting
my ($mytipo_plan, $myregion, $mycotizacion_uf, $mylista_benef, $conn) = @_;
my ($sth, $stmt, $csr, $disconnect, @result);
if (!$conn)
{
$conn = get_db_connection();
$disconnect = 1;
}
$stmt = "BEGIN
ClieObtSimulacionPlanii_PKG.ClieObtSimulacionPlan(
'',:TIPO_PLAN,:REGION,:COTIZACION_UF,:LISTA_BENEF,5,5,:CSR);
END;";
$sth = $conn->prepare($stmt);
$sth->bind_param_inout( ":TIPO_PLAN", \$mytipo_plan, 12);
$sth->bind_param_inout( ":REGION", \$myregion, 1);
$sth->bind_param_inout( ":COTIZACION_UF", \$mycotizacion_uf, 1);
$sth->bind_param_inout( ":LISTA_BENEF", \$mylista_benef, 1);
$sth->bind_param_inout( ":CSR", \$csr, 0, { ora_type => ORA_RSET } );
$sth->execute(); # FALLA!!!
$sth->finish;
while (my $hash_ref = $csr->fetchrow_hashref)
{
$hash_ref->{'CODIGOPLAN'} =~ s/ //g;
push(@result, $hash_ref);
}
$csr->finish;
if ($disconnect)
{
$conn->disconnect;
}
return(@result);
my ($sth, $stmt, $csr, $disconnect, @result);
if (!$conn)
{
$conn = get_db_connection();
$disconnect = 1;
}
$stmt = "BEGIN
ClieObtSimulacionPlanii_PKG.ClieObtSimulacionPlan(
'',:TIPO_PLAN,:REGION,:COTIZACION_UF,:LISTA_BENEF,5,5,:CSR);
END;";
$sth = $conn->prepare($stmt);
$sth->bind_param_inout( ":TIPO_PLAN", \$mytipo_plan, 12);
$sth->bind_param_inout( ":REGION", \$myregion, 1);
$sth->bind_param_inout( ":COTIZACION_UF", \$mycotizacion_uf, 1);
$sth->bind_param_inout( ":LISTA_BENEF", \$mylista_benef, 1);
$sth->bind_param_inout( ":CSR", \$csr, 0, { ora_type => ORA_RSET } );
$sth->execute(); # FALLA!!!
$sth->finish;
while (my $hash_ref = $csr->fetchrow_hashref)
{
$hash_ref->{'CODIGOPLAN'} =~ s/ //g;
push(@result, $hash_ref);
}
$csr->finish;
if ($disconnect)
{
$conn->disconnect;
}
return(@result);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
He destacado la línea que me arroja problemas.
Además, envío el mensaje donde Perl me manda a pasear:
- Código: Seleccionar todo
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers.
Creo que es toda la información.
Gracias.
- Fegna
- Perlero nuevo
- Mensajes: 28
- Registrado: 2008-01-08 09:29 @437
- Ubicación: Santiago, Chile
por explorer » 2008-02-27 13:58 @624
El mensaje de error dice que es un fallo de CGI, no de DBI.
Sospecho que debe de ocurrir un error al hacer la consulta, y ese error estará saliendo antes de que saques la cabecera 'Content-Type:'.
De todas formas, hay algo que no me gusta. ¿Defines $csr como un parámetro para entrada y salida de datos de la base de datos, y, unas líneas más abajo, lo utilizas para hacer el fetchrow? Eso no me cuadra...
Sospecho que debe de ocurrir un error al hacer la consulta, y ese error estará saliendo antes de que saques la cabecera 'Content-Type:'.
De todas formas, hay algo que no me gusta. ¿Defines $csr como un parámetro para entrada y salida de datos de la base de datos, y, unas líneas más abajo, lo utilizas para hacer el fetchrow? Eso no me cuadra...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por Fegna » 2008-02-27 14:08 @630
El parámetro $csr contiene un cursor.
Lo curioso respecto al error es que, cuando el procedimiento llamado me devuelve registros, el programa funciona bien (no se cae ni por CGI ni por DBI).
Lamentablemente no tengo acceso al procedimiento en cuestión (tal vez, cuando no encuentra registros a devolver, devuelve una cosa diferente a un cursor y pasa por allí el error).
Respecto a la cabecera, la envío antes de llamar a ésta función, de hecho lo hago después de inicializar las variables de la rutina principal.
Lo curioso respecto al error es que, cuando el procedimiento llamado me devuelve registros, el programa funciona bien (no se cae ni por CGI ni por DBI).
Lamentablemente no tengo acceso al procedimiento en cuestión (tal vez, cuando no encuentra registros a devolver, devuelve una cosa diferente a un cursor y pasa por allí el error).
Respecto a la cabecera, la envío antes de llamar a ésta función, de hecho lo hago después de inicializar las variables de la rutina principal.
- Fegna
- Perlero nuevo
- Mensajes: 28
- Registrado: 2008-01-08 09:29 @437
- Ubicación: Santiago, Chile
por explorer » 2008-02-27 14:25 @642
Pero... ¿El procedimiento almacenado puede devolver un cursor en una variable que, INTERNAMENTE, sea un apuntador a un objeto DBI en Perl?
Además, el primer parámetro de bind_param_inout debería ser un número, empezando en 1, no constantes de caracteres.
No sé... dices que funciona pero yo veo cosas muy raras. Prueba a usar el módulo CGI::Carp de esta manera: use CGI::Carp qw(fatalsToBrowser);. Así los errores saldrán en el navegador.
También puedes probar a ejecutarlo paso a paso, con el perl -d o con el programa ddd y así puedes ver el contenido de las variables y dónde se cae.
Además, el primer parámetro de bind_param_inout debería ser un número, empezando en 1, no constantes de caracteres.
No sé... dices que funciona pero yo veo cosas muy raras. Prueba a usar el módulo CGI::Carp de esta manera: use CGI::Carp qw(fatalsToBrowser);. Así los errores saldrán en el navegador.
También puedes probar a ejecutarlo paso a paso, con el perl -d o con el programa ddd y así puedes ver el contenido de las variables y dónde se cae.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2008-02-27 14:28 @644
Disculpas. Acabo de ver código de Oracle, que, efectivamente, funciona de la manera que pones.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por Fegna » 2008-02-27 14:40 @653
Lo realicé y es lo mismo.
De hecho he detenido la ejecución de la rutina línea a línea (llevando el return(@result); después de ejecutar cada una de ellas) y, donde me muestra el error es cuando ejecuta $sth->execute();.
De hecho he detenido la ejecución de la rutina línea a línea (llevando el return(@result); después de ejecutar cada una de ellas) y, donde me muestra el error es cuando ejecuta $sth->execute();.
- Fegna
- Perlero nuevo
- Mensajes: 28
- Registrado: 2008-01-08 09:29 @437
- Ubicación: Santiago, Chile
por Fegna » 2008-02-27 14:55 @663
Por lo menos, con use CGI::Carp qw(fatalsToBrowser); la página no se me cae.
El primer paso ya está dado. Ahora veré como enviarle un mensaje al usuario diciendo que no encontré registros.
Gracias por la ayuda.
El primer paso ya está dado. Ahora veré como enviarle un mensaje al usuario diciendo que no encontré registros.
Gracias por la ayuda.
- Fegna
- Perlero nuevo
- Mensajes: 28
- Registrado: 2008-01-08 09:29 @437
- Ubicación: Santiago, Chile
12 mensajes
• Página 1 de 2 • 1, 2
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 16 invitados