[VB6]: Associare dati addizionali a elementi di una ListBox

[Veronica80]

Ciao ho un piccolo problema con una listbox!

Allora....io popolo la listbox con i nomi delle aziende di una tabella di un database access.

E nella lista appaiono tutti i nomi in ordine alfabetico.

Io vorrei che cliccando sul nome si apra la scheda dell'azienda (dove ci son tutti i dati).

Solo che la chiave primaria del record è il campo contatore "IDAZIENDA" mentre io popolo la listbox col campo "NomeAzienda"....come faccio a fare la SELECT ???

GRAZIE

[Boolean]

la ListBox possiede la proprietà ItemData, che accetta un valore numerico.

se il tuo campo IDAZIENDA è numerico di tipo Integer, puoi valorizzare la ItemData con il valore proveniente da questo campo.

siccome ItemData è relativo ad ogni Item della ListBox, ti basterà analizzarla per sapere l'ID dell'azienda selezionata.

altrimenti, puoi popolare un array dinamico o una collection con gli ID delle aziende, contestualmente al loro caricamento nella ListBox.
a quel punto ad ogni Item con un certo Index corrisponderà un elemento dell'Array o della Collection con lo stesso indice, contenente l'ID dell'azienda

Boolean

[Veronica80]

grazie boolean!

Ho provato ma non riesco a capire come usarlo....

se scrivo:

list1.itemdata= mioRecord("idAzienda")

mi dice che non è facoltativo...

[Jupy64]

Ciao, ti posto un esempio di come si usa l'ItemData:

For i = 1 To 10
   List1.AddItem "riga " & i
   List1.ItemData(List1.NewIndex) = i
Next

E il valore si recupera cosi : List1.ItemData(List1.ListIndex)

[Boolean]

perfetta la spiegazione di Jupy

nel tuo caso, quindi:

List1.ItemData(List1.NewIndex) = mioRecord("idAzienda").Value

Boolean

[Veronica80]

grazie davvero ragazzi!
Però son un po' impedita...

Cioè...io popolo così:

List1.Clear

Do Until rsRecordset.EOF
    List1.AddItem rsRecordset("Azienda")
    rsRecordset.MoveNext
Loop

non so dove mettere il FOR...visto che non quale valore avrà il campo IDazienda..

e non riesco proprio a capire come usare l'itemdata anche se in linea di massina ho capito come lavora...

....abbiate pazienza!

[Veronica80]

Come non detto! Ci son arrivata

Do Until rsRecordset.EOF
    List1.AddItem rsRecordset("Azienda")
    List1.ItemData(List1.NewIndex) = rsRecordset("idAzienda").Value
    rsRecordset.MoveNext
Loop

End Sub

Private Sub List1_Click()
MsgBox List1.ItemData(List1.ListIndex)

End Sub

Ragazzi mi avete tolta da un vero impiccio! Non so come ringraziarvi!
CIAOOOOO!

[Veronica80]

Ma è normale che mi dica che i dati nn corrispondono.....il campo è di tipo Contatore....ho provato a passargli il valore sia come stringa che come integer....ma nulla...mi dice che il tipo di dati nn corrisponde....

[oregon]

Ma in quale riga e' l'errore?

[Veronica80]

Sulla riga


rsrecordset.open

è un po come se cercassi di mettere una stringa in un campo che ha come formato quello numerico...