datacombo en cascade.

Version imprimable

14/05/2007, 08h24
ecranbleu27

datacombo en cascade.

bjr
VB6
dans un premier datacombo1 je puise une liste d'une table A.
je souhaite dans un deuxieme datacombo2 afficher une nouvelle liste B mais qui n'aurait rapport qu'au choix fait en datacombo1...
exemple je choisis 3 dans mon datacombo1
et je souhaite que s'affiche dans mon datacombo 2 que les enregistrements dont le chps1 est donc égal à 3

TABLE A TABLE B
chps1 chps1 champs2
1 1 blanc
2 1 BLEU
3 2 NOIR
4 3 MARRON
etc.... 3 VIOLET
3 MAUVE
14/05/2007, 08h25
ecranbleu27

je precise que c'est avec adodb
14/05/2007, 10h31
khany

Tu dois faire des SELECT successifs suivant les choix effectués dans tes datacombos !

Par exemple :

Citation:

MonChoix1 = Datacombo1. ... -> élément sélectionné

Rs = "SELECT * FROM MaTable WHERE ChampsX LIKE MonChoix1"
Rs.Open

Set DataCombo2.DataSource = Rs

....

MonChoix2 = Datacombo2. ... -> élément sélectionné

Rs1 = "SELECT * FROM MaTable WHERE ChampsY LIKE MonChoix2"
Rs1.Open

Set DataCombo3.DataSource = Rs1

Dans les grandes lignes, le code est tapé à la volée donc à corriger ;)

merci pour cette réponse,
effectivement j'y suis arrivé par un code similaire
mais le pb que je rencontre (j'ai 3 datacombo; le 2 découle du 1 et le 3 découle du 2)
est que pour le 2 et LE 3 il ne me met que la premiere ligne dans la liste...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Dcbobjet_Change(Index As Integer)
Select Case Index
    Case 3
 
        Dcbobjet(4).Visible = True
 
        Set adoliste = New ADODB.Recordset
        resultat = "select * from chrono WHERE period LIKE  '" & Dcbobjet(3).Text & "' "
        adoliste.Open resultat, adoConnection, adOpenDynamic, adLockOptimistic, adCmdText
        Set Dcbobjet(4).DataSource = adoliste
        Set Dcbobjet(4).RowSource = adoliste
        Dcbobjet(4).DataField = "EPOQUE"
        Dcbobjet(4).ListField = "EPOQUE"
        Dcbobjet(4).SetFocus
 
    Case 4
        Dcbobjet(5).Visible = True
        Set adoliste = New ADODB.Recordset
        resultat = "select * from RECAP where PER like '" & Dcbobjet(4).Text & "'"
        adoliste.Open resultat, adoConnection, adOpenDynamic, adLockOptimistic, adCmdText
        Set Dcbobjet(5).DataSource = adoliste
        Set Dcbobjet(5).RowSource = adoliste
        Dcbobjet(5).DataField = "NOM"
        Dcbobjet(5).ListField = "NOM"
End Select
End Sub

14/05/2007, 10h51
khany

C'est que tu n'as qu'un seul élément qui correspond au SELECT !

Vérifie avec la propriété RecordCount du Recordset ;)
14/05/2007, 10h56
ecranbleu27

ben non justement, puisque je vérifie en meme temps avec ma base, et je choisis là ou il y en a plusieurs....
14/05/2007, 11h20
ecranbleu27

j'ai trouvé
en fait a chaque changement de choix
j'ai defini le "adoliste" (ds mon code) en adoliste1 (pour le dcbobjet(4))
et adoliste2 pour le dcbobjet(5);;