Discussion :

[zitoune92]

Bonjour,

Je donne ici un exemple de ce que je désirerai faire:

J'ai une 4 tables contenant un seul champ (255 char) qui est en fait l'importation de plusieurs fichiers textes (PERE.txt,MERE.txt,GARCON.txt et FILLE.txt). leur contenu est du type:

Fichier PERE.txt: MERE.txt etc....
"JEAN 40 " "JULIE 35 "
"PIERRE 18 " "MICHELE 20 "
"VINCENT 17 " "LUCIE 13 "
.... ....
La position des 2 éléments est fixe (pas de tab)

Je voudrais inclure tous les enregistrements de ces 4 tables dans une table T1
ayant la structure suivante:
Membre nom age
P JEAN 40
M LUCIE 13
G HENRI 5
....
Le champ "Membre" étant le code de "provenance" (P pour PERE.txt etc...)

Sachant qu'il y a pas mal d'enregistrements dans chaque table provenance (il y en a plus que cela), y-a-t-il une requete SQL me permetytant de réaliser cela ou dois-je passer par du vba et inserer enregistrement par enregistrement ?

Merci de votre attention.

Olivier

[Heureux-oli]

J'ai une 4 tables contenant un seul champ

Essaie d'être plus clair, j'ai pas tout compris.

La position des 2 éléments est fixe (pas de tab)

Qu'entends tu par fixe ?
Toujours le même nombre de caractères ?

[Invité]

Bonjour

Je pense avoir compris, il te faut une requête UNION, fais des recherches sur le forum tu auras des exemples d'application.

Starec

[zitoune92]

Essaie d'être plus clair, j'ai pas tout compris.


Qu'entends tu par fixe ?
Toujours le même nombre de caractères ?

J'ai 4 fichiers texte qui ont n lignes de disons 50 caracteres. Chacune de ces lignes contient le même type de contenu du genre:
nom: BONARD age: 40
nom: HUBERT age: 35

"nom:" et "age:" seront toujours à la même place dans la ligne (caracteres 1 à 4 pour "nom:" et 25 à 28 pour "age:"). Leur variables (BONARD, 40) seront aussi à la même place (5 à 24 et 29 à 50). Si je devais faire en code VB je ferai:
Nom$=MID$(ligne,5,19) et Age$=MID$(ligne,29,3)

Donc au final je voudrais importer ces n fichiers dans une seule table qui aurait la structure suivante:
Provenance,Nom,Age
Provenance étant un code indiquant de quel fichier texte chaque enregistrement provient.
Nom et Age étant l'extraction des variables de chaque ligne.

J'espère avoir été plus clair.

Merci

[Heureux-oli]

La fonction que tu propose en VB existe en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid([ligne], 5 , 19)

Va te donner le nom de la personne.

Tu fais la même chose pour l'âge.

tout ça dans une requête ajout.

Tu vas alors avoir les données dans une seule table.

Par type de fichier, il te suffit dans un champ d'ajouter la lettre P;M;C;Z.

Si tu utilise l'éditeur de requête QBE, c'est plus facile.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom : Mid([ligne], 5 , 19)

Et tu auras un champ Nom dans la table qui contiendra les noms

[zitoune92]

La fonction que tu propose en VB existe en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid([ligne], 5 , 19)

Va te donner le nom de la personne.

Tu fais la même chose pour l'âge.

tout ça dans une requête ajout.

Tu vas alors avoir les données dans une seule table.

Par type de fichier, il te suffit dans un champ d'ajouter la lettre P;M;C;Z.

Si tu utilise l'éditeur de requête QBE, c'est plus facile.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom : Mid([ligne], 5 , 19)

Et tu auras un champ Nom dans la table qui contiendra les noms

J'ai fait 1 premiere requete Q1 avec UNION :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
SELECT "P",Ligne FROM PERE_Import
union
SELECT "M",Ligne FROM MERE_Import
union
SELECT "F",Ligne FROM FILLE_Import
union
SELECT "G",RawLOTE FROM GARCON_Import

puis je fais une requete Q2 avec APPEND:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
INSERT INTO T1 ( Provenance, Nom, Age )
SELECT Q1.Expr1000, Mid$([Ligne ],5,19) AS Expr1, Mid$([RawLOTE],34,3) AS Expr2 FROM Q1;

Et ça marche trés bien. Merci