Discussion :

[soso78]

Bonsoir,

Je cherche à lire les champs d'une table en VB6. J'ai bien lu dans la FAQ une routine qui me permet, par une tree view, la base de données.

En reproduisant, puis modifiant cette routine, je n'arrive pas à reproduire le fait de lire les champs d'une table. J'utilise maintenant ceci :

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
  Set rstEnfant = New ADODB.Recordset
  Set rstEnfant = MaConn.OpenSchema(adSchemaColumns, Array(Empty, Empty, strNomTable, Empty))
 
  intcmpt2 = 0
 
  'Accède au premier enregistrement
  rstEnfant.MoveFirst
 
  'Parcours des champs de la table
  Do While Not rstEnfant.EOF
    strFieldName = rstEnfant!COLUMN_NAME
    ListMasterFields.AddItem strFieldName, intcmpt2
 
    rstEnfant.MoveNext
 
    intcmpt2 = intcmpt2 + 1
    rstEnfant.MoveNext
  Loop

J'arrive bien à afficher certains champs mais pas tous !

Pouvez-vous me dire pourquoi ?

Merci.

[ProgElecT]

dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    rstEnfant.MoveNext '1° FOIS
 
    intcmpt2 = intcmpt2 + 1
    rstEnfant.MoveNext '2° FOIS

Dans la même boucle tu fais 2 en AVANT, donc tu ne vois q'un enregistrement sur 2

[soso78]

... Il se fait tard ;-).

Merci