| cyfl |
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
### |
