[VB6] ComboBox e record

[queentone]

Ciao!!
Ho popolato un combo con un campo NOMI di una tabella access utilizzando come valore per l'indice l'ID del record.
Vorrei in un secondo momento fornendo l'ID selezionare nella combo il nome relativo.
Ho provato in questo modo:

cmbNomi.ListIndex = rs.Fields("ID")

ma mi da errore 380:valore di proprietà non valido!!
Come posso fare?
Grazie in anticipo!!!

[ladyBlu]

Originariamente inviato da queentone
Ciao!!
Ho popolato un combo con un campo NOMI di una tabella access utilizzando come valore per l'indice l'ID del record.
Vorrei in un secondo momento fornendo l'ID selezionare nella combo il nome relativo.
Ho provato in questo modo:

cmbNomi.ListIndex = rs.Fields("ID")

ma mi da errore 380:valore di proprietà non valido!!
Come posso fare?
Grazie in anticipo!!!

ciao.

devi tenere presente che l'index degli item di una combo devono partire da 0.
Quindi il primo elemento della combo deve avere Index = 0.

per richiamare l'elemento corrispondente all'id che estrai dal db va bene il codice che hai scritto.
Guarda l'esempio:

Private Sub Form_Load()
   Combo1.AddItem "uno", 0
   Combo1.AddItem "due", 1
   Combo1.AddItem "tre", 2
   Combo1.AddItem "quattro", 3
   Combo1.AddItem "cinque", 4
End Sub

Private Sub Command1_Click()
   Combo1.ListIndex = 3
End Sub

[mgmg]

Puoi provare:

Combo1.Text = Combo1.List(rs("ID"))

Ciao

[queentone]

Il problema è che il campo ID non parte da 1 e contiene numeri non in stretta successione, vale a dire c'è 1432,1446,2344,2346 per esempio!

Grazie intanto per i suggerimwnti!!

[power.mobile]

puoi fare un ciclo for next x scorrerti tutta la lista.

[pierabo]

Originariamente inviato da queentone
Ho popolato un combo con un campo NOMI di una tabella access utilizzando come valore per l'indice l'ID del record.

Ciao, la scelta del combo è conveniente solo se non hai tanti elementi. Se vuoi mostrare nel combo solo i nomi, crea un altro Combo invisibile (p.es. Combo2), nel quale carichi solo gli ID.

per trovare il listindex del nome con ID 3215:
Combo1.Listindex=CercaInCombo(3215)

Function CercaInCombo(DaCercare As Long) As Long
'questa funzione ricerca all'interno dell'elenco completo
Dim Ind
CercaInCombo = -1
With Combo2
For Ind = 0 To .ListCount - 1
If Val(.List(Ind)) = DaCercare Then
CercaInCombo = Ind
Exit For
End If
Next Ind
End With

End Function

[power.mobile]

non c'è bisogno che crei un'altra combo invisibile.
basta che assegni l'id all'ItemData che non è altro che una collezione di integer con lo stesso indice della lista che visualizzi... per tirartelo fuori quando selezioni un elemento basta che fai:

combobox1.itemdata(combobox1.listindex)