<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:10pt"><div style="font-family: times new roman,new york,times,serif; font-size: 10pt;">Pessoal...<br>Gostaria de Agradecer todos os membros desta Lista..<br>Vcs sao excelentes profissionais...<br>Cada ajuda postada serve para evoluir cada vez mais...<br><br>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:<br>Vai ai.:<br><br><br>sub insert<br>{<br><br>my ($nome,$var,$flag,@datas)=@_;<br><br><br>my $sql = qq/ INSERT INTO tablea(Nome,Data) VALUES(?,?) ON DUPLICATE KEY UPDATE $var="$flag" /;<br><br><br>eval <br>{<br> $sth2 = $dbh->prepare($sql);<br><br> foreach my
$data(@datas)<br> { <br> $sth2->execute($nome,$data);<br><br> <br> }<br> $sth2->commit;<br> <br>};<br><br>}<br><br><br><br><br>Esta ai pessoal...... uma coisa que nunca coloco nos meus porgramas quando busco no BANCO eh o $sth2->commit; ??? eh necessario??? pra q serve??<br><br><br>Obrigada Pessoal...<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: André Garcia Carneiro <andre.garcia.carneir@terra.com.br><br>Para: cascavel-pm <cascavel-pm@pm.org><br>Enviadas: Sexta-feira, 26 de Janeiro de 2007 14:43:29<br>Assunto: Re: [Cascavel-pm] [Spam] Res: [Spam] Duvida $dbh->prepare<br><br><div><br>Patty,<br><br>Vou considerar que
você quer imprimir $sth->execute ok?<br><br>print "sth->execute($nome,$data,$var)";<br><br>Não sei se era isso o que você queria... mas espero ter ajudado..<br><br><br>Cheers<br><br><br>> Ultima Coisinha Pessoal..<br>> <br>> Quando eu Faco: <br>> <br>> $sql = qq/ INSERT INTO $table(Nome,Data) VALUES(?,?) ON DUPLICATE KEY UPDATE $variavel=? /;<br>> <br>> <br>> eval <br>> {<br>> $sth2 = $dbh->prepare($sql);<br>> <br>> foreach my $data(@datas)<br>> { <br>> <br>> $sth2->execute($nome,$data,$var);<br>> <br>> }<br>>
$sth2->commit;<br>> <br>> };<br>> <br>> <br>> Eu quero imprimir a INSTRUCAO com os DADOS preenchidos tem como??<br>> <br>> <br>> <br>> <br>> ----- Mensagem original ----<br>> De: André Garcia Carneiro <andre.garcia.carneir@terra.com.br><br>> Para: cascavel-pm <cascavel-pm@pm.org><br>> Enviadas: Sexta-feira, 26 de Janeiro de 2007 10:39:58<br>> Assunto: Re: [Cascavel-pm] [Spam] Duvida $dbh->prepare<br>> <br>> Patty.<br>> <br>> Tem que ser uma de cada vez...<br>> <br>> use strict;<br>> use DBI;<br>> my @SQL = (qq{INSERT ...},qq{INSERT ...},qq{INSERT ...});<br>> <br>> my $dbh = $DBI->connect(....);<br>> my $sth;<br>> map{ $sth->prepare_cached($_); $sth->execute; ... }@SQL;<br>> <br>> $sth->finish;<br>> $dbh->disconnect;<br>> <br>> #fim<br>> <br>> Cheers!<br>>
---------- Cabeçalho original -----------<br>> <br>> De: cascavel-pm-bounces+andre.garcia.carneir=terra.com.br@pm.org<br>> Para: "Cascavel Perl Mongers" cascavel-pm@pm.org<br>> Cópia: <br>> Data: Thu, 25 Jan 2007 03:15:50 -0800 (PST)<br>> Assunto: [Spam] [Cascavel-pm] Duvida $dbh->prepare<br>> <br>> > Ola Pessoal :)<br>> > Eu dinovo.. hahauh<br>> > <br>> > Bom estou tentando colocar 3 instrucoes de INSERT so que nao estou conseguindo..<br>> > Isso eh possivel?<br>> > <br>> > my $sql=qq{INSERT into table1(Nome,DataHora) values($nome,'$datahora') on duplicate key update<br>> $variavels='$result_flags'; };<br>> > my $sql1=qq{INSERT into table1(Nome,DataHora) values($nome,'$datahora1') on duplicate key update<br>> $variavels='$result_flags'; };<br>> > my $sql2=qq{INSERT into table1(Nome,DataHora) values($nome,'$datahora2') on duplicate
key update<br>> $variavels='$result_flags'; };<br>> > <br>> > my $sql_insert=$sql."\n"..$sql1."\n".$sql_2;<br>> > $sth = $dbh->prepare($sql_insert) || die $DBI::errstr;<br>> > $sth->execute || die $DBI::errstr;<br>> > <br>> > <br>> > Obrigada<br>> > <br>> > <br>> > OBS: se eu colocar somente o $sql funciona.. entao nao eh problema de sintaxe.. :)<br>> > <br>> > <br>> > []s<br>> > <br>> > <br>> > <br>> > <br>> > <br>> > <br>> > __________________________________________________<br>> > Fale com seus amigos de graça com o novo Yahoo! Messenger <br>> > <a target="_blank" href="http://br.messenger.yahoo.com/">http://br.messenger.yahoo.com/</a> <br>> > E-mail classificado pelo Identificador de Spam Inteligente Terra.<br>> > Para alterar a categoria classificada, visite<br>>
><br>><br><a target="_blank" href="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">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</a><br>> > <br>> > Esta mensagem foi verificada pelo E-mail Protegido Terra.<br>> > Scan engine: McAfee VirusScan / Atualizado em 24/01/2007 / Versão: 5.1.00/4948<br>> > Proteja o seu e-mail Terra: <a target="_blank" href="http://mail.terra.com.br/">http://mail.terra.com.br/</a><br>> > <br>> > <br>> <br>> --<br>> André Garcia Carneiro<br>> Developer(Perl/PHP)<br>> Member of "São Paulo Perl Mongers" - <a target="_blank" href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>> <br>>
_______________________________________________<br>> Cascavel-pm mailing list<br>> Cascavel-pm@pm.org<br>> <a target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>> <br>> <br>> <br>> <br>> <br>> <br>> __________________________________________________<br>> Fale com seus amigos de graça com o novo Yahoo! Messenger <br>> <a target="_blank" href="http://br.messenger.yahoo.com/">http://br.messenger.yahoo.com/</a> <br>> E-mail classificado pelo Identificador de Spam Inteligente Terra.<br>> Para alterar a categoria classificada, visite<br>><br><a target="_blank"
href="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">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</a><br>> <br>> Esta mensagem foi verificada pelo E-mail Protegido Terra.<br>> Scan engine: McAfee VirusScan / Atualizado em 25/01/2007 / Versão: 5.1.00/4949<br>> Proteja o seu e-mail Terra: <a target="_blank" href="http://mail.terra.com.br/">http://mail.terra.com.br/</a><br>> <br>> <br><br>--<br>André Garcia Carneiro<br>Developer(Perl/PHP)<br>Member of "São Paulo Perl Mongers" - <a target="_blank" href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br><a target="_blank"
href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></div></div><br></div></div><br>__________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/ </body></html>