General information
Title:
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only