[vb6] ComboBox - Recuperare id della selezione

[stefania_baby]

Ciao a tutti avrei un problemino .. ho caricato gli ingredienti di una tabella in una combo e vorrei che mi venisse restituito l'id dell' ingrediente selezionato, come faccio ? .. questo per ora è il mio codice
Grazie

Private Sub Form_Load()
Dim oRecordsetIngr As ADODB.Recordset
Dim StrIngr As String
Dim c As String


Set oRecordsetIngr = New ADODB.Recordset
StrIngr = "SELECT * FROM t_ingrediente ORDER BY idingrediente"
oRecordsetIngr.Open StrIngr, oConn'

Do While Not oRecordsetIngr.EOF
Cb_ingredienti.AddItem oRecordsetIngr!i_descrizione
oRecordsetIngr.MoveNext
Loop

oRecordsetIngr.Close
Set oRecordsetIngr = Nothing
End sub

[MMarzia]

ciao stefania, ti invito a leggere il nostro regolamento

quale versione di VB utilizzi? ricorda che va sempre specificato nel titolo

[stefania_baby]

Utilizzo vb 6 scusa ma sono ancora un po' inesperta sul forum
Grazie
ciao

[Jupy64]

ciao, quando carichi la combo devi usare la proprietà itemdata.
ad esempio, prendendo il pezzo del tuo codice:

Do While Not oRecordsetIngr.EOF
Cb_ingredienti.AddItem oRecordsetIngr!i_descrizione
Cb_ingredienti.ItemData(Cb_ingredienti.NewIndex) = oRecordsetIngr!idingrediente
oRecordsetIngr.MoveNext
Loop

e per leggere l'id dell'ingrediente devi fare:

Cb_ingredienti.ItemData(Cb_ingredienti.ListIndex)

[stefania_baby]

Grazie mille ora funziona!
ciao