Discussion :

[moht66]

Bonjour à tous !

N'ayant pas trouver de solution à ma question sur la FAQ et sur le forum, je me tourne vers vous pour résoudre ce petit soucis :

J'ai une base de données dans laquelle les descriptions des champs ne sont pas complétés ce qui rend parfois les choses un peu plus longues à comprendre...
J'aimerais compléter ces descriptions (facile ! me direz-vous sauf que je travaille sur une BD de traitement - avec donc sur des tables liées - et que la BD originelle est sur un serveur...). Il faudrait donc que je maile toutes les descriptions des champs au détenteur de la BD originelle.
J'ai donc testé un copier-coller des descriptions des champs (en mode création : Nom du champ, Type de données et Description) afin de créer une liste sur Excel, mais ça ne marche pas :s
Faire des copier-coller pour chaque champ me prendrait pas mal de temps, et la Documentation de la Base de Données disponible sur Access ne résout pas ce kwak...

Quelqu'un aurait-il une solution de génie ? :p

Merci beaucoup !

[pc75]

Bonjour,

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
 
Set Conn = Server.CreateObject("ADODB.Connection")
Set FieldsRs = Server.CreateObject("ADODB.Recordset")
Conn.Open MonDSN
Set WS = server.CreateObject("DAO.DBEngine.36")
set db = WS.Workspaces(0).OpenDatabase(Session("BDD"))
SQL = "Select * from MaTable where 1=2"
fieldsrs.Open SQL, Conn, 0, 1
Set tb = db.TableDefs(Trim(MaTable))
For j = 0 to fieldsrs.Fields.count-1
	MsgBox tb.Fields(fieldsrs.Fields(j).Name & " " & tb.Fields(fieldsrs.Fields(j).Name).Properties("Description").Value & " " & GetFieldType(FieldsRs.Fields(j).type)
 
Next
Set tb = Nothing
fieldsrs.Close
db.Close
Set db = Nothing
Set WS = Nothing
Conn.Close
Set Conn = Nothing

[moht66]

Salut pc75 !

Merci pour le bout de code ! Je vais tester ça !

[moht66]

Nickel !
Merci bien pc75 !!