Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problems in migrating to VFP 9.0
Message
De
22/06/2005 03:34:49
 
 
À
17/06/2005 13:16:50
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9
Database:
Visual FoxPro
Divers
Thread ID:
01024304
Message ID:
01025363
Vues:
14
Thank Fabio, I've been away and I red your reply just now.
I'll test your procedure but it sounds like it was a solution to my problem.
:-)
Anyway I think that the class which gave the problem was one containing a MSCAL ole Object . Why I got this error ?
I can open without problem the VCX class till the VFP8 version.
I made the class with VFP6.


Grazie Fabio, sono stato altrove e ho letto solo ora la tua risposta.
Penso che sia la soluzione a questo problema. La aproverò in giornata.
Comunque ho individuato il record birichino. é quello correlato ad una Classe container contenente un oggetto OLE MSCal.
Sai darmi una spiegazione logica a questi errori ?
Ciao e grazie ancora
>>I got into an error in opening a vcx file built in previuos version.
>>The error is mentioned even in the VFP help but I haven't undersatood very well what to do. Anyway this morning I realized that it was just a record in the vcx table that had the error, so I manually deleted it and succed in opening the vcx file with VFP 9.
>>Then I tried to recompile the project but I got in the same error with the pjt file.
>>How come ? Any Ideas ?
>>I was thinking about putting all th class definition in a prg file. What do you think about that ?
>
>Alessio, prova questo
>
>* !!!!!!!!! do a full backup !!!!!!!!!
>
>ProjectPack(GETFILE('pjx'),0)
>
>PROCEDURE ProjectPack(projectName,validateLevel)
>IF EMPTY(m.projectName)
>	RETURN
>ENDIF
>CLOSE ALL
>SET EXCLUSIVE ON
>PRIVATE oFile,validateOld
>validateOld = SET("TABLEVALIDATE")
>SET TABLEVALIDATE  TO  EVL(m.validateLevel,0)
>USE (m.projectName)
>PACK
>USE
>MODIFY  project (m.projectName) NOWAIT
>
>FOR EACH oFile IN _VFP.Application.ActiveProject.Files
> TRY
>  IF m.oFile.Type $ 'dDQKRBV'
>    USE (m.oFile.Name)
>    WAIT WINDOWS m.oFile.Name TIMEOUT 0.1
>    PACK
>    USE
>  ENDIF
> CATCH
> ENDTRY
>ENDFOR
>WAIT CLEAR
>SET TABLEVALIDATE  TO  m.validateOld
>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform