Foro - Perl en Español

Publicado: **2013-04-02 15:14 @676**

Tengo el siguiente código, pero no logro que mis datos no se dupliquen me podrían ayudar con el UPDATE por favor

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
##CONEXIÓN POSTGRES##################################
use ConectarDB;
 
my ( $dbh, $sth, $dbh2, $sth2 );
$dbh = ConectarDB->connect();
####INSTRUCCIÓN SQL PARA LA SELECCIÓN DE DATOS DE LAS TABLAS REQUERIDAS EN POSTGRES#####################
$sql = "SELECT A.idtiposcobros_a,B.impuesto_b,A.caja_a,A.partida_a,A.atl_a,B.pcancl_b, 
                                hcn.valor_anter_hcn,hcn.valor_nuevo_hcn,cc.descripcion_cc 
                                FROM his_cobros_nuevo hcn 
                                LEFT JOIN cobros_campos cc ON (hcn.idcampo_hcn=cc.idcampo_cc) 
                                LEFT JOIN cobrosxcuenta A ON (hcn.atl_hcn = A.atl_a) 
                                LEFT JOIN cobros B ON (B.atl_b = A.atl_a)";
 
my $sth = $dbh->prepare($sql) or die "Imposible preparar la requisición: " . $dbh->errstr;
$sth->execute()
    or die( "Couldn't execute statement: " . $sth->errstr );
 
{
    while ( my @arrRTP = $sth->fetchrow_array() ) {
        my $id   = $arrRTP[0];
        my $nom  = $arrRTP[1];
        my $ap1  = $arrRTP[2];
        my $ap2  = $arrRTP[3];
        my $pas1 = $arrRTP[4];
        my $pas2 = $arrRTP[5];
        my $pas3 = $arrRTP[6];
        my $pas4 = $arrRTP[7];
        my $pas5 = $arrRTP[8];
        $wreg++;
 
        #*******************************************************************
##CONEXION ORACLE
        use DBI;
        use DBD::Oracle;
        my $dbh2 = DBI->connect( "dbi:Oracle:host=127.0.0.1;port=1521;sid=orcl", admin, admin )
            or die "Imposible conectar a la base ORACLE : " . DBI->errstr;
### MIGRACIÓN DE LOS DATOS A ORACLE&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
        my $sth2
            = $dbh2->prepare(
            "INSERT INTO pago_adepregral VALUES(@arrRTP[0],@arrRTP[1],@arrRTP[2],@arrRTP[3],@arrRTP[4],@arrRTP[5],@arrRTP[6])"
            ) or die "Imposible preparar la requisición: " . $dbh2->errstr;
        $sth2->execute();
        $wgra++;
    }
    print "Los pagos han sido trasferidos al nuevo motor de Base de Datos Oracle\n"
}
 
#***********************************************************************
$sth->finish;
$dbh->disconnect
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Publicado: **2013-04-02 19:42 @862**

Bienvenido a los foros de Perl en Español, clauss.

Puedes usar la sentencia UPDATE en lugar de la INSERT, en la línea 39, si, además, agregas condiciones WHERE que indiquen a UPATE qué registro actualizar.

¿Algunos de los campos que hay en la base de datos son únicos (forman una clave única para ese registro)?

Publicado: **2013-04-06 12:31 @563**

No sé cuál sea el orden o como realizarla ya que he intentado de varias maneras y me marca error tras error, quizás me falta algo. Te mando el como creo que es el más acercado, aclaro que todos mis datos son integer

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

   $sql2="UPDATE pago_adepregral SET cuenta=@arrRTP[0], periodo=@arrRTP[1],impuestoult=@arrRTP[2], sitfis=@arrRTP[3], sitpag=@arrRTP[4], impuesto_pagado=@arrRTP[5], descripcion=@arrRTP[6]"
my $sth2 = $dbh2->prepare($sql2)or die "Imposible preparar la requisicion: " . $dbh2->errstr;
          $sth2->execute();
          $wgra++;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Publicado: **2013-04-06 12:43 @571**

Falta un ';' al final de la línea 1.

Sin saber los detalles de la base de datos, poco se puede hacer, salvo: antes de ingresar un registro, hacer un select para localizarlo. Si está, pues entonces no hace falta ingresarlo de nuevo, salvo que quieras actualizar algún campo. Si no está, pues se ingresa directamente.

Pero claro... todo esto es lo que hace update en una sola pasada.

Sería recomendable ver esos errores.

Publicado: **2013-04-06 12:53 @578**

todos los datos son enteros, y pues si quiero de preferencia que actualize, ya que cada vez que corra el script me va a hacer duplicacion de datos y es lo que no quiero, este es el error que me aparece

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

^CDBD::Oracle::st execute failed: ORA-01013: user requested cancel of current operation (DBD ERROR: error possibly near <*> indicator at char 7 in 'UPDATE <*>pago_adepregral SET cuenta=443995,periodo=179995,impuestoult=110995,sitfis=220995,sitpag=9995,impuesto_pagado=799995,descripcion=995') [for Statement "UPDATE pago_adepregral SET cuenta=443995,periodo=179995,impuestoult=110995,sitfis=220995,sitpag=9995,impuesto_pagado=799995,descripcion=995"] at ./prueba20.pl line 42.
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Publicado: **2013-04-06 13:40 @611**

Para evitar la duplicación de datos, o borras toda la base de datos antes, o usas clausulas WHERE junto con el UPDATE.

He buscado el mensaje de error en Internet, y algunos han encontrado la solución cerrando el programa sqlplus que tenían abierto en otra ventana.

Otros dicen que ese mensaje sale por culpa de un timeout o el usuario hizo un Control-C para parar el proceso.

Lo que sí he visto y no me gusta nada, es que tienes metido el prepare() dentro del bucle while(). Para hacerlo bien, solo es necesario hacerlo una vez, fuera del bucle. Dentro del bucle, con el execute(), ya es suficiente para pasar los argumentos variables a la sentencia, por medio de los contenedores definidos en el prepare().

Foro - Perl en Español

Actualizar tabla

Actualizar tabla

Re: Actualizar tabla

Re: Actualizar tabla

Re: Actualizar tabla

Re: Actualizar tabla

Re: Actualizar tabla