|
|
sybperl-l Archive
Up Prev Next
From: "Ronan O'Ciosoig" <ronanoc at mac dot com>
Subject: Re: more results pending
Date: Aug 1 2002 4:51PM
Bingo! Everything running smoothly. Thanks.
On Thursday, August 1, 2002, at 02:13 PM, Michael Peppler wrote:
> On Thu, 2002-08-01 at 04:52, Ronan O'Ciosoig wrote:
>> After running this code below.....
>>
>> $dbh->dbcmd($sql_command);
>> $dbh->dbsqlexec;
>> while($dbh->dbresults != NO_MORE_RESULTS) {
>> $status = $dbh->dbresults;
>> print "Status: $status\n";
>> while(@updates = $dbh->dbnextrow) {
>> print "Zone Update: @updates\n";
>> }
>> } # end while
>
>
> The problem is the second call to dbresults() in your loop.
>
> Change this to:
>
> while(($status = $dbh->dbresults) != NO_MORE_RESULTS) {
> ....
> }
>
> and you should be OK.
>
> Michael
> --
> Michael Peppler / mpeppler@peppler.org / http://www.mbay.net/~mpeppler
> mpeppler@zetatools.com / ZetaTools, Inc / http://www.zetatools.com
> ZetaTools: Call perl functions as Sybase stored procedures!
>
|
