Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problem with APPEND FROM
Message
De
07/11/2000 14:26:26
Rebecca Stottlemire
Kansas State Department of Commerce
Topeka, Kansas, États-Unis
 
 
À
06/11/2000 17:20:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00438579
Message ID:
00438952
Vues:
12
>>I have a procedure which uses the APPEND FROM command to append records from a text file.
>>It works find in Windows 95 and NT, but refuses to work in Windows 2000. Has anyone run into
>>this problem?
>>Thanks,
>>Becky
>
>What does it do? Nothing, throw an error, etc.?

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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform