Discussion :

[Hobbi1]

Bonjour,

Mon projet, sous VB.Net 2012, appelle une procédure stockée d'Oracle. Cette procédure possède plusieurs paramètres IN OUT (Number pour Oracle). Certains de ces paramètres peuvent avoir NULL comme valeur de retour.
Comme je fais une affectation directe de ces paramètres dans des variables VB.Net (Integer), tout marche bien quand les paramètres ont une valeur. Mais quand ils n'en ont pas cela plante.

Donc je voudrais savoir comment tester que la valeur de retour du paramètre Oracle est NULL ?

Code :

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

1
2
3
4
5
6
7
8
' ID_1 a toujours une valeur donc ca marche
ID_1 = cmdProcedure.Parameters("pnum_ID_1").Value
 
' ID_2 peut être NULL ou avoir une valeur.
' Ce code ne marche pas
If Not cmdProcedure.Parameters("pnum_ID_2").Value = System.DBNull.Value Then
   ID_2 = cmdProcedure.Parameters("pnum_ID_2").Value
End If

Merci de votre aide.
Bon(s) code(s) et bonnes fêtes à tous

[DotNetMatt]

L'utilisation de DBNull ne fonctionne que pour les types de données DbType. Pour les OracleDbType, tu peux utiliser ceci :

Code VB.NET :

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

1
2
3
If DirectCast(param.Value, INullable).IsNull Then
    ' Ton code
End If

Car heureusement, les OracleDbType implémentent tous l'interface INullable.

[Hobbi1]

J'ai modifé mon code et j'ai une erreur

Impossible d'effectuer un cast d'un objet de type 'System.DBNull' en type 'Oracle.DataAccess.Types.INullable'.

Comme mon paramètre est IN OUT, je l'ai initialisé

Code :

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

ID_2.Value = System.DBNull.Value

Comme OracleDbType ne possède pas de valeur NULL, je ne sais pas quoi mettre d'autre.

[DotNetMatt]

Tu peux définir le statut du OracleParameter comme ceci :

Code VB.NET :

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

ID_2.Status = OracleParameterStatus.NullInsert

Et en principe ainsi enlever la ligne qui te pose problème.

[Hobbi1]

J'ai enlevé l'initialisation

Code :

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

ID_2.Value = System.DBNull.Value

que j'ai remplacé par

Code :

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

ID_2.Status = OracleParameterStatus.NullInsert

J'ai toujours l'erreur à la ligne

Code :

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

If Not DirectCast(cmdProcedure.Parameters("pnum_ID_2").Value, INullable).IsNull Then