Discussion :

[Emcy]

Bonjours,

Comment faire dans une base de données pour (en DAO) :
- enumérer les tables
- énumérer les colonnes (dire où est la clef primaire)
- énumérer le type des colonnes

pour enumérer le nom des tables, j'étais partie sur cette solution (mais ça m'affiche le nom de tables qui ne sont pas des tables contenant mes données) :

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
39
40
41
42
43
44
Sub Main()
 
    MaBDD = "c:\echange\bd1.mdb"
    MaTable = "Essai"
 
    Call OuvrirConnection
 
    '------ recherche nom des tables -----
    Set MaCollection = RechercheNomTable
End Sub
 
 
Sub OuvrirConnection(Optional MonMotDePasse As String = "")
'Se connecte à la BDD
'MaBDD = Chemin d'acces à la BDD
 
    Dim MonMessageErreur As String
 
    On Error GoTo ErreurOuvrirConnection
 
    ' Ouverture de la base de données
    Set MaConnexion = DBEngine.OpenDatabase(MaBDD, False, False, "MS Access;PWD=" & MonMotDePasse)
 
    Exit Sub
 
ErreurOuvrirConnection:
    MonMessageErreur = "BDD : " & MaBDD & vbCr & Err.Description
    MsgBox MonMessageErreur
    End
End Sub
 
Function RechercheNomTable(Optional a As Boolean = False) As Collection
'renvoie le nom des tables qui sont dans la BDD
 
    Dim MaCollection As Collection
    Dim MonElement As Variant
 
    Set MaCollection = New Collection
 
    For Each MonElement In MaConnexion.TableDefs
        MaCollection.Add MonElement.Name
    Next MonElement
 
End Function

[Frank]

Peut être que ce tutoriel pourra t'aider.

[Emcy]

désolé, j'ai deja cherché sur ce tuto mais je n'ai pas trouvé la réponse (je le trouve pas très clair : manque d'exemple)

[keita]

salut
tu as ecrit:

(mais ça m'affiche le nom de tables qui ne sont pas des tables contenant mes données)

1/ces tables, si je ne me trompe,sont les tables cachées d'access.
2/je sugerre donc de les contourner
a/comme les tables systems d'access ne sont pas nombreuses,les exclure avec l'instruction select case.
select case NomDeTable
case in [NomTableSyst1,NomTableSyst2,NomTableSyst(n)]
' ne rien faire
case else
' ecrire ici le code pour faire ce que tu veux faire de la table

end select
b/(fastidieux mais precis) tu cree une table contenant les noms de toutes les tables de ta BD;et parcourir cette liste à l'aide d'un recordset.cela suppose que tu mettes cette liste à jour au fur et mésure de la creation de nouvelles tables.

[pgz]

Pour filtrer la colection des tables, tu peux t'intéresser à la propriété Attributes( = 0) pour te tables courantes, ou au nom( exclure les Sy...)

En espérant que cela t'aide,

pgz

[Emcy]

Donc si j'ai bien compris cette solution marche (c'est celle qui me semble la plus rigoureuse) ?

Code :

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

1
2
3
4
5
 For Each MonElement In MaConnexion.TableDefs
        If MonElement.Attributes = 0 Then
            MaCollection.Add MonElement.Name
        End If
 Next MonElement

comment fait-on pour determiner le nom des colonnes et la clef primaire ?

[pgz]

Pour les noms des champs, cela devrait être simple. Une Table( objet TableDef) contient une collection Fields d'élément Field dont tu peux consulter les propriétés : Name, attributes ( pour les num auto je crois), ...

Tu devrais trouver par là.

En espérant que cela t'aide,

pgz

[Tofalu]

désolé, j'ai deja cherché sur ce tuto mais je n'ai pas trouvé la réponse (je le trouve pas très clair : manque d'exemple)

En même temps, il fait déjà 100 pages, donc l'alourdir d'exemples aurait été assez lourd d'autant plus que les exemples sont nombreux ici :

http://access.developpez.com/sources

Notamment :

Lister les tables et les champs d'une base de données

Un peu de recherche est parfois nécessaire pour trouver la bonne documentation

[Emcy]

nICKEL

MERCI