Discussion :

[fixfix]

je voudrai savoir comment pouvoir recuperer le resultat d'une de mes requetes et au chargement que les resultats s' ajoute dans ma comboBox

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim rsControleType As ADODB.Recordset
 
    'Appel de la chaine de connexion
    Call Connex
 
    Set rsControleType = New ADODB.Recordset
    rsControleType.Open "SELECT TYP_VOIE_COD FROM GCES_ART_VOIE", cnx, adOpenKeyset, adLockBatchOptimistic
    Set CbType.AddItem = rsControleType

Merci

[pc75]

Bonjour,

Pas testé :

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
 
Dim rsControleType As ADODB.Recordset
 
    'Appel de la chaine de connexion
    Call Connex
 
    Set rsControleType = New ADODB.Recordset
    rsControleType.Open "SELECT TYP_VOIE_COD FROM GCES_ART_VOIE", cnx, adOpenKeyset, adLockBatchOptimistic
if not rsControleType.eof then
   do while not rsControleType.eof
    CbType.AddItem = rsControleType("TYP_VOIE_COD")
    rsControleType.movenext
   loop
end if
rsControleType.close