Injecter csv dans une table access avec VB6

Version imprimable

28/01/2009, 18h52
chefinf

Injecter csv dans une table access avec VB6

Bonjour tous les amis et les passagers de mon super forum,

Alors, je suis entrain de developper une application avec VB6

et je besoin actuellement de savoir comment acceder et copier

le contenu d'un fichier csv dans ma table d'une base des donnees

sous access, mon fichier csv conient 100 lignes et 6 colonnes

donc comment parcourir ces donnees svp et les injecter dans les

colonnes qui lui corresponds dans la table access a partir mon code vb6? et comment

identifier les noms des colonnes (entetes qui sont dans la 1ere lignes)

dans le csv.

Pour plus d'explications voici les structure des fichiers:

Le fichier "Ajout.csv":

Nom Prenom Tel Mail Adresse Ville
N1 P1 T1 M1 A1 V1
N2 P2 T2 M2 A2 V2
....
....
....
N99 P99 T99 M99 A99 V99

Ma base des donnees access "Client.mdb" contient 1 seule table "Contact".

"contact" est la table où je veux inserer les donnees csv.

La structure de la table "Contact" est comme suit:

Nom_Cont Pre_Cont Tel_Cont Mail_cont Adr_Cont Vil_Cont

(Ce sont les entetes des colonnes sous access)

SVP les amis je besoin de ca tres urgent.
29/01/2009, 00h25
OhMonBato

Bonjour,
quel est donc ton problème exact ? Lire le fichier texte ? Enregistrer les données dans la base de données ? L'ensemble ? qu'as tu écrit comme code pour le moment ?
As tu été voir la FAQ et les tutos dont les liens se trouvent dans ma signature et en bas de cette page ?
29/01/2009, 11h38
chefinf
Citation:

Envoyé par OhMonBato

Bonjour,
quel est donc ton problème exact ? Lire le fichier texte ? Enregistrer les données dans la base de données ? L'ensemble ? qu'as tu écrit comme code pour le moment ?
As tu été voir la FAQ et les tutos dont les liens se trouvent dans ma signature et en bas de cette page ?

bonjour,

J'ai fais ça pour le moment:
Code:

1 2 3 4 Open "e:\ajout.csv" For Input As #1 Do While Not EOF(1) Input #1, OuvrirFichier Loop
Ca me donne la ligne entiere de mon fichier, alors que je veux cellule par cellule.

Le resultat de ce code est comme suit:

iteration 1: Nom;Prenom;Tel;Mail;Adresse;Ville
iteration 2: N1;P1;T1;M1;A1;V1
......
29/01/2009, 12h00
OhMonBato

Je ne vois toujours aucune question précise. Je te recommande donc, pour commencer, d'aller voir la FAQ, les tutos, de faire des recherches sur ce forum, tu trouveras des réponses à la manière de lire les fichiers textes ainsi que sur la façon d'alimenter une base de données.
30/01/2009, 19h30
Pascal Lob

Le tuto sur la gestion des fichiers textes est excellent, il m'a permis de résoudre le même soucis avec la fonction split je crois.

il faut faire deux split :
un qui découpe les lignes avec pour délimiteur vbcrlf , puis pour chaque ligne un qui découpe les colonnes avec pour délimiteur le ";"
pour réccupérer le contenu d'un fichier, perso je préfère l'ouverture de celui-ci en Binary et la réccupération en une seule fois du fichier :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim adr As String Dim Contenu As String Dim Lignes() As String Dim Colonnes() As String Dim a As Integer adr = "C:\Monfichier.csv" Contenu = Space(FileLen(adr)) 'dimensionne la variable à la taille du fichier Open adr For Binary As #1 Get #1, , Contenu Close #1 Lignes = Split(Contenu, vbCrLf) 'découpe les lignes et les stock dans le tableau ... ...