Discussion :

[MLD_ACCESS]

Bonjour
J'ai vus ici et sur le web la maniérè de lire le noms des différentes tables et champs de ces tables dans une base access en affichant le résultat par une boite de dialogue , mais si je veux remplir une table avec le noms de ces champs comment faire ? Merci Bcp Marc

[marsouin_89]

Bonjour,

Pour faire cela, interesses toi à DAO et l'objet Recorset.

[Tofalu]

Un exemple de manipulation des objets TableDef et d'un recordset dans le cadre de vos besoins :

Réaliser un dictionnaire de données

[MLD_ACCESS]

Merci à tous la base access ici est parfaite bonne soirée

[MLD_ACCESS]

Bonjour

je re ouvre ce dossier car sur certaines machines au boulot en Access 2007/3 peu importe mon import
DoCmd.TransferText acLinkDelim......

fonctionne sur certains poste et sur d'autres non. il me met tous les champs de ma table dans un seul champs séparés de ";"
comme ci
CHAMPS1
-----------
toto1;toto2;toto3;....

Alors que j'attends

CHAMPS1
-----------
TOTO1
TOTO2
TOTO3

PS aucun format d'import car le fichier csv même s'il porte le même nom n'as pas forcement le même format
j'ai essayer avec : CurrentDb.TableDefs.Refresh sans delier relier le fichier pareil

Merci de votre aide bonne journée
M

[pc75]

Bonjour,

Une autre piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
SQLtemp = SQLtemp & "select * from MaTable where 1 = 2 "
set rstemp = CreateObject("ADODB.Recordset")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=MaBase.mdb"
rstemp.open SQLtemp, connstring
for i = 0 to rstemp.fields.count - 1
   msgbox rstemp.fields(i).name
next
rstemp.close
set rstemp = nothing

[marsouin_89]

Bonsoir,

Jettes un oeil à ce post.

[MLD_ACCESS]

Bonsoir
Merci à tous les 2
La méthode de PC75 je ne la comprends pas...
La méthode de marsouin_89 mon problème c'est que le format de la table à importée n'est pas connu le csv est différent a chaque fois, j'ai essayer de changer le ";" par un "," dans les paramétrés Windows mais rien donc tjrs bloqué

Merci

[paidge]

Salut,

Est-ce que cet exemple pourrait t'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
 
    For Each tdf In CurrentDb.TableDefs
        If (tdf.Attributes And dbSystemObject) = 0 And Left(tdf.Name, 1) <> "~" Then
            Debug.Print "Nom de la Table : " & tdf.Name
            For Each fld In tdf.Fields
                Debug.Print "Nom duchamps : " & fld.Name
            Next fld
        End If
        Debug.Print "=================================="
    Next tdf
    Set tdf = Nothing
    Set fld = Nothing

NB : Il faut activer la bibliothèque DAO.