Boucle d'import de fichier dBase

4 réponses

Otto Haldi

09/06/2006 à 16:49

Bonjour
Je débute en WD.
Comment importer un fichier dbase (clipper) dans un fichier
Hyperfile en mode programmation.

Voici mon idée:
***************
ExPrenom est une chaîne
exNom est une chaîne
exNo est un entier

-> Ici comment effacer la table?
//HSupprime(Adresse)

SI HDBOuvre("DBADRESSE","AD","C:\TEMP\ADRESSE.DBF")=Vrai
ALORS
SI HLitPremier("DBADRESSE")=Faux ALORS
Bip()
FIN

// Boucle pour l'importation
TANTQUE HEnDehors() = Faux
// passe les champs du fichier dbase dans des variables
exPremom = AD.VORNAME
exNom = AD.NAME
exNo = AD.ADR_NR
etc...

// Ajoute les données dans le fichier Adresse.FIC
Adresse.NAME_VORNAME = exNom + " " + exPrenom
Adresse.ADR_NR = exNo
etc...
HAjoute(Adresse)

SI HLitSuivant("DBADRESSE")=Faux ALORS
Bip()
FIN
FIN

SINON
Info("Pas de fichier dbase ADRESSE.DBF!" )
FIN

Malheureusement les variables exPrenom, exNom, etc. restent
vide!

Merci d'avance pour tous renseignements.
Otto

4 réponses

Fredo MT

09/06/2006 à 18:22

"Otto Haldi" a écrit dans le message de news:

Bonjour
Je débute en WD.
Comment importer un fichier dbase (clipper) dans un fichier
Hyperfile en mode programmation.

Voici mon idée:
***************
ExPrenom est une chaîne
exNom est une chaîne
exNo est un entier

-> Ici comment effacer la table?
//HSupprime(Adresse)

SI HDBOuvre("DBADRESSE","AD","C:TEMPADRESSE.DBF")=Vrai
ALORS
SI HLitPremier("DBADRESSE")úux ALORS
Bip()
FIN

// Boucle pour l'importation
TANTQUE HEnDehors() = Faux
// passe les champs du fichier dbase dans des variables
exPremom = AD.VORNAME
exNom = AD.NAME
exNo = AD.ADR_NR
etc...

// Ajoute les données dans le fichier Adresse.FIC
Adresse.NAME_VORNAME = exNom + " " + exPrenom
Adresse.ADR_NR = exNo
etc...
HAjoute(Adresse)

SI HLitSuivant("DBADRESSE")úux ALORS
Bip()
FIN
FIN

SINON
Info("Pas de fichier dbase ADRESSE.DBF!" )
FIN

Malheureusement les variables exPrenom, exNom, etc. restent
vide!

Merci d'avance pour tous renseignements.
Otto

Bonjour,

ton Fichier DBase tu vas juste le lire pour en importer les données :

nomFic est chaine = "DBADRESSE"

SI HDBOuvreSansBloquer(nomFic,"AD","C:TEMPADRESSE.DBF") ALORS
HlitPremier(nomFic,CléParcours) // --> Clé de Parcours =
ID_DBADRESSE -> Clé sur ton fichier DB
TANTQUE PAS HEndehors
Adresse.NAME_VORNAME = {nomFic+".NAME"} + " " +
{nomFic+".VORNAME"}
Adresse.ADR_NR = {nomFic+".ADR_NR"}
Hajoute(Adresse)
Hlitsuivant(nomFic,CléParcours)
FIN
FIN

Otto Haldi

09/06/2006 à 20:43

Merci, pour un premier test cela fonctionne bien.

J'ai juste un problème avec le champ mémo. En fait sous clipper
c'est un fichier DBT.

Avec le code: Adresse.MEMO = {nomFic+".MEMO"}
cela me copie que env. 30 caractères. Dans l'analyse j'ai mis les
options suivantes: MEMO Texte 200.
Y-a-t'il un truc spécifique pour les champs mémo?

NomFic est chaine = "DBADRESSE"

SI HDBOuvreSansBloquer(nomFic,"AD","C:TEMPADRESSE.DBF") ALORS
HlitPremier(nomFic,CléParcours) // --> Clé de Parcours =
ID_DBADRESSE -> Clé sur ton fichier DB
TANTQUE PAS HEndehors
Adresse.NAME_VORNAME = {nomFic+".NAME"} + " " +
{nomFic+".VORNAME"}
Adresse.ADR_NR = {nomFic+".ADR_NR"}
Hajoute(Adresse)
Hlitsuivant(nomFic,CléParcours)
FIN
FIN

eric

10/06/2006 à 09:15

Otto Haldi a écrit :

Bonjour
Je débute en WD.
Comment importer un fichier dbase (clipper) dans un fichier
Hyperfile en mode programmation.

Voici mon idée:
***************
ExPrenom est une chaîne
exNom est une chaîne
exNo est un entier

juste une petite question, tu importes des fichiers de fidelio ?

Merci d'avance pour tous renseignements.
Otto

de rien
eric

--
Les Lapys le lapy world
howto-contribution-forum pour SME
http://leslapys.com

Otto Haldi

11/06/2006 à 22:57

In article , Otto Haldi
wrote:

Avec le code: Adresse.MEMO = {nomFic+".MEMO"}

Cela fontionne maintenant.
J'ai supprimé le champ de la fenètre et l'ai à nouveau
ajouté!

Boucle d'import de fichier dBase

4 réponses

Veuillez sélectionner un problème