Frage : Zufuhr combobox VB6

Hallo alle,

I Notwendigkeit, in der Lage zu sein, 2 combobox aber abhängig von dem ersten combobox, filtert es einzuziehen das second.
zum Beispiel:

If wähle ich („ComDateDisponible.text“) im den Text vor: 10. August 2010 , filtert er alle Reihe in meinem Zugangs-DB, das den gleichen Text in der Spalte „Période“ haben, und Zufuhr combobox2 („Des_prod.Text“) mit dem Text in der Spalte „Description_du_produit“ des gleichen row.

How kann ich dies tun zu gefallen?

Thanks für Ihr help. 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 ' Datum vorhanden
Schwaches sSQL3 als Schnur
  Schwaches oConnect3 als ADODB.Connection
  Einstellen oConnect3 = neues ADODB.Connection
  oRST3 als ADODB.Recordset verdunkeln
  Einstellen oRST3 = neues ADODB.Recordset


sSQL3 = „AUSERWÄHLTES EINDEUTIGES [Période] VON [Inventaire] '“

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text

ComDateDisponible.AddItem ""
oRST3.Open sSQL3, oConnect3
Bis oRST3.EOF tun
  ComDateDisponible.AddItem oRST3 („Période“)
  oRST3.MoveNext
Schleife

Antwort : Zufuhr combobox VB6

Wir haben nicht die volle Abbildung, aber ich denke Sie Notwendigkeit etwas Ähnliches?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

VorComDateDisponible_Click ()
Schwaches sSQL3 als Schnur
  Schwaches oConnect3 als ADODB.Connection
  Einstellen oConnect3 = neues ADODB.Connection
  oRST3 als ADODB.Recordset verdunkeln
  Einstellen oRST3 = neues ADODB.Recordset


sSQL3 = „AUSERWÄHLTES Description_du_produit  VON [Inventaire] wo Periode =“ u. CDate (ComDateDisponible.Text)

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text

Des_prod.Clear
oRST3.Open sSQL3, oConnect3
Bis oRST3.EOF tun
 Des_prod.AddItem oRST3 („Description_du_produit“)
  oRST3.MoveNext
Schleife

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us