[Access & SQL] nom des colonnes d'une table [Résolu]

Nicolas - Dernière réponse le 22 août 2011 à 04:04

Bonjour ,
je developpe une application vba sous Access Xp et j'aurais aimer créer une requete me permettant d'obtenir les noms de colonnes de chaque table dans ma base.

ex: select lib_nomcol from table system where nom_table="dde"

J'ai deja réalisé une requete similaire sous sql server, néanmoins (meme en affichant les objets system) je n'est trouvé aucune tables sous access regroupant ces données.
Les seules informations que j'ai trouvé concerne access 97 et ne fonctionne plus...( dans cette versions une table syscolumns etait presente)

Si quelqu'un avait une idée ,
Merci

[Access & SQL] nom des colonnes d'une table »

Suggestions

[Access & SQL] nom des colonnes d'une table
Requête sql espace nom table (Résolu) » Forum
Afficher les champs d'un table Mysql (Résolu) » Forum
[SQL Server] nom des champs d'une table » Forum
Afficher nom colonne/champ d'une table access » Forum
[Access_SQL] Mise à jour d'une table » Forum

Plus

Réponse

Lupin.A 972Messages postés 15 mars 2006Date d'inscription 16 mars 2006 à 15:12

Bonjour,

A défaut d'une requête SQL, ce petit code VBA vous permettra
de connaître les noms de colonne !

Ce code est insérer dans un formulaire qui pointe sur une
requête globale d'une table.

Private Sub ExecuteRoutine_Click()

On Error GoTo Err_ExecuteRoutine_Click

    Dim NombreChamps, Boucle As Integer
    
    NombreChamps = Me.Recordset.Fields.Count
    
    For Boucle = 0 To (NombreChamps - 1)
        MsgBox Me.Recordset.Fields(Boucle).Name
    Next Boucle
    
Exit_ExecuteRoutine_Click:
    Exit Sub

Err_ExecuteRoutine_Click:
    MsgBox Err.Description
    Resume Exit_ExecuteRoutine_Click
    
End Sub

Lupin

Ajouter un commentaire

salem - 22 août 2011 à 04:04

Access 2003 VBA

Pour lister tous les champs de chaque table ou de toutes les tables d'une MDB en cours

Nécessaire et obligatoire
Menu principal : Outils - Références
Coché : Microsoft DAO 3.6 Objet Library

Sub Tables_et_champs()

'Déclaration des variables
Dim dbd As DAO.Database
Dim tbd As DAO.tabledef
Dim fld As DAO.Field

'Prise en main de la MDB en cours
Set dbd = CurrentDb

'Pour chaque table de la MDB en cours
For Each tbd In dbd.TableDefs

'Pour chaque champ dans chaque table
For Each fld In tbd.Fields

'Affiche dans la fenêtre exécution (Menu principale : Affichage)
Debug.Print "Table : " & tbd.name & " Colonne : " & fld.name
Next
Next
Set dbd = Nothing
End Sub

Salem

Réponse

Nico 16 mars 2006 à 15:20

L'idée est bonne merci, je ne connaissais pas la propriété name du recordset!
Néanmoins devant obtenir tout les noms de champs de la base, une requete select* from toute les tables serait tres couteuse en memoire vive a mon avis (la base est assé lourde).

J'ai trouvé une procedure de ce type la qui a mon avis serais plus adaptée:

Public Sub test()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db=CurrentDb
For Each tbd In Db.TableDefs
For Each fld In tbd.Fields
MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
Next
Next
End Sub

Merci , lupin , fidele a ton poste tu as quasiment répondus a chacune de mes questions :)

Ajouter un commentaire

Réponse

random 1622Messages postés 26 novembre 2004Date d'inscription 22 mars 2006 à 13:41

ben normalement on fait
sub mestablesmaschamps
dim x as dao.database
dim y as dao.tabledef
dim z as dao.field
set x=currentdb()
for each y in x.tabledefs
msgbox("la table " & y.name & "a les champs suivants :")
for each z in y
msgbox(z.name 'ici on peut scruter les autres propriétes de l'objet field)
next z
next y
end sub

il est bon de prévoir un test pour écarter les tables systèmes

Ajouter un commentaire

jmjousse - 18 févr. 2009 à 18:33

salut random
Tout d'abord g honte d'etre aussi nul en vb !!
j'aimerai realise ce code mais plutot qu'il attaque toutes les tables de la bd je voudrais qu'il le fasse sur une seule !!
Peux tu me dire comment modifier ton code ?
Merci d'avance
jm

Réponse

belmekki 1 juin 2007 à 16:13

j'aimerai savoir comment réaliser une requete qui parmet d'aficher des noms (nom condidat) donnés dont la dernière lettre et saisie au clavier

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[Access & SQL] nom des colonnes d'une table [Résolu]

[Access & SQL] nom des colonnes d'une table »

Passage au tout numérique : quel coût pour les particuliers ?