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
Partager