Your problem is that the UPDATE syntax is wrong. You want to say:

my $statement =
    qq(
       UPDATE LEAGUE
       SET played = ?,
           won = ?,
           fr = ?,
           ag = ?,
           points = ?
       WHERE year = ?
         AND sport = ?
         AND group = ?
       );
$dbh->do($statement, {},
     $playeda, $wona, $fora, $againsta, $pointsa,
         $thisyear, $sport, $group)
     || die "SQL error in update 1";
[download]

Besides fixing the syntax, I used bind variables in the do to allow DBI to escape the strings for me correctly to make sure that all SQL metacharacters are safe. The qq() thing just makes up a string (but I find it more readable to write my SQL queries that way).

Hope that helps.

-ben

Instead, it's probably better to use placeholders for this case--DBI will automagically escape any quotes in the values that you pass to protect from this problem.

my $sth3 = $dbh->prepare( 
   q(
      UPDATE league SET played=?, won=?, fr=?, ag=?, points=? 
      WHERE year=?, sport=?, group=? 
   ) ) or die DBI->errstr;
$sth3->execute( $playeda, $wona, $fora, $againsta,
   $pointsa, $thisyear, $sport, $group ) or die DBI->errstr;
[download]

my $sth3 = $dbh->do("UPDATE league SET played = '$playeda', won = '$wo
+na', fr = '$fota', ag = '$againsta', points = '$pointsa', year= '$thi
+syear', sport= '$sport', group = '$group'")
[download]

Hope this will work & help.

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]