Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can not retrive sql pass-through cursor in the subclass
Message
From
06/11/2002 22:28:42
Thomas Wang
Cts Int'l Transportation Co., Ltd.
Shanghai, China
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Can not retrive sql pass-through cursor in the subclass
Miscellaneous
Thread ID:
00719665
Message ID:
00719665
Views:
37
I has a parent class which contains a sql passthrough query can retrive a result cursor. A series of subclass inherit from it and the subclass can retrive result too
by call inherited method in vfp6,vfp7
But in VFP 8 , it can not work!!!

davidfm@citiz.net

***parent class name: clsParent***
***parent class method***

procedure getTitle
lpara tms1,tms2,tms3,tms4
private lctmsl,lctms2,lctms3,lctm4

lctms1=tms1
lctms2=tms2
lctms3=tms3
lctmd4=tms4

strsql="execute make_result ?lctms1,?lctms2,?lctm3,?lctms4"

if sqlexec(1,strsql,"lctmp1")=.f.
return .f.
endif

IF reccount("lctmp1")=0
?? chr(7)
=MESSAGEBOX("no records return",MB_ICONEXCLAMATION,OPSYS_LOC)
use in lctmp1
return .f.
ENDIF
select lctmp1
brow

endproc

***************************************************

**sub class inherit method**
procedure getTitle
LPARAMETERS tc1,tc2,t3,tc4
if clsParent::getTitle(tc1,tc2,tc3,tc4)=.f.
return .f.
endif

----end----

Help me resolve it

Thanks
Next
Reply
Map
View

Click here to load this message in the networking platform