Création d'une base access et d'une table à partir d'un fichier texte (.csv)

Soyez le premier à donner votre avis sur cette source.

Vue 12 625 fois - Téléchargée 2 235 fois

Description

Rappel de la norme d'un fichier .csv :
- Fichier texte classique avec séparateur de champs en point virgule.
- La première ligne du fichier contient les titres des rubriques, elles aussi avec
le même séparateur.

A la création, la table est titrée automatiquement à l'aide des éléments de cette première ligne.

J'ai écrit cet essai sous NT4.5 et je l'ai testé sous XP sans changer les références « Microsoft DAO 3.51 Object Library » d'origine. Il demande simplement la conversion de la base access en version 2000.
J'espère que ce petit programme vous rendra quelques services

Source / Exemple :


Voir le zip

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

aminert2100
Messages postés
82
Date d'inscription
dimanche 15 juin 2003
Statut
Membre
Dernière intervention
8 mai 2008
-
Le fichier Zip est Introuvable !?! :((
cs_jupiter
Messages postés
34
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
9 janvier 2009
-
Le zip est maintenant sur le site, il avait été refusé par l'automate de vbfrance.
olivlec
Messages postés
5
Date d'inscription
lundi 24 mai 2004
Statut
Membre
Dernière intervention
27 mai 2004
-
Bonjour Jupiter,

Ton petit programme m'interresse beaucoup, j'utilise des .CSV à partir desquels je dois créer une base de donnée, mais le problème c'est que dans ton prog, le fichier csv que tu utilises n'est pas séparé par des virgules.

Comment pourrais je faire pour indiquer à ton prog que le séparateur est la virgule et non une colonne d'excel?


Merci d'avance
olivlec
Messages postés
5
Date d'inscription
lundi 24 mai 2004
Statut
Membre
Dernière intervention
27 mai 2004
-
Bonjour Jupiter,

Ton petit programme m'interresse beaucoup, j'utilise des .CSV à partir desquels je dois créer une base de donnée, mais le problème c'est que dans ton prog, le fichier csv que tu utilises n'est pas séparé par des virgules.

Comment pourrais je faire pour indiquer à ton prog que le séparateur est la virgule et non une colonne d'excel?


Merci d'avance
aurelskull
Messages postés
18
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
27 mai 2005
-
petit bout de prog tres interressant :
Line Input #1, LignE
TableW() = Split(LignE, ";")

For i = 0 To UBound(TableW)
Ltitre = Ltitre + TableW(i) + " TEXT"
If i <> UBound(TableW) Then Ltitre = Ltitre + ","
Next i

Merci ;)
2 heures que je cherche qq chose de simple pour ca !!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.