2 Combo in lotta tra loro

[dasvidania]

Scusate la stupidaggine del titolo, il mio problema è serio.
Ho una prima comboBox in cui risiedono dati di una Select.
Ho un'altra combo,che dato il valore selezionato dalla prima combo, mi deve filtrare dei dati da una seconda tabella, con una banale Select, utilizzando il criterio Where valore_cercato= valore_primacombo. Il mio problema è che l'istruzione SQL funziona,dal menù Query, ma nella seconda combobox non compare niente. Che posso fare?

[GudFella]

combo.ListIndex = 0

[dasvidania]

Dove la devo inserire quell'istruzione? e + di tutto, a che serve e qual'è il suo significato? , non l'ho mai utilizzata.


Grazie

[GudFella]

quell'istruzione posiziona la combo sul primo elemento

ma la combo è completamente vuota?
dopo l'operazione di filtraggio record carichi i valori nella combo?

[dasvidania]

In teoria la seconda combo dovrebbe contenere il risultato di una query. Addesso ti spiego cosa faccio.

1- Seleziono un valore nella prima combo
2- Vado nella seconda e .. NIENTE
3- Ripeto il passo 1 e vado nell'insieme query e mando in esecuzione la query che dovrebbe restituirmi i dati filtrati. Il risultato è esatto!.

Come è possibile che se seleziono il valore dalla prima combo e lancio la query contenuta nell'insieme query,tutto funziona, mentre se cerco lo stesso risultato nella seconda combo (l'origine dati è la query funzionante) non appare niente? sarà un problema di colonne?

[GudFella]

usi un datacontrol come origine dati della combo?
se è così probabilmente devi dare un refresh al datacontrol o alla combo

altrimenti se usi ado come origine dati devi caricare i valori nella combo:
...
Set rs = conn.Execute("SELECT field1 FROM table1")
Do Until rs.EOF
combo1.AddItem rs!field1
rs.MoveNext
Loop

Private Sub Combo1_Click()
Set rs = conn.Execute("SELECT field1 FROM table2 WHERE field0=" + combo1.text)

Do Until rs.EOF
combo2.AddItem rs!field1
rs.MoveNext
Loop
End Sub
...

spero possa esserti di aiuto,
fammi sapere

[dasvidania]

Uso ADO.
Grazie per il codice, adesso vedo di adattarlo e ti faccio sapere.
Mi spiegi a che serve quel segno + prima di combo1.text?
GRAZIE

[GudFella]

vale come la & (e commerciale)