Vraag : Voer combobox VB6

Hello zullen allen,/>I behoefte

bijvoorbeeld filtreren:

If ik selecteer in combobox1 („ComDateDisponible.text“) de tekst: August zullen 10, 2010, het al rij in mijn toegang db filtreren die de zelfde tekst in kolom „Période“ hebben, en kan het voer combobox2 („Des_prod.Text“) met de tekst in kolom „Description_du_produit“ van zelfde row.

How ik dit alstublieft doen?

Thanks voor uw help.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
" notpretty " 
 ' beschikbare Datum
Schemerige sSQL3 als Koord
  Schemerige oConnect3 als ADODB.Connection
  Vastgesteld oConnect3 = Nieuwe ADODB.Connection
  Schemerige oRST3 als ADODB.Recordset
  Vastgesteld oRST3 = Nieuwe ADODB.Recordset


sSQL3 = „UITGEZOCHTE VERSCHILLEND [Période] VAN [Inventaire] '“

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _
„Gegevens Source=“ & Form4.txt BaseDe.Text

ComDateDisponible.AddItem ""
oRST3.Open sSQL3, oConnect3
Doe tot oRST3.EOF
  ComDateDisponible.AddItem oRST3 („Période“)
  oRST3.MoveNext
Lijn

Antwoord : Voer combobox VB6

Wij hebben niet het volledige beeld, maar denk ik u iets in die aard nodig hebt?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Sub ComDateDisponible_Click ()
Schemerige sSQL3 als Koord
  Schemerige oConnect3 als ADODB.Connection
  Vastgesteld oConnect3 = Nieuwe ADODB.Connection
  Schemerige oRST3 als ADODB.Recordset
  Vastgesteld oRST3 = Nieuwe ADODB.Recordset


sSQL3 = „UITGEZOCHTE Description_du_produit  VAN [Inventaire] waar Periode =“ & CDate (ComDateDisponible.Text)

oConnect3.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _
„Gegevens Source=“ & Form4.txt BaseDe.Text

Des_prod.Clear
oRST3.Open sSQL3, oConnect3
Doe tot oRST3.EOF
 Des_prod.AddItem oRST3 („Description_du_produit“)
  oRST3.MoveNext
Lijn

Sub van het eind
Andere oplossingen  
 
programming4us programming4us