[Cascavel-pm] Res: Res: Duvida $dbh->prepare

[Patty Silva]

Pessoal...
Gostaria de Agradecer todos os membros desta Lista..
Vcs sao excelentes profissionais...
Cada ajuda postada serve para evoluir cada vez mais...

Seguindo a Sugestao do Pessoal.. meu script esta funcionando... consegui resolver , abaixo esta a solucao, nao sei se eh a melhor porem funcionou, tento utilizar os recursos q vcs me sugerem.. mas as vezes nao eh possivel:
Vai ai.:


sub insert
{

my ($nome,$var,$flag, em datas)=@_;


my $sql = qq/ INSERT INTO tablea(Nome,Data) VALUES(?,?) ON DUPLICATE KEY UPDATE $var="$flag" /;


eval 
{
        $sth2 = $dbh->prepare($sql);

        foreach my $data(@datas)
        {      
            $sth2->execute($nome,$data);

  
        }
    $sth2->commit;
        
};

}




Esta ai pessoal...... uma coisa que nunca coloco nos meus porgramas quando busco no BANCO eh o    $sth2->commit;  ??? eh necessario??? pra q serve??


Obrigada Pessoal...

----- Mensagem original ----
De: André Garcia Carneiro <andre.garcia.carneir em terra.com.br>
Para: cascavel-pm <cascavel-pm em pm.org>
Enviadas: Sexta-feira, 26 de Janeiro de 2007 14:43:29
Assunto: Re: [Cascavel-pm] [Spam]  Res:  [Spam]  Duvida  $dbh->prepare


Patty,

Vou considerar que você quer imprimir $sth->execute ok?

print "sth->execute($nome,$data,$var)";

Não sei se era isso o que você queria... mas espero ter ajudado..


Cheers


> Ultima Coisinha Pessoal..
> 
> Quando eu Faco: 
> 
> $sql = qq/ INSERT INTO $table(Nome,Data) VALUES(?,?) ON DUPLICATE KEY UPDATE $variavel=? /;
> 
> 
> eval 
> {
>         $sth2 = $dbh->prepare($sql);
> 
>         foreach my $data(@datas)
>         {    
> 
>                      $sth2->execute($nome,$data,$var);
>  
>         }
>     $sth2->commit;
>         
> };
> 
> 
> Eu quero imprimir a INSTRUCAO com os DADOS preenchidos tem como??
> 
> 
> 
> 
> ----- Mensagem original ----
> De: André Garcia Carneiro <andre.garcia.carneir em terra.com.br>
> Para: cascavel-pm <cascavel-pm em pm.org>
> Enviadas: Sexta-feira, 26 de Janeiro de 2007 10:39:58
> Assunto: Re: [Cascavel-pm] [Spam]  Duvida  $dbh->prepare
> 
> Patty.
> 
> Tem que ser uma de cada vez...
> 
> use strict;
> use DBI;
> my @SQL = (qq{INSERT ...},qq{INSERT ...},qq{INSERT ...});
> 
> my $dbh = $DBI->connect(....);
> my $sth;
> map{ $sth->prepare_cached($_); $sth->execute; ...  }@SQL;
> 
> $sth->finish;
> $dbh->disconnect;
> 
> #fim
> 
> Cheers!
> ---------- Cabeçalho original -----------
> 
> De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br em pm.org
> Para: "Cascavel Perl Mongers" cascavel-pm em pm.org
> Cópia: 
> Data: Thu, 25 Jan 2007 03:15:50 -0800 (PST)
> Assunto: [Spam] [Cascavel-pm] Duvida  $dbh->prepare
> 
> > Ola Pessoal :)
> > Eu dinovo.. hahauh
> > 
> > Bom estou tentando colocar 3 instrucoes de INSERT so que nao estou conseguindo..
> > Isso eh possivel?
> > 
> > my $sql=qq{INSERT into table1(Nome,DataHora) values($nome,'$datahora') on duplicate key update
> $variavels='$result_flags';  };
> > my $sql1=qq{INSERT into  table1(Nome,DataHora) values($nome,'$datahora1') on duplicate key update
> $variavels='$result_flags';  };
> > my $sql2=qq{INSERT into  table1(Nome,DataHora) values($nome,'$datahora2') on duplicate key update
> $variavels='$result_flags';  };
> > 
> > my $sql_insert=$sql."\n"..$sql1."\n".$sql_2;
> > $sth = $dbh->prepare($sql_insert) || die $DBI::errstr;
> > $sth->execute || die $DBI::errstr;
> > 
> > 
> > Obrigada
> > 
> > 
> > OBS: se eu colocar somente o $sql funciona.. entao nao eh problema de sintaxe.. :)
> > 
> > 
> > []s
> > 
> > 
> >     
> > 
> > 
> > 
> > __________________________________________________
> > Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> > http://br.messenger.yahoo.com/ 
> > E-mail classificado pelo Identificador de Spam Inteligente Terra.
> > Para alterar a categoria classificada, visite
> >
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1169723778.478067.13096.morondava.hst.terra.com.br,6190,20031127114101,20031127114101
> > 
> > Esta mensagem foi verificada pelo E-mail Protegido Terra.
> > Scan engine: McAfee VirusScan / Atualizado em 24/01/2007 / Versão: 5.1.00/4948
> > Proteja o seu e-mail Terra: http://mail.terra.com.br/
> > 
> > 
> 
> --
> André Garcia Carneiro
> Developer(Perl/PHP)
> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 
> 
> 
> 
> __________________________________________________
> Fale com seus amigos  de graça com o novo Yahoo! Messenger 
> http://br.messenger.yahoo.com/ 
> E-mail classificado pelo Identificador de Spam Inteligente Terra.
> Para alterar a categoria classificada, visite
>
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=andre.garcia.carneir&_l=1,1169815117.63321.12809.curepipe.hst.terra.com.br,12393,20031127114101,20031127114101
> 
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Scan engine: McAfee VirusScan / Atualizado em 25/01/2007 / Versão: 5.1.00/4949
> Proteja o seu e-mail Terra: http://mail.terra.com.br/
> 
> 

--
André Garcia Carneiro
Developer(Perl/PHP)
Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm






__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070126/5016f154/attachment-0001.html