Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Select with Memos - strange results
Message
 
 
À
04/01/2006 20:39:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Database:
Visual FoxPro
Divers
Thread ID:
01083334
Message ID:
01083407
Vues:
12
I think the table names should be in quotes and with aliases. Also why do you need the first part before the UNION if you're using WHERE .F. ?

Finally, can you replace WHERE with INNER JOINs? The select statement would be easy to understand.

>okay, here are the statements again:
>
>
>SELECT DISTINCT SUP_ACT.ACTION_ID, SUPPRBM.PROBLEM_ID, ;
>SUP_ACT.ACT_NOTES, SUP_ACT.NXTACT_NOT, SUPPRBM.PRBLM_DESC, ;
>SUPPRBM.CLIENT_ID ;
>FROM SUP_ACT, SUPPRBM, CONTACT, WORECS ;
>WHERE .F. UNION ALL ;
>SELECT DISTINCT SUP_ACT.ACTION_ID, SUPPRBM.PROBLEM_ID, ;
>SUP_ACT.ACT_NOTES, SUP_ACT.NXTACT_NOT, SUPPRBM.PRBLM_DESC, ;
>SUPPRBM.CLIENT_ID ;
>FROM SUP_ACT, SUPPRBM, CONTACT, WORECS ;
>WHERE "A" $ UPPER(SUP_ACT.ACT_NOTES) .AND. ;
>SUPPRBM.CLIENT_ID = SUP_ACT.CLIENT_ID .AND. ;
>SUPPRBM.PROBLEM_ID = SUP_ACT.PROBLEM_ID .AND. ;
>SUPPRBM.USER_ID = CONTACT.CONTACT_ID .AND. ;
>SUP_ACT.USER_ID = CONTACT.CONTACT_ID .AND. ;
>SUPPRBM.CLIENT_ID = WORECS.CLIENT_ID .AND. ;
>SUPPRBM.PROBLEM_ID = WORECS.PROBLEM_ID ;
>INTO CURSOR QMF_TEMP
>
>
>
>SELECT DISTINCT FIELDTRIPINFORMATION.FIELDTRIPID, ;
>DRIVERINFORMATION.DRIVERLASTNAME, DRIVERINFORMATION.DRIVERFIRSTNAME, ;
>VEHICLEINFORMATION.VEHICLEMAKE, VEHICLEINFORMATION.VEHICLEMODE, ;
>VEHICLEINFORMATION.DISTVEHICLEID, FIELDTRIPINFORMATION.APPROVEBY, ;
>FIELDTRIPINFORMATION.CLIENTNAME, CLIENTINFORMATION.CLIENTID, ;
>FIELDTRIPINFORMATION.CONTACTNAME, CLIENTINFORMATION.ADDRESS1, ;
>CLIENTINFORMATION.CLIENTCITY, CLIENTINFORMATION.CLIENTSTATE, ;
>CLIENTINFORMATION.CLIENTZIP, CLIENTINFORMATION.CLIENTPHONE, ;
>FIELDTRIPINFORMATION.DESTINATIONNAME, CLIENTINFORMATION.DISTCLIENTID, ;
>FIELDTRIPINFORMATION.REQUESTPURPOSE, FIELDTRIPINFORMATION.NUMBERSTUDENT, ;
>FIELDTRIPINFORMATION.ENDTIME1, FIELDTRIPINFORMATION.ENDDATE, ;
>FIELDTRIPINFORMATION.STARTDATE, FIELDTRIPINFORMATION.DEPARTTIME1, ;
>FIELDTRIPINFORMATION.ARRIVETIME1, FIELDTRIPINFORMATION.SPECIALNEEDS, ;
>FIELDTRIPINFORMATION.NUMBERADULT, FIELDTRIPINFORMATION.ELEMENTARY, ;
>DESTINATION.ADDRESS, DESTINATION.CITY, DESTINATION.STATE, ;
>DESTINATION.COMMENT, VEHICLEINFORMATION.VEHICLETYPE, ;
>FIELDTRIPINFORMATION.CONTACTPHONE, FIELDTRIPINFORMATION.INSTRUCTION, ;
>FIELDTRIPDRIVER.INSTRUCTION, TFIELDTRIPCLIENTACCOUNT.ACCOUNTNO ;
>FROM FIELDTRIPINFORMATION, DRIVERINFORMATION, VEHICLEINFORMATION, ;
>CLIENTINFORMATION, DESTINATION, FIELDTRIPDRIVER, TFIELDTRIPCLIENTACCOUNT, ;
>FIELDDVTRIPLINK, C:\data\10.1elt\exe\report\printtables\tmptables\FT000001703, ;
>C:\data\10.1elt\exe\report\printtables\tmptables\FT000001704, ;
>C:\data\10.1elt\exe\report\printtables\tmptables\FT000001705 ;
>WHERE .F. UNION ALL ;
>SELECT DISTINCT FIELDTRIPINFORMATION.FIELDTRIPID, ;
>DRIVERINFORMATION.DRIVERLASTNAME, DRIVERINFORMATION.DRIVERFIRSTNAME, ;
>VEHICLEINFORMATION.VEHICLEMAKE, VEHICLEINFORMATION.VEHICLEMODE, ;
>VEHICLEINFORMATION.DISTVEHICLEID, FIELDTRIPINFORMATION.APPROVEBY, ;
>FIELDTRIPINFORMATION.CLIENTNAME, CLIENTINFORMATION.CLIENTID, ;
>FIELDTRIPINFORMATION.CONTACTNAME, CLIENTINFORMATION.ADDRESS1, ;
>CLIENTINFORMATION.CLIENTCITY, CLIENTINFORMATION.CLIENTSTATE, ;
>CLIENTINFORMATION.CLIENTZIP, CLIENTINFORMATION.CLIENTPHONE, ;
>FIELDTRIPINFORMATION.DESTINATIONNAME, CLIENTINFORMATION.DISTCLIENTID, ;
>FIELDTRIPINFORMATION.REQUESTPURPOSE, FIELDTRIPINFORMATION.NUMBERSTUDENT, ;
>FIELDTRIPINFORMATION.ENDTIME1, FIELDTRIPINFORMATION.ENDDATE, ;
>FIELDTRIPINFORMATION.STARTDATE, FIELDTRIPINFORMATION.DEPARTTIME1, ;
>FIELDTRIPINFORMATION.ARRIVETIME1, FIELDTRIPINFORMATION.SPECIALNEEDS, ;
>FIELDTRIPINFORMATION.NUMBERADULT, FIELDTRIPINFORMATION.ELEMENTARY, ;
>DESTINATION.ADDRESS, DESTINATION.CITY, DESTINATION.STATE, ;
>DESTINATION.COMMENT, VEHICLEINFORMATION.VEHICLETYPE, ;
>FIELDTRIPINFORMATION.CONTACTPHONE, FIELDTRIPINFORMATION.INSTRUCTION, ;
>FIELDTRIPDRIVER.INSTRUCTION, TFIELDTRIPCLIENTACCOUNT.ACCOUNTNO ;
>FROM FIELDTRIPINFORMATION, DRIVERINFORMATION, VEHICLEINFORMATION, ;
>CLIENTINFORMATION, DESTINATION, FIELDTRIPDRIVER, TFIELDTRIPCLIENTACCOUNT, ;
>FIELDDVTRIPLINK, C:\data\10.1elt\exe\report\printtables\tmptables\FT000001703, ;
>C:\data\10.1elt\exe\report\printtables\tmptables\FT000001704, ;
>C:\data\10.1elt\exe\report\printtables\tmptables\FT000001705 ;
>WHERE FIELDTRIPINFORMATION.FIELDTRIPID > 0.00 .AND. ;
>UPPER(FIELDTRIPINFORMATION.FIELDTRIPSTATUS) = "SCHEDULED" .AND. ;
>FIELDTRIPINFORMATION.FIELDTRIPID =FT000001703.FIELDTRIPI .AND. ;
>DRIVERINFORMATION.DRIVERLASTNAME =FT000001704.DRIVERLAST .AND. ;
>VEHICLEINFORMATION.DISTVEHICLEID =FT000001705.DISTVEHICL .AND. ;
>FIELDTRIPINFORMATION.MAINCLIENTID = CLIENTINFORMATION.CLIENTID .AND. ;
>FIELDTRIPINFORMATION.MAINCLIENTID = TFIELDTRIPCLIENTACCOUNT.CLIENTID .AND. ;
>FIELDTRIPINFORMATION.FIELDTRIPID = TFIELDTRIPCLIENTACCOUNT.FIELDTRIPID .AND. ;
>FIELDTRIPINFORMATION.DESTINATIONID = DESTINATION.DESTINATIONID .AND. ;
>FIELDTRIPINFORMATION.FIELDTRIPID = FIELDDVTRIPLINK.FIELDTRPID .AND. ;
>FIELDDVTRIPLINK.DRIVERID = DRIVERINFORMATION.DRIVERID .AND. ;
>FIELDDVTRIPLINK.DRIVERID = FIELDTRIPDRIVER.DRIVERID .AND. ;
>FIELDDVTRIPLINK.FIELDTRPID = FIELDTRIPDRIVER.FIELDTRIPID .AND. ;
>FIELDDVTRIPLINK.VEHICLEID = VEHICLEINFORMATION.VEHICLEID ;
>INTO CURSOR QMF_TEMP
>
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform