Information générale
Titre:
Can not retrive sql pass-through cursor in the subclass
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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement