Injecter csv dans une table access avec VB6 Fermé

Question

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.

lermite222 · Answer

Bonjour,
Juste pour la séparation en entrée du #cvs.
Dépend du séparateur de ton fichier cvs supposons la virgule
Après avoir ouvert le fichier...
Dim Entree as string
Dim TB
    Line Input #filenumber, Entree 
    TB = Split(Entree,",")
Dans le tableau TB(0),  TB(1) etc. tu à les valeurs de tes colonnes
Si ça peu faire avancer le schmilblick...
A+

Injecter csv dans une table access avec VB6

1 réponse

Discussions similaires