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)
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.003 segundos, usando GeSHi 1.0.8.4