Récupérer une valeur retournée par une fonction oracle

Bonjour, j'ai un problème pour récupérer une valeur retournée par une fonction oracle.

Je précise que :
- J'utilise le dll System.Data.OracleClient
- Ma connexion VB/Oracle fonctionne bien puisque j'arrive a exécuter une requête sql et a lire le résultat via un OracleDataReader dans VB.
- Ma fonction Oracle fonctionne bien puisque je récupère bien le résultat en faisant un appel avec un output dans Oracle.
- Le string strConnexion est valide puisque c'est le meme que celui utilisé pour mes tests de requete sql qui ont fonctionnés.

Appel :

Code:

---

monModule.maFonction("pkg_package.fct_getLoginUtilisateur", 1)

---

Fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Function maFonction(ByVal nomProcedure As String, ByVal paramValue As Integer) As String Dim orclConnexion As New OracleConnection(strConnexion) Dim orclCommand As New OracleCommand() orclCommand.Connection = orclConnexion orclCommand.CommandText = nomProcedure orclCommand.CommandType = CommandType.StoredProcedure orclCommand.Parameters.Add("i_pk", OracleType.Number).Value = paramValue orclCommand.Parameters.Add("v_login", OracleType.VarChar).Direction = ParameterDirection.ReturnValue MessageBox.Show(orclCommand.Parameters("v_login").Value) maFonction= "test" 'ne pas tenir compte de cette ligne c'est pour que ca compile End Function

---

Le messagebox s'exécute mais celui ci est vide
Si quelqu'un était capable de m'aider, merci d'avance.

En fait j'ai trouve tout seul grâce a google. Il me manquait le remplissage d'un dataset avant le return. Ce qui donne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function maFonction(ByVal nomProcedure As String, ByVal paramValue As Integer) As String Dim orclConnexion As New OracleConnection(strConnexion) Dim orclCommand As New OracleCommand() orclCommand.Connection = orclConnexion orclCommand.CommandText = nomProcedure orclCommand.CommandType = CommandType.StoredProcedure orclCommand.Parameters.Add("i_pk", OracleType.Number).Value = paramValue orclCommand.Parameters.Add("v_login", OracleType.VarChar).Direction = ParameterDirection.ReturnValue Dim ds As New DataSet Dim orclOda As OracleDataAdapter = New OracleDataAdapter(orclCommand) orclOda.Fill(ds) maFonction= orclCommand.Parameters("v_login").Value End Function

---

et la ca fonctionne