[VB6] ListBox e interazione con database

[aledg]

Ciao Ragazzi

ho inserito questo codice per visualizzare in una list box i valori del mio database

---------------------
Do Until rs.EOF = True

List1.AddItem rs("cognome")

rs.MoveNext

Loop
---------------------
e fin qui tutto ok.

vorrei però fare una roba di questo genere, visualizzare nella list box il valore del campo cognome, però il valore della listbox di quel campo deve essere il valore del campo id.

in html lo faccio così: ESEMPIO con una select

<select name="D1">
<option value="ID">COGNOME</option>
</select>

in questo modo mi visualizza il cognome, però il valore è ID.

Spero di essermi spiegato bene
HELP ME!

[Brainjar]

Per questo tipo di problemi è stato aggiunta a VB60 la proprietà
ItemData.

Fai una ricerca su MSDN o el fourm o addirittura su Google.
Troverai una marea di esempi.

[Brainjar]

Ho scritto 'aggiunta' perchè fino alla 3.0 ti dovevi creare una
combo parallela, invisibile, per i valori degli ID o simili.

[aledg]

Ciao

ho provato così ma mi dice utilizzo non valido del property.
purtroppo il mio MSDN non funziona scusate se rompo troppo le scatole.

-----------------------------------------
Do Until rs.EOF = True

stringa = rs("data") & " ; " & rs("trattamento") & " ; " & rs("varie")

List2.AddItem ("stringa")
List2.ItemData rs("ID")

rs.MoveNext

Loop
------------------------------------------

[Brainjar]

Do Until rs.EOF = True 

stringa = rs("data") & " ; " & rs("trattamento") & " ; " & rs("varie") 

List2.AddItem ("stringa")
List2.ItemData(List2.NewIndex) = rs("ID") 

' List2.ItemData rs("ID") 

rs.MoveNext 

Loop

  ' Per ottenere il valore 
  
  id = List2.ItemData(List2.ListIndex)

[aledg]

SEI UN GRANDE !!!!! funziona perfettamente.

Grazie