Bonjour,

J'ai un formulaire où j'ai une connexion avec une base Oracle en passant par ADO.
Je souhaite affecter chaque ligne retournée par la requête sql dans un Textbox.
Mes textbox sont nommé "THEOR1 à THEOR10".
Je souhaite mettre mes controles dans un tableau que je passe à la fonction qui lance le SQL et récupère les lignes.
Je n'arrive pas à mettre mes contrôles dans le tableau.
Voici une de mes tentatives :
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
 
Private Sub RECUP_LIBRA_Click()
 
Dim param(1 To 10) As Control
 
For x = 1 To 10
    For Each Control In UserForm2.Controls
        If TypeOf Control Is MSForms.TEXTBox Then
                   If Control.Name = "THEOR" & x Then
                     param(x) = Control
                     Exit For
            End If
        End If    
    Next Control
Next x
Est-ce possible de faire cela ?

Voici aussi un extrait de la fonction qui va affecter à chaque textbox une des valeurs retournée par la requête. A mon avis elle n'est pas correcte
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set mycn = New ADODB.Connection
 
mycn.Open stConn
x = 0
Set myRS = mycn.Execute(mySQL)
 
For x = 1 To 10
If param(x) <> "" Then
param(x).Value = myRS.Fields(x - 1)
End If
Next x
 
mycn.Close