Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem with APPEND FROM
Message
 
À
07/11/2000 14:26:26
Rebecca Stottlemire
Kansas State Department of Commerce
Topeka, Kansas, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00438579
Message ID:
00439106
Vues:
18
Rebecca,
Have you tried changing all your macros to the
SELECT (gcCurrFile)
format? It handles spaces in the folder and file names more smoothly, and I've found it occasionally solves the kind of problem you're having with differences between operating systems and networks.

HTH
Barbara


>It gives the message Unrecoverable Error: 36, Command contains unrecnognized phrase/keyword.
>
>This is the proc:
>
>PROCEDURE import(gcCurrFile,gcCurrPath)
>_screen.mousepointer = 11
>*close each file, then open exclusive so it can be emptied
>*repoen it, not exclusive, append new data using path supplied
>IF USED(gcCurrFile)
> SELECT &gcCurrFile
> USE
>ENDIF
>
>SELECT 0
>USE &gcCurrFile EXCLUSIVE
>WAIT "Importing " + gcCurrFile WINDOW NOWAIT
>ZAP
>PACK
>USE
>SELECT 0
>USE &gcCurrFile
>APPEND FROM &gcCurrPath SDF
>WAIT CLEAR
>
>IF RECCOUNT(gcCurrFile) > 0
> glSuccess = .T.
>*open import log and add record
> IF USED('implog')
> SELECT implog
> USE
> ENDIF
> SELECT 0
> USE implog IN 0 EXCLUSIVE
> SELECT implog
> DELETE ALL FOR impfile=gcCurrFile
> PACK
> INSERT INTO implog(impdate, impfile, imppath, imprecs);
> VALUES(DATETIME(), gcCurrFile, gcCurrPath, RECCOUNT(gcCurrFile))
> SELECT implog
> USE
> SELECT &gcCurrFile
> USE
>ENDIF
>
>_screen.mousepointer = 0
>
>ENDPROC
>
>Any ideas? Thanks loads,
>Becky
Barbara Paltiel, Paltiel Inc.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform