Information générale
Catégorie:
Codage, syntaxe et commandes
>>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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement