I had been previously using ActiveState 5.6/Windows 2003
server/Win32::ODBC/MSAccess2000 to develop a web site for my client.

I recently decided to upgrade to Perl 5.8 from cygwin. I checked  out my web
site (too) briefly and it seemed fine. Later I discovered a problem with my
SQL Update statement. As part of my efforts to isolate the problem, I added
a call to SQL Select statement to display what I just updated.

In Cygwin 5.8, there are no errors: the UPDATE statement just fails. The
SELECT statement does not return the same data that the UPDATE statement
stores.

However, when I regress to ActiveState 5.6, the UPDATE statement works
correctly and the SELECT statement returns the same data.

Is this a bug in the Win32::ODBC module for 5.8? I would like to use the
latest version of Perl. Is it not a good idea to be using a current version?
What is the peril of running an old version like 5.6? Is there anything I
can do to correct this problem in Cygwin 5.8? It is very disappointing that
I did not even get an error from the SQL function. The function just did
nothing!

Is this the appropriate mailinglist/forum to discussing things like
Win32::ODBC modules? Is there a better forum?
  Thanks,
         Siegfried


  my ($uCaseData) = (qq|UPDATE CaseInfo  SET  |.... long SQL UPDATE
statement...);
  if($Data->Sql($uCaseData)){
    print "SQL failed (Line 896): $uCaseData. \n";
    print "Error: " . $Data->Error() . "\n";
  } # if
  else {  
    print "SQL succeeded (Line 896): $uCaseData. \n<br/>"; 
    if($Data->Sql("SELECT * FROM CaseInfo WHERE CaseNumber= $sCaseNumber")){
      print "SELECT failed<br/>";
    } else {
      while($Data->FetchRow()){
        my %Data = $Data->DataHash(); my $ii = 0;
        print "<table><tr>";
        print "<td>".$_.'=<td>'.($Data{$_}?"&nbsp;":$Data {$_}).(++$ii %
5?"":"</tr><tr>"  ) foreach sort keys %Data;
        print "</table>\n";
      }
    }
  }


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to