Discussion :

[Moussy]

Salut,

Dans le but de documenter une base ACCESS dans un rapport de présentation, je cherche à récupérer les informations des champs visibles en mode création (Nom des champs, Type de données et surtout Description) dans une table access ou un classeur Excel.

Le but n'est pas d 'afficher uniquement ces informations dans l'interface d'ACCESS mais bien de générer une table automatiquement avec ces métadonnées facilement exploitable sous forme de tableau dans Excel ou Word.

Avant de poster ce message, j'ai trouvé une méthode qui affiche des infos sous forme de treeview, une autre sous forme de boîte de dialogue avec la fenêtre exécution de VBE. Cela ne répond pas à mes besoins et pourtant, je pense que plusieurs personnes ont déjà eu ce soucis.

Merci d'avance pour vos contributions.

Moussy

[pc75]

Bonjour,

Bon, c'est de l'ASP, mais l'idée est là :

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
 
Set Conn = Server.CreateObject("ADODB.Connection")
Set FieldsRs = Server.CreateObject("ADODB.Recordset")
 
Conn.Open Session("DSN")
SelectedTables = Split(trim(SESSION("SelectedTables")),",")
 
       Set WS = server.CreateObject("DAO.DBEngine.36")
       set db = WS.Workspaces(0).OpenDatabase(Session("BDD"))
For i = 0 to ubound(SelectedTables)
	' Récupération des noms de champs
	SQL = "Select * from " & SelectedTables(i) & " where 1=2"
	fieldsrs.Open SQL, Conn, 0, 1
        Set tb = db.TableDefs(Trim(selectedTables(i)))
	For j = 0 to fieldsrs.Fields.count-1
		' Remplissage de la liste
		Description = tb.Fields(fieldsrs.Fields(j).Name).Properties("Description").Value
		Response.Write "<option value=""" & selectedTables(i) & "." & lcase(fieldsrs.Fields(j).Name) & """>" & selectedTables(i) & "." & lcase(fieldsrs.Fields(j).Name) & " (" & GetFieldType(FieldsRs.Fields(j).type) & ")" & Description & vbcrlf
	Next
        Set tb = Nothing
	fieldsrs.Close
Next
 
db.Close
Set db = Nothing
Set WS = Nothing
 
Conn.Close
Set Conn = Nothing
Set Conn = Nothing