SuperRattata
Messages postés10Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention24 décembre 2004
-
11 déc. 2004 à 15:00
SuperRattata
Messages postés10Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention24 décembre 2004
-
12 déc. 2004 à 21:39
Lier 2 DBcombo sous vb
Répondre à ce message - Imprimer ce message
--------------------------------------------------------------------------------
Bonjour,
J'ai crée un programme sous vb qui utilise une base de donnée.
Celle ci posséde une table appelé METEO, avec une colonne continent et une colonne Pays.
Ex: Afrique Algérie
Afrique Egypte
Afrique Nigéria
Europe France
Europe Belgique
Europe Espagne
Dans ma forme je dispose de 2 DBcombo. Dans la premiere je sélectione le Continent.
Dans la deuxième je voudrais voir apparaitre la liste des pays correspondant au continent sélectionné.
Ex: Dans la DBcombo1 je choisit Afrique
Et dans la DBcombo2 je voudrais voir le choix uniquement entre:
Algérie
Egypte
Nigéria
Pour cela j'utilise une requete SQL mais je ne sais pas comment faire référence au choix de la DBcombo1.
Voici mon code:
Private Sub form_load()
'Pour le premier dbcombo
Datcont.DatabaseName = App.Path & "\bd7.mdb"
Datcont.RecordSource = "SELECT DISTINCT Continent FROM METEO"
'Pour le deuxiéme dbcombo
DatPay.DatabaseName = App.Path & "\bd7.mdb "DatPay.RecordSource "SELECT DISTINCT Pays FROM METEO WHERE Continent'+DBcombo1.text+'"
End Sub
Je sais que cela ne peut pas marchec car le form load est chargé avant l'accés au dbcombo et par conséquent la validation du choix du dbcombo1 cela ne peut influencer celui du dbcombo2.
Mais je ne sais absolument pas comment faire...
cs_bultez
Messages postés13615Date d'inscriptionjeudi 13 février 2003StatutMembreDernière intervention15 octobre 201330 11 déc. 2004 à 15:12
bonjour,
ne faire
DatPay.DatabaseName = App.Path & "\bd7.mdb "DatPay.RecordSource "SELECT DISTINCT Pays FROM METEO WHERE Continent'+DBcombo1.text+'"
que lors d'un choix dans le 1er combo.
Cordialement Bul. [Site] [[mailto:marcelBultez@Tiscali.fr Mail]]