nom des colonnes d'une tableRésolu

Question

Bonjour, je sais pas si cette question est deja sur le forum, si oui,
d&#233;sol&#233; de la poser et ca serait sympas de juste m'en indiquer le lien,
sinon merci de vos reponses.



Alors voila je voudrais pouvoir faire un requete  sur une table
avec un "select * from matable where monchamp = mavaleur  " 
et je voudrais remplir un mshflexgrid de 2 colones, l'une avec le nom
de la colone de la table et l'autre avec la valeur (
myrecorset.fields(i)).

mon probleme c de recuperer le nom de chaque colone de la table, je ne sais pas comment faire.

J'espere avoir &#233;t&#233; clair.

Et ca me soulagerais pas mal d'arriver a faire ca pour ne pas avoir a
taper le nom de chaque colone de la table dans chaque ligne de mmon
grid.

Merci d'avance.

BasicInstinct · Accepted Answer

rs : recordset
cnn : connexion
TABLE: le nom de ta table : string

Set rs = cnn.OpenSchema(adSchemaColumns, Array(Empty, Empty, TABLE))
While Not rs.EOF
   MsgBox rs("COLUMN_NAME")
Wend

 BasicInstinct

papi jim · Answer

merci beaucoup pour ta reponse, surtout en si peu de temps, je me
permet de te demander un toout petit complement, car je n'arrive pas a
m'en servir correctement, g mis 'matable' a la ou tu ecris TABLE dans
array(empty,empty,TABLE), mais le truc c'est que ca ne se limite pas
aux colones de ma table... :s   il me sors des colonnes de je
ne sais ou...

Merci encore



et dsl pour ces questions de debutant...

papi jim · Answer

Oublions ma derniere question ridicule, d&#233;sol&#233;... =) j'avais zap&#233; les " " 

Merci encore

papi jim · Answer

heu c encore moi, j'ai un probleme avec le code que tu ma donn&#233;, cela
m'extrait les noms des colonnes dans l'ordre alphabetique et non pas
dans l'ordre des colonnes dans la table, comment y remedier...?

Merci d'avance

BasicInstinct · Answer

aucune idee. Jai jamais eu besoin de connaitre l'ordre des champs

tu appelles bien un recordset apres, non ?
TextBox= rs(NomChamp)

++

 BasicInstinct

papi jim · Answer

En fait j'ai plusieurs table de plus de 50 colonnes &#224; afficher dans un
grid, et je voudrais ne pouvoir cr&#233;er automatiquement les grid j'ai
donc :



    Set myrd = connex.OpenSchema(adSchemaColumns, Array(Empty, Empty, "FactureProd"))

    nbcolone = 0

    While Not myrd.EOF

        nbcolone = nbcolone + 1

        detCmde.Cols = nbcolone

        detCmde.TextMatrix(0, nbcolone - 1) = myrd("COLUMN_NAME")

        myrd.MoveNext

    Wend

    myrd.Close

    Set myrd = Nothing

    

    mysql = "SELECT * FROM FactureProd "

    mysql mysql & " WHERE NumFact " & fichecli.numeroFact & ";"

    myrd.Open mysql, connex

    

    nbligne = 1

    While Not myrd.EOF

        nbligne = nbligne + 1

        detCmde.Rows = nbligne

        For i = 0 To nbcolone - 1

            If Not IsNull(myrd.Fields(i)) Then

               
detCmde.TextMatrix(nbligne - 1, i) = myrd.Fields(i)

            End If

        Next i

      

        myrd.MoveNext

    Wend

    myrd.Close

    Set myrd = Nothing







Sauf que la, comme les nom de colonnes sont dans l'ordre alphabetique
et que mes rs.fields sont dans l'ordre de la table, ben tout est
decal&#233;... :s

 Un id&#233;e serais tres bien venue, sinon je frai tout a la main mais bon... :'(

BasicInstinct · Answer

heu...essai ca :

    nbligne = 1
    While Not myrd.EOF
        nbligne = nbligne + 1
        detCmde.Rows = nbligne
        For i = 0 To nbcolone - 1
            If Not IsNull(myrd.Fields(i)) Then
                detCmde.TextMatrix(nbligne - 1, i) = myrd.Fields(detCmde.TextMatrix(0,I))
            End If
        Next i
      
        myrd.MoveNext
    Wend
    myrd.Close
    Set myrd = Nothing

 BasicInstinct

papi jim · Answer

oui mais non, malheureusement je voudrais garder l'ordre de la table
car il a &#233;t&#233; pens&#233; pour rassembler certaines donn&#233;es et pour mettre les
plus importante au debut...

Enfin, c'est ptet pas possible... :(

En tout cas merci d'avoir pris le temps de t'y interesser et de me repondre....

papi jim · Answer

Je voulais juste preciser que je bossais sur access, mais aujourd'hui
on m'a demand&#233; de passer sur SQLserver et la surprise, les nom de
colonnes sont recup&#233;r&#233;s dans le bon ordre :D vive sqlServer et a bas
access =) 

++ et thx basic instinct

Nom des colonnes d'une table

9 réponses

Discussions similaires