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
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
il faut procéder par étape
- import manuel par fichier, données externes, importer puis créer et sauvegarder un masque d'import par avancé
- écrire une macro ou procédure de transfert transferttext avec en format le nom donné à la sauvegarde en 1
- créer un formulaire lancant cette procèdure après choix éventuel du fichier txt
Merci pour la réponseMais est il possible de le faire à partir de VB6 directement?
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![]()
Bonjour,
Est-ce une anacoluthe ou un oxymore ?directement dans ma base via VB6.
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
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager