Hallo,
ich bastele jetzt seit Stunden an einer Perl "SQL UPDATE" Abfrage, DIE WILL EINFACH NICHT :'(
$ABFRAGE="UPDATE `${AKT_TBL}` SET `planid`='${ID}' WHERE `planid`!='${ID}'";
$query = $heiz_dbh->prepare("$ABFRAGE");
$query->execute() || &die_clean("Couldn't execute\n$ABFRAGE\n".$query->errstr."\n" );
$rows = $query->rows;
$query->finish();
print "$ABFRAGE geänderte Datensätze: $rows\n";
$query->finish();
$heiz_dbh->disconnect();
print gibt brav die Abfrage und 13 geänderte Datensätze aus, allerdings ändert sich die Tabelle nicht, "SELECT" funktioniert problemlos.
Die $query->do() Syntax habe ich auch erfolglos versucht.
Wenn ich eine test.pm mit dem selben Code verwende geht es.
Ich habe keine Idee mehr woran es liegt.
Gruß
Thomas
Hallo,
hab die Ursache gefunden.
DBI->connect
von AutoCommit => 0 auf AutoCommit => 1 geändert .