Bonjour a Tous !

Voila je veux remplir une listbox du nombre de pièce en stocke par rapport au choix effectué sur une listbox précédente, qui dans cette dernière on sélectionne la pièce dont on veut optenir le nombre.

Je v essayer de résumer en plus clair:

ListCarteMere > on en sélectionne une > affichage du nombre de carte mère en stocke dans la ListNbCarteMere

Voici le code qui sert a remplir ListCarteMere :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim oADORemplirList   As ADODB.Connection
    Dim oRSRemplirList    As ADODB.Recordset
    Dim strSQLRemplirList As String
 
    Set oADORemplirList = New ADODB.Connection
    With oADORemplirList
        .Provider = "Microsoft.jet.oledb.4.0"
        .Mode = adModeShareDenyNone
        .ConnectionString = "E:\Qualification 2007\Fraipont\VB Fraipont Qualif Pc Mag\MagPc.mdb"
        .Open
    End With
    Set oRSRemplirList = New ADODB.Recordset
    strSQLRemplirList = "SELECT fldNom FROM tblCarteMere ORDER BY fldNom"
    With oRSRemplirList
        .CursorLocation = adUseClient
        .Open strSQLRemplirList, oADORemplirList, adOpenForwardOnly, adLockOptimistic
        .Properties.Refresh
        .MoveLast
        .MoveFirst
        Do While Not .EOF
            ListCarteMere.AddItem .Fields("fldNom").Value
           .MoveNext
        Loop
        .Close
    End With
    oADORemplirList.Close
    Set oRSRemplirList = Nothing
    Set oADORemplirList = Nothing
je m'excuse de poser tant de question mais c'est pour mon travail de fin d'année et j'y suis très accroché

S'il faut d'autre information n'hésité pas a me le dire.

Merci pour toute réponse