Discussion :

[ecranbleu27]

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

[ecranbleu27]

je precise que c'est avec adodb

[khany]

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

Par exemple :

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

[ecranbleu27]

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 :

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
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

[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

[ecranbleu27]

ben non justement, puisque je vérifie en meme temps avec ma base, et je choisis là ou il y en a plusieurs....