SpicyJR
Messages postés45Date d'inscriptionsamedi 22 juin 2002StatutMembreDernière intervention24 août 2008
-
11 déc. 2003 à 11:50
SpicyJR
Messages postés45Date d'inscriptionsamedi 22 juin 2002StatutMembreDernière intervention24 août 2008
-
11 déc. 2003 à 15:33
Salut à tous, j'espère que vous pourrez m'aider à avancer ds mon prjet, car là franchement je cale :(
J'explique mon pb :
Je récupère des donnée que j'affiche dans une liste box. Lors d'un clic sur l'un des éléments de la liste, les informations relatif à l'élément cliqué s'affichent dans un formulaire.
J'arrive bien a faire afficher des choses dans ma liste, mais je n'arrive pas à créé des index.
En effet je voudrais indexer mes "nume" (pris d'une base oracle) et récupéré celui ci lors d'un clic...
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 11 déc. 2003 à 12:26
Il faut renseigner la propriété ItemData pour lui attribuer des index pour chaque élément de ta liste, et pour la récupèrer, appelle cette même propriété.
DarK Sidious
[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
SpicyJR
Messages postés45Date d'inscriptionsamedi 22 juin 2002StatutMembreDernière intervention24 août 2008 11 déc. 2003 à 15:33
Nan ça ve pas, c peut ê pas comme ça kil faut l'ecrire :
Private Sub Form_Load()
Dim reqsql As String
Dim identite As String
Set listeenfant = New ADODB.Recordset
listeenfant.CursorLocation = adUseClient
listeenfant.CursorType = adOpenStatic
reqsql = "SELECT nume, nome, prenome FROM ENFANT order by nome, prenome"
listeenfant.Open reqsql, maconnexion
While Not listeenfant.EOF
identite = listeenfant("nome") & " " & listeenfant("prenome")
list_enfant.AddItem identite
list_enfant.ItemData listeenfant("nume")
listeenfant.MoveNext
Wend
End Sub