VB6 sélction des champs

Résolu
Signaler
Messages postés
44
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
30 août 2010
-
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
-
J'ai réussi à mettre le nom de mes tables dans une combobox je veux mnt que quand je sélectionne une table le champs s'affiche dans une listbox.

merci

GIRAUD MARC

3 réponses

Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Etant donné que tu ne reponds pas, je vais te donner un code tres general. A toi d'dapter.

Aller dans projet -> référence puis cocher ADO Ext FOR DLL AND SECURITY

Public Sub test8()


Dim bdd As New ADOX.Catalog
Dim table As ADOX.table
Dim col As ADOX.Column
Set bdd.ActiveConnection = Ta_Connection


For Each table In bdd.Tables
    For Each col In bdd.Tables(table.Name).Columns
        msgbox "Champ " & col.Name & " de la table " & table.Name 
    Next
Next


End Sub
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Effectue une requete SELECT sur le nom de la table choisi dans le Combo.
Avec un recordset sur ta connection active.

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
Tu pourrais aussi utiliser la propriété rowsource ou source et mettre ta requete dedans