Discussion :

[jean-pierre96]

Bonjour!
J'ai besoin d'aide car je voudrais importer un fichier texte dans une table ACCESS via une fenêtre conçue par mes soins. Comment coder cette importation? Sachant que mon fichier texte contient des champs séparés par des ";"

merci

[random]

il faut procéder par étape

1. import manuel par fichier, données externes, importer puis créer et sauvegarder un masque d'import par avancé
2. écrire une macro ou procédure de transfert transferttext avec en format le nom donné à la sauvegarde en 1
3. créer un formulaire lancant cette procèdure après choix éventuel du fichier txt

[jean-pierre96]

Merci pour la réponse Mais est il possible de le faire à partir de VB6 directement?

[jean-pierre96]

En fait j'aimerai comment il est possible d'importer le contenu d'un fichier texte dans une table ACCESS directement dans ma base base via VB6. C'est peu être pas clair

[AdHoc]

Bonjour,

directement dans ma base via VB6.

Est-ce une anacoluthe ou un oxymore ?

Sinon, en gros, cela revient à lire le fichier ligne par ligne
que l'on éclate dans un tableau suivant le séparateur.
On parcourt ce tableau pour affecter au champs de l'enregistrement.
Maintenant, il y a tous les cas possibles sur l'existence de la base, de la table, de l'enregistrement, sur la structure de la table par rapport aux lignes du fichiers.
Bon courage

[jean-pierre96]

Effectivement suite à une légère frustration je me suis un peu emballé
Oui en fait en cherchant bien, j'ai réussi à effectué la tâche que je voulais, voici le code si ça peut servir à quelqu'un:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Dim db As DAO.Database
Dim rc As DAO.Recordset
Dim Fice As String          ' Chemin et Fichier .txt à traiter
Dim LignE As String
Dim TableW() As String
Dim i As Long
Dim Ltitre As String        ' Ligne description des rubriques
Dim NomTxt As String
Dim NomBd As String
 
NomTxt = Form1.File1.FileName  ' Nom du fichier .txt
NomBd = "C:\Mabase.mdb"         ' Nom base de donnée
 
Set db = DAO.Workspaces(0).OpenDatabase(NomBd) ' Ouverture base
Fice = App.Path + "\" + NomTxt
 
Open Fice For Input As #1            
Set rc = db.OpenRecordset("table_à_remplir", dbOpenTable)   ' Ouverture de la table
 
Do While Not EOF(1)
  Line Input #1, LignE
  TableW() = Split(LignE, ";")
  rc.AddNew
 
  For i = 0 To UBound(TableW)
    rc.Fields(i).Value = TableW(i)                 ' Création d'une ligne
  Next i
 
  rc.Update
Loop
 
MsgBox "Remplissage de la base terminée"
 
Close #1
rc.Close
Set rc = Nothing
db.Close

[sperrel]

Bonjour et simplement merci d'avoir posté le code de votre solution car en effet j'avais le même problème de traitement de fichier texte à importer dans access depuis VB6.
Votre code m'a vraiment aidé
Merci