Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Text and endtext
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01064104
Message ID:
01064115
Views:
22
One way
LOCAL ddebut, dfin
ddebut = THISFORM.ddebut
dfin   = THISFORM.dfin

TEXT To cValue NOSHOW
     SELECT T.Cnomteleph , T.iid;
            FROM Employee AS 'E';
            INNER JOIN TELEPH  AS 'T' ON E.iTelephoneid = T.iid;
            INNER JOIN Horaire AS 'H' ON E.iid = H.iEmployeeId;
     WHERE H.ddate BETWEEN  ?ddebut AND ?dfin;
     GROUP BY 1 , 2 INTO ARRAY taSelectedList
ENDTEXT
=EXECSCRIPT( cValue )
Other
TEXT To cValue NOSHOW
     SELECT T.Cnomteleph , T.iid;
            FROM Employee AS 'E';
            INNER JOIN TELEPH  AS 'T' ON E.iTelephoneid = T.iid;
            INNER JOIN Horaire AS 'H' ON E.iid = H.iEmployeeId;
     WHERE DTOS(H.ddate) BETWEEN  '<<DTOS(thisform.ddebut)>>' AND '<<DTOS(thisform.dend)>>';
     GROUP BY 1 , 2 INTO ARRAY taSelectedList
ENDTEXT
=EXECSCRIPT( cValue )
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Reply
Map
View

Click here to load this message in the networking platform