Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can not retrive sql pass-through cursor in the subclass
Message
De
06/11/2002 22:28:42
Thomas Wang
Cts Int'l Transportation Co., Ltd.
Shanghai, Chine
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Can not retrive sql pass-through cursor in the subclass
Divers
Thread ID:
00719665
Message ID:
00719665
Vues:
38
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform