Discussion :

[zarohn]

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 :

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

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

Fonction :

Code :

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

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.

[zarohn]

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 :

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

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