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 :
Est-ce possible de faire cela ?
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
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
Partager