Discussion :

[Link3]

Bonjour,

J'ai un petit problème dans mon application, enfin ce n'est pas vraiment un problème puisque ça marche si je tape 15 lignes de code mais le code devient vite lourd.

J'ai dans mon Form 15 Oracle Adapter avec tous un nom différent.
Pour y accéder je fais donc avec ma méthode Fill.

Code :

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

1
2
3
4
OracleAdapter1.Fill(...)
OracleAdapter2.Fill(...)
(...)
OracleAdapter15.Fill(...)

J'essaye donc de trouver le moyen de faire une ligne du genre :

Code :

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

("OracleAdapter" & Nombre).Fill(...)

Mais je n'arrive pas à trouver comment faire, auriez vous des idées ?
De même est il possible d'appeler une fonction avec des variables de ce type :

Code :

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

1
2
3
4
5
6
Dim MaVariable as String = "Fonction1"
Call MaVariable()
 
Public Sub Fonction1()
'(...)
End Sub

Merci

[Philippe Vialatte]

salut,

essaye de voir si en faisant qq chose comme ca, ca marche :

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub RefreshAdapters()
 
for int i = 1 to 15
CType(Me.Controls.Find("OracleAdapter" &i), OracleAdapter).Fill();
next
 
End Sub

Pour ta seconde question, il faudrait regarder du cote de la reflection...et je suis trop rouille la-dessus

[Link3]

Ce que tu m'as indiqué ne marchait pas mais je te remercie puisque j'ai fais une recherche avec la réflection et je suis tombé sur un sujet qui m'a aidé.

En fait j'utilise maintenant une Hashtable, j'ajoute mes OracleDataAdapter au démarrage dans la Hashtable et ensuite je peux les utiliser avec mes noms de variable.

Code :

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

1
2
3
4
5
6
Dim ListODA As New Hashtable
 
ListODA.Add("ODA1", OracleDataAdapter1)
ListODA.Add("ODA2", OracleDataAdapter2)
'(...)
ListODA.Add("ODA15", OracleDataAdapter15)

Code :

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

ListODA("ODA" & Nombre).Fill(...)