Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Appending from several tables
Message
 
À
19/04/2007 16:38:20
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01217264
Message ID:
01218462
Vues:
16
Rich

You code is good and appends from tables of the old folder
to all tables of the new folder

However I notice that if there is a table present only in the old
folder that is not present in the new folder it will try to append

How can I skip the code from processing tables that only exist
on the old folder ?



lcAppendIntoPath = ADDBS(myIntoPath)
lcAppendFromPath = ADDBS(myFromPath)
lnNumTables = ADIR(aTables,lcAppendFromPath+"*.dbf")
SELECT 0
FOR I = 1 TO lnNumTables
TRY
USE (lcAppendIntoPath+aTables[i,1] EXCLUSIVE
ZAP
APPEND FROM (lcAppendFromPath+aTables[I,1])
CATCH
=MESSAGEBOX("Cannot open "+lcAppendIntoPath+aTables[I,1])
ENDTRY
ENDFOR
USE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform