Foro - Perl en Español

por **dolisguilarte** » 2012-03-19 10:58 @498

Hola a todos buenos dias,
Les escribo ya que tengo un problema haciendo un execute() no se porque el codigo no funciona bien, en el segundo select y el script esta bloqueando la base de datos exactamente en la instruccion : $sth_select->execute()|| $self->error;
esta corresponde al segundo select

($sql_select_01)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sql_select = 'SELECT * FROM  BSC  WHERE (id_nivel = ?) '; #**BUSCAR REGISTROS BSC RELACIONADOS AL NIVEL*****
$sth = $self->{dbh}->prepare($sql_select) || $self->error;
$sth->execute($nivel_origen) || $self->error;
#********** RECORREMOS  REGISTROS DE BSC******
while (@array_bsc = $sth->fetchrow_array){
    $id_bsc=$array_bsc[0];  #*********Este es el id_bsc a duplicar******
        #****************DUPLICAR EL BSC********
        $sql_insert = 'insert into bsc (id_nivel, desc_bsc, orden, bsc_vigencia, id) SELECT ?, desc_bsc, orden, bsc_vigencia, id FROM  BSC WHERE id_bsc = ?
                         SELECT  @@identity';
        my $sth_bsc = $self->{dbh}->prepare($sql_insert) || $self->error;
        $sth_bsc->execute($identity,$id_bsc) || $self->error; # Los parametros van Primero el Nuevo ID Nivel y segundo el ID_BSC ACTUAL
        
 
    #**************BUSCARMOS EL ULTIMO ID GENERADO PARA GUARDAR EN VARIABLE
        my $sql_select_01='SELECT TOP 1 id_bsc FROM  BSC ORDER BY id_bsc DESC';
        $sth_select = $self->{dbh}->prepare($sql_select_01) || $self->error;
        $sth_select->execute()|| $self->error;
        #@fields = $sql_select_01->fetchrow_array;
   # $new_id_bsc = $fields[0]; #****ESTE ES EL NUEVO ID_BSC GENERADO********
    
    
    
}#***********FIN DEL WHILE BSC
 
 
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Tampoco sabemos qué es lo que hace $self->error().

Como no es frecuente que prepare() falle, sospecho que el problema puede estar ahí.

Sospecho que debe ser un método definido por ti, donde sacas el error producido en pantalla o STDERR, y terminas con un mensaje de error.

Digo terminar, porque escribes líneas como esta:

$sth = $self->{dbh}->prepare($sql_select) || $self->error;

que quiere decir:

«$sth debe tomar el valor resultado de la llamada a prepare() o el valor del resultado de la llamada a error()».

Así que error() debería terminar el programa, porque si no lo hace y regresa a donde fue llamado, $sth tendrá un valor (el que devuelva error()), y con él intentará hacer el execute(). Si ese valor no es un controlador de sentencias como los que devuelve prepare(), se producirá un error más grave.

Foro - Perl en Español

Error en execute()

Error en execute()

Publicidad

Re: Error en execute()

Re: Error en execute()

Re: Error en execute()

¿Quién está conectado?