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

Question

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

Utilisateur anonyme · Accepted Answer

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

Nico · Answer

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 :)

random · Answer

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

belmekki · Answer

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

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

4 réponses

Discussions similaires