Discussion :

[chefinf]

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.

[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 ?

[chefinf]

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 :

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

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
......

[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.

[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.

[avigeilpro]

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 :

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

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
...
...