Just if somebody is interested:
I solved the mystery with Error 19. All I needed to do was introducing a
second statement handle for the update query.
(BTW, the script runs probably faster using '$sth = $dbh->do' instead of
'$sth = $dbh->prepare', followed by '$sth = $dbh->execute').
Hannes
On 6/24/01 4:05 AM, "Hannes Niedner" <[EMAIL PROTECTED]> wrote:
> I am having trouble with DBI. I wrote a little script that should update
> fields in one table (uid_test) based on values in another table (merge). I
> updates one row and then dies with:
>
> os prompt: blah blah
>
> 1 1011877 1000001
> Error during processing for table uid_test
>
> Error 19 (fetch() without execute())
>
> The selected values (primary_id, other_id) are both INT(12) and so are the
> fields of the target table (superceded_by, uid_new).
>
> Please have a look at the Perl code snippet below. As I said it works for
> the first row. BTW if there is pure sql code that would do the job, I would
> be delighted to learn about.
>
> Thanks Hannes
>
>
>
> ---------------------snippet---------------------------------------------
> #issue query
> $sth = $dbh->prepare ( "SELECT primary_id, other_id
> FROM merge
> ORDER BY other_id"
> ) or &bail_out ("Cannot prepare query from merge");
> $sth->execute () or &bail_out ("Cannot execute query from merge");
>
> while (@ary = $sth->fetchrow_array ()) {
> $counter++;
> my ($primary_id) = $ary[0];
> my ($other_id) = $ary[1];
> print "$counter\t$primary_id\t$other_id\n";
>
> #update the data in the target table
> $sth = $dbh->prepare ( "UPDATE $table_name
> SET superceded_by=$primary_id, status=\'1\',
> time=null
> WHERE uid_new=$other_id"
> ) or &bail_out ("Cannot prepare sql (UPDATE
> $table_name)!");
> $sth->execute () or &bail_out ("Cannot execute sql(UPDATE
> $table_name)!");
>
> }
>
> if (!defined($DBI::err)) {
> print "$counter sequences retrieved from table merge, cleaned out
> and successfully updated in table niedner.$table_name.\n";
> }else {&bail_out ("Error during processing for table $table_name\n");
> }
>
>
> #clean up
> $sth->finish () or &bail_out ("Cannot finish query from database");
> $dbh->disconnect () or &bail_out ("Cannot disconnect from database");
> exit (0)
> --------------------------snippet end------------------------------------
>
>
> ---------------------------------------------------------------------
> Before posting, please check:
> http://www.mysql.com/manual.php (the manual)
> http://lists.mysql.com/ (the list archive)
>
> To request this thread, e-mail <[EMAIL PROTECTED]>
> To unsubscribe, e-mail
> <[EMAIL PROTECTED]>
> Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php
>
---------------------------------------------------------------------
Before posting, please check:
http://www.mysql.com/manual.php (the manual)
http://lists.mysql.com/ (the list archive)
To request this thread, e-mail <[EMAIL PROTECTED]>
To unsubscribe, e-mail <[EMAIL PROTECTED]>
Trouble unsubscribing? Try: http://lists.mysql.com/php/unsubscribe.php
