Question : Combobox VB6 d'alimentation

Bonjour tous, le besoin du

I de pouvoir alimenter à 2 le combobox mais selon le premier combobox, il filtrera le second.
par exemple : le

If je choisis dans (« ComDateDisponible.text ») le le texte : le 10 août 2010 , il filtrera toute la rangée dans mon DB d'accès qui ont le même texte dans la colonne « Période », et est-ce quealimentation combobox2 (« Des_prod.Text ») avec le texte dans la colonne « Description_du_produit » du même row.

How je peux faire ceci pour satisfaire ?

Thanks pour votre help. class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 :

id= " codeSnippet867810 " class= " de ' date disponible Faible sSQL3 comme corde Faible oConnect3 comme ADODB.Connection Placer oConnect3 = nouvel ADODB.Connection Obscurcir oRST3 comme ADODB.Recordset Placer oRST3 = nouvel ADODB.Recordset sSQL3 = « DISTINCT CHOISI [Période] DE [Inventaire] ' » oConnect3.Open « Provider=Microsoft.ACE.OLEDB.12.0 ;  » et _ « Point d'émission = » et Form4.txt BaseDe.Text "" De ComDateDisponible.AddItem oRST3.Open sSQL3, oConnect3 Faire jusqu'à oRST3.EOF ComDateDisponible.AddItem oRST3 (« Période ») oRST3.MoveNext Boucle

class= de

Réponse : Combobox VB6 d'alimentation

Nous n'avons pas la pleine image, est-ce que mais je vous pense le besoin n'importe quoi de pareil ?

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 :

ComDateDisponible_Click secondaire () Faible sSQL3 comme corde Faible oConnect3 comme ADODB.Connection Placer oConnect3 = nouvel ADODB.Connection Obscurcir oRST3 comme ADODB.Recordset Placer oRST3 = nouvel ADODB.Recordset sSQL3 = « Description_du_produit CHOISI DE [Inventaire] où Periode = » et CDate (ComDateDisponible.Text) oConnect3.Open « Provider=Microsoft.ACE.OLEDB.12.0 ;  » et _ « Point d'émission = » et Form4.txt BaseDe.Text Des_prod.Clear oRST3.Open sSQL3, oConnect3 Faire jusqu'à oRST3.EOF Des_prod.AddItem oRST3 (« Description_du_produit ») oRST3.MoveNext Boucle Sous-marin d'extrémité