Re: Manipuler des fichiers DBF

Posté par Anonyme le 25/4/2005 17:41:32

//Dans déclaration global de la fenetre Mettre
EXTERN MonDBF



test est une chaîne
i est un entier

SI PAS HInitHF55(ComplèteRep(fRepEnCours())+"ForxBase.WDD") ALORS
Erreur(HErreurInfo())
SINON

SI PAS HDBOuvre("MonDBF","DB",ComplèteRep(fotowinrep)+"DBFAX\SESSION.DBF") ALORS
Erreur("Impossible d'ouvrir le fichier" + ComplèteRep(fotowinrep)+"DBFAX\SESSION.DBF")
SINON
Info("Ouverture du fichier " + ComplèteRep(fotowinrep)+"DBFAX\SESSION.DBF" + " réussie !")

POUR i = 1 A HNbEnr(MonDBF,hEtatTous)
SI HLit(MonDBF,i)= Faux ALORS
Erreur("Impossible de lire la ligne " + i)
SINON
test = {"DB.IDENT"}
Info(test)
FIN
FIN
FIN
FIN