[VB] Combobox

[RegginA]

Ciao,
ho una combobox e all'apertura del form ci vorrei mettere dentro una serie di valori estratti da un db.

Cerco di farlo come segue ma non va bene. Io vorrei fare in modo da visualizzare in quella combobox i dati del campo "compagnia" ed assegnare ad ognuno il suo valore per poi riprenderlo in una query.

es.
Testo Valore
CompagniaA 1
CompagniaC 18
CompagniaZ 19

Do While Not rs.EOF
Combo2.ItemData = rs.Fields("id")
Combo2.List = rs.Fields("compagnia")
rs.MoveNext
Loop

Mi dice che gli argomanti non sono facoltativi.

Poi. come riprendo il valore??? combo2.itemlist????

Grazie

[ddies]

devi usare additem

[RegginA]

Tiu spieghi meglio?

[ddies]

Combo2.clear 'Cancello tutto il contenuto
Do While Not rs.EOF
  Combo2.AddItem  rs.Fields("compagnia")
  Combo2.ItemData(Combo2.ListCount-1) = rs.Fields("id")
  rs.MoveNext
Loop

[sebamix]

Originariamente inviato da RegginA
Tiu spieghi meglio?

Do While Not rs.EOF
Combo2.AddItem = rs.Fields("compagnia")
rs.MoveNext
Loop

se vuoi un combobox legato a una sorgente dati devi usare il DataCombo (che non ricordo in che ocx si trova )

[sebamix]

Originariamente inviato da ddies

  Combo2.AddItem = rs.Fields("compagnia")

AddItem senza "="

[RegginA]

Come ricavo il valore della combobox (il numero dell'id intendo?) per poter fare una query del tipo whre id = " combo2.????


Grazie

[ddies]

where id=" & Combo2.ItemData(Combo2.ListIndex)

[sebamix]

Di prelevare il valore controlla che listindex sia >= 0, così sei sicuro che qualcosa sia selezionato.

Comunque ripeto che il DataCombo sarebbe meglio... anche se è più incasinato;

[RegginA]

Ok, ho usato il datacombo. L'ho collegato ad una sorgente ado e sono riuscito a visualizzare un campo di un database (datafields)

Ora come faccio a fare quella famosa query considerando che quando l'utente seleziona l'item in dei campi testo mi deve mostrare il contenuto del record avente come id il numero che io vorrei associare all'item nella datacombo?

Spero di essermi spiegato!