Re: Manipuler des fichiers DBF |
Sujet: Re: Manipuler des fichiers DBF par Anonyme sur 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 |