PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: gbu at uhc dot com (Gary Udstrand)
Subject: Re: results pending error
Date: May 6 1998 9:16PM

	 

	With the assistance it is now working.   Thanks to everyone for
their help.

On Wed,  6 May 1998 13:09:51 -0700 (PDT), you wrote:

>Gary Udstrand writes:
> > 
> > 
> > 	
> > 
> > 	I have a subroutine (actually a series on them) in which I pass a
> > $dbproc value to handle various sybperl database functions.  All work
> > without a hitch except for the following, 
> > 
> > sub drop_table {
> >     local($dbproc, $tmptablename) = @_;
> > 
> >     &dbcmd($dbproc, "if exists (select * from sysobjects where name =
> > \"$tmptablename\")\n");
> >     &dbcmd($dbproc, "begin\n");
> >     &dbcmd($dbproc, "drop table $tmptablename\n");
> >     &dbcmd($dbproc, "end\n");
> >     &dbsqlexec($dbproc);
> >     &dbresults($dbproc);
>
>You must call dbresults() until it returns $NO_MORE_RESULTS, because
>the SQL that you execute is multi-statement.
>
>So do something like (perl4/sybperl1.x syntax):
>
>	while(&dbresults($dbproc) != $NO_MORE_RESULTS) {
>		while(@return_data = &dbnextrow($dbproc)) {
>			print "@return_data\n";
>		}
>	}
>
>Michael

--
                         
Gary Udstrand 
The opinions expressed are mine only, unless you agree with me.

The world is filled with willing people; some willing to work, the rest 
willing to let them. 
							-Robert Frost