[Vb 6] ComboBox

[bluelions]

Ho una combobox,caricata da un db con dei dati, ora come faccio a risalire a recuperare l'indice di un valore.
Mi spiego meglio:
La combo è caricata con i seguenti dati:
Pippo
Pluto
Rossi

Ora senza sapere l'ordine in cui sono caricati recuperare la listindex di pluto. Passandogli una stringa dovrei trovare l'indice.

[giano118]

ciao,

voglio chiederti, prima di recuperare i dati nell combo, recuperi i record in un recordset? un aarray?

Originariamente inviato da bluelions
Ho una combobox,caricata da un db con dei dati, ora come faccio a risalire a recuperare l'indice di un valore.
Mi spiego meglio:
La combo è caricata con i seguenti dati:
Pippo
Pluto
Rossi

Ora senza sapere l'ordine in cui sono caricati recuperare la listindex di pluto. Passandogli una stringa dovrei trovare l'indice.

[bluelions]

i dati gia si trovano all'interno,devo soltanto risalire all'indice del testo corrispondente

[giano118]

si certo, ma prima di inserirli nel db avrai interrogato il db in qualche modo!!!
è prorpio lì che devi puntare...nel recordset che ti sei tirato fuori

Originariamente inviato da bluelions
i dati gia si trovano all'interno,devo soltanto risalire all'indice del testo corrispondente

[bluelions]

Scusate tanto,forse non mi sono spiegato bene.
Allora io dovrei risalire all'indice della stringa che si trova all'interno della combo.
Se ho popolato una combo don dei dati dal db,tipo:
Pippo
Pluto
Rossi
Paperino

se nel form load faccio combo.listindex=0
la combo mi seleziona per default pippo,cioè il primo valore.
E quindi io cosa devo fare devo risalire all'indice di Rossi per farlo apparire come default nella combo; se faccio combo.listindex=2 e l'oggetto combo avrà più dati io non troverò più rossi ma un altro nome ed ecco perchè mi servirebbe sapere come posso risalire all'indice partendo dal nome.

[GudFella]

Sub Trova(nome_da_trovare)
    For i = 0 To Combo.ListCount - 1
        Combo.ListIndex = i
        If UCase(Combo.Text) = UCase(nome_da_trovare) Then
            MsgBox "L'indice è " & i & ""
            Exit Sub
        End If
    Next i
End Sub