|
|
sybperl-l Archive
Up Prev Next
From: Michael Peppler <mpeppler at peppler dot org>
Subject: Re: more results pending
Date: Aug 1 2002 2:13PM
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!
|
