[AC-2007] Ajouter mes elements à ma listbox [Résolu]

[comme de bien entendu]

Bonjour,

J'ai fait une connexion en ADO et je récupère les données mais je
n'arrive pas à les intégrer dans ma ListBox.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ADOOpenRecordset()
    Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset, fld As ADODB.Field
    ' Ouverture de la connexion
 
    strSQL = "SELECT * FROM LeTest"
    Set cnn = CurrentProject.Connection
 
    ' Ouverture du Recordset en défilement en avant, et en lecture seule
    rst.Open "SELECT * FROM LeTest", cnn, adOpenForwardOnly, adLockReadOnly
    While (rst.EOF = False)
         Liste2.AddItem (rst.Fields.Item(0).Value)
         rst.MoveNext
    Wend
 
 
    ' Fermeture du Recordset
    rst.Close
End Sub

J'ai l'erreur Objet Requis sur la ligne AddItem, alos qu'en propriété le nom de ma listeBox est bien Liste2" Y aurait il un moyen de récupèrer la liste de mes objets crées pour pouvoir y accéder ?
Merci de votre retour.

cdlt

[marot_r]

La seule méthode que je connaisse pour allimenter une liste sans passer par une requête ou une table est la suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
    dim s as string
 
    While (rst.EOF = False)
         if s<>"" then
           s=s & ";"
         end if
 
         s=s & rst.Fields.Item(0).Value
         rst.MoveNext
    Wend
 
    me.liste2.RowSource=s

C'est assez basic merci mais ça marche :-).

Ne pas oublier : VBA c'est un langage de programmation procédurale (de la même famille que COBOL ou C) AVEC des objets. Ce n'est pas un VRAI langage objet comme VB.Net ou Java.

A+

[comme de bien entendu]

Sauf que sur mon Access l'interpreteur ne comprend pas le Me.
Je n'ai pas le point d'entrée pour accéder à la listbox présente sur mon formulaire.
J'ai essayé avec les différents noms disponibles dans l'interface et je n'obtiens rien. Je n'ai pas de complétion du nom avec le "Me" non plus.
Lorsque je mets 'Me' il met utilisaton incorrecte du mot clef Me.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub ADOOpenRecordset()
    Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset, fld As ADODB.Field
    ' Ouverture de la connexion
    Dim s As String
    s = ""
    strSQL = "SELECT * FROM LeTest"
    Set cnn = CurrentProject.Connection
 
    ' Ouverture du Recordset en défilement en avant, et en lecture seule
    rst.Open "SELECT * FROM LeTest", cnn, adOpenForwardOnly, adLockReadOnly
    While (rst.EOF = False)
         s = s & rst.Fields.Item(0).Value
         rst.MoveNext
    Wend
 
    Me.liste2.RowSource = s
    rst.Close
End Sub

[marot_r]

Ok, désolé je pensais que le code était dans le formulaire qui contenait liste2. me. réfère à l'objet courrant.

Si le formulaire est ouvert tu devrais pour faire :

Code :

[forms]![NomTomFormulaire]![Liste2].RowSource=s

Je ne l'ai jamais fait mais cela devrait fonctionner.

Au passage je t'invite à donner un nom plus significatif, liste2 cela ne révèle pas grand chose un truc du genre ListeCommande ou ListeAchat ou LîstePersonne apporte plus d'information quand au contenu de ta liste.

A+

[comme de bien entendu]

Merci bien de l'info. Je suis en train de redécouvrir Access et je fais un peu des tests dans tous les sens.
Bonne journée.