[VBA Access] -->fichier séparé par par des tabulation -->prob

Marsh Posté le 25-05-2002 à 17:35:32

j'ai un fichier qui est séparé par des tabulations, et je n'arrive pas a importé les données dans des tables

j'arrive a l'ouvrir et tout , mais qd je vais dans la table les données sont décalé
et les 2 premier chiffre sont en plus zapé !!

donc voila , quelqu'un a une solution !!!

merci !

---------------
Les cons, ça ose tout. C'est même à ça qu'on les reconnaît.

Marsh Posté le 25-05-2002 à 17:35:32

Marsh Posté le 26-05-2002 à 19:55:25

up !!!!!!!!!!!!!

---------------
Les cons, ça ose tout. C'est même à ça qu'on les reconnaît.

Marsh Posté le 27-05-2002 à 08:57:48

cyfl a écrit a écrit :

up !!!!!!!!!!!!!

précise un peu...
comment importe tu les données ?
etc...

---------------
Music|Market|Feed|Loom|DVD

Marsh Posté le 27-05-2002 à 11:30:04

code :
quelque explication :
dede1-->la table ou doive etre ranger les infos
enregistrement-->c le type d'enregistrement ( c la ou je met que tel champ a tel longeur)

numfichier = FreeFile
DoCmd.SetWarnings 0
Open "d:\depart\marc\popol.txt" For Binary As #numfichier Len = Len(enregistrement)

###
For compteur = 1 To LOF (numfichier) / Len(enregistrement)

Get #numfichier, compteur, enregistrement
sqltable = "INSERT INTO DEDE1 VALUES
( '" & enregistrement.code & "', '" & enregistrement.date1 & "', '" & enregistrement.date2 & "','" & enregistrement.date & "','" & enregistrement.code2 & "','" & enregistrement.prix & "','" & enregistrement.prix2 & "','" & enregistrement.col & "','" & enregistrement.nom & "','" & enregistrement.agence & "';"
DoCmd.RunSQL sqltable

Next
Close #numfichier
###

---------------
Les cons, ça ose tout. C'est même à ça qu'on les reconnaît.

Marsh Posté le 28-05-2002 à 10:11:13

Up !!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *