Fråga : Matningscombobox VB6

Alla hälsningar, behov för

I att vara kompetent att mata 2 combobox men beroende av den första comboboxen, det ska filtrerar second. For example:

If jag väljer i (”ComDateDisponible.text”) texten: August 10, 2010, alla den ska filtrerar ror i min tar fram db som har den samma texten i kolonnen ”Période”, och matning combobox2 (”Des_prod.Text”) med texten i kolonnen ”Description_du_produit” av den samma row.
How kan jag göra denna behar?

Thanks för din help. > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
" codeBody " ' daterar tillgängligt Dunkel sSQL3 som stränger Dunkel oConnect3 som ADODB.Connection Uppsättning oConnect3 = ny ADODB.Connection Dunkel oRST3 som ADODB.Recordset Uppsättning oRST3 = ny ADODB.Recordset sSQL3 = ”VALT DISTINKT [Période] FRÅN [Inventaire] '”, oConnect3.Open ”Provider=Microsoft.ACE.OLEDB.12.0; ” & _, ”Data Source=” & Form4.txt BaseDe.Text ComDateDisponible.AddItem-"", oRST3.Open sSQL3, oConnect3 Gör till oRST3.EOF ComDateDisponible.AddItem oRST3 (”Période”) oRST3.MoveNext Kretsa
" klar "

Svar : Matningscombobox VB6

Vi har inte den full att föreställa, utan I-funderare som du behöver något att gilla detta?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

UnderComDateDisponible_Click ()
Dunkel sSQL3 som stränger
  Dunkel oConnect3 som ADODB.Connection
  Uppsättning oConnect3 = ny ADODB.Connection
  Dunkel oRST3 som ADODB.Recordset
  Uppsättning oRST3 = ny ADODB.Recordset


sSQL3 = ”VALDA Description_du_produit  FRÅN [Inventaire] var Periode =” & CDate (ComDateDisponible.Text)

oConnect3.Open ”Provider=Microsoft.ACE.OLEDB.12.0; ” & _,
”Data Source=” & Form4.txt BaseDe.Text

Des_prod.Clear
oRST3.Open sSQL3, oConnect3
Gör till oRST3.EOF
 Des_prod.AddItem oRST3 (”Description_du_produit”)
  oRST3.MoveNext
Kretsa

Avsluta suben
Andra lösningar  
 
programming4us programming4us