I used trace() but still cannot figure out what is happening, but still dont
work  :-(

I'm sending attached the log files and the program.


 ----- Original Message ----- 
From: "Tim Bunce" <[EMAIL PROTECTED]>
To: "Pedro Anisio" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Friday, May 14, 2004 4:44 PM
Subject: Re: Res: Res: RE: Problems changing from 1.30 to 1.42


> Use trace()
>
> Tim.
>
> On Fri, May 14, 2004 at 04:05:44PM -0300, Pedro Anisio wrote:
> > Sorry, I didnt send this part of the code
> >
> > @param = (2, 343520291, 1);
> >
> > >-----MENSAGEM ORIGINAL-----
> > >De: "Pedro Anisio" <[EMAIL PROTECTED]>
> > >Enviada em: Sex, 14 Mai 2004 16:02:14
> > >Assunto: Res: Res: RE: Problems changing from 1.30 to 1.42
> > >
> > >
> > >>I dont get any error on $msg but the UPDATE is not executed and the
values on my database dont' change.
> > >
> > >Pedro
> > >
> > >>-----MENSAGEM ORIGINAL-----
> > >>De: "Reidy, Ron"
> > >>Enviada em: Sex, 14 Mai 2004 15:59:25
> > >>Assunto: Res: RE: Problems changing from 1.30 to 1.42
> > >>
> > >>
> > >>>What is your error?
> > >>
> > >>-----------------
> > >>Ron Reidy
> > >>Senior DBA
> > >>Array BioPharma, Inc.
> > >>
> > >>-----Original Message-----
> > >>From: Pedro Anisio [mailto:[EMAIL PROTECTED]
> > >>Sent: Friday, May 14, 2004 12:57 PM
> > >>To: [EMAIL PROTECTED]
> > >>Subject: Problems changing from 1.30 to 1.42
> > >>
> > >>Guys,
> > >>
> > >>    I'm migrating my system from DBI 1.30 to 1.42 but I found onte
little problem, this piece off code used to worked at 1.30 but now it simple
don't do this update, unless I pass the update values directlty on the
$query. What is causing this? Anyone can help-me?
> > >>
> > >>#!/usr/bin/perl
> > >>
> > >>use DBI;
> > >>
> > >>$query   = "update mensagem set mens_stat = ? where mens_codigo = ?
and mens_stat = ?";
> > >>#$query   = "update mensagem set mens_stat = 2 where mens_codigo =
343520291 and mens_stat = 1"; prepare($query);
> > >>
> > >>   if (!$sth->execute(@param))
> > >>   {
> > >>      $msg  = $sth->errstr;
> > >>      $msg  =~ s/\n|\r/ /g;
> > >>      $msg .= "[$query], ".join(",",@param);
> > >>   }
> > >>
> > >>print "$msg\n";
> > >>
> > >>$sth->finish;
> > >>$dbh->disconnect;
> > >>
> > >>exit;
> > >>
> > >>Abra?os,
> > >>
> > >>Pedro An?sio
> > >>
> > >>* iBest. Internet gr?tis com qualidade de internet paga.
> > >>
> > >>Clique abaixo para conectar-se ? internet gratuitamente:
> > >>http://discador.ibest.com.br/mail.html
> > >>
> > >>This electronic message transmission is a PRIVATE communication which
contains
> > >>information which may be confidential or privileged. The information
is intended
> > >>to be for the use of the individual or entity named above. If you are
not the
> > >>intended recipient, please be aware that any disclosure, copying,
distribution
> > >>or use of the contents of this information is prohibited. Please
notify the
> > >>sender  of the delivery error by replying to this message, or notify
us by
> > >>telephone (877-633-2436, ext. 0), and then delete it from your system.
> > >>
> > >>
> > >
> > >Abra?os,
> > >
> > >Pedro An?sio
> > >
> > >* iBest. Internet gr?tis com qualidade de internet paga.
> > >
> > >Clique abaixo para conectar-se ? internet gratuitamente:
> > >http://discador.ibest.com.br/mail.html
> > >
> >
> > Abra?os,
> >
> > Pedro An?sio
> >
> >
> >
> >
> > * iBest. Internet gr?tis com qualidade de internet paga.
> >
> > Clique abaixo para conectar-se ? internet gratuitamente:
> > http://discador.ibest.com.br/mail.html
> >
>

Attachment: work.log
Description: Binary data

Attachment: notwork.log
Description: Binary data

Attachment: teste_update.pl
Description: Binary data

Reply via email to