Discussion :

[The_Big_Lebowski]

Bonjour,
je suis confronté à une erreur que je ne comprends pas.

Code :

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

1
2
If Not IsDBNull(Rs.Fields("ch0_texte").Value) Then 
C.Texte = Rs.Fields("ch0_texte").Value

Rs.Fields("ch0_texte").Value est bien DBNull mais lors du debuggage, je passe quand même dans le Then.
Une exception est levée :

La conversion du type 'DBNull' en type 'String' n'est pas valide.

C'est un truc de fou.
QQun peut m'expliquer ce qu'il se passe, je ne vois plus rien (
Un espion me permet de vérifier que Rs.Fields("ch0_texte").Value est DBNull. Alors pourquoi le Then est lu ?
Merci

[sevyc64]

IsDBNull c'est un héritage du VB6, utilise plutot la classe DBNull :

Code :

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

If Rs.Fields("ch0_texte").Value <> DBNull.Value Then  C.Texte = Rs.Fields("ch0_texte").Value

[The_Big_Lebowski]

Ca génère une erreur

L'opérateur '<>' n'est pas défini pour les types 'Objet' et system.DBNull

Code :

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

If Not Rs.Fields("ch0_texte").Value Is DBNull.Value Then C.Texte = Rs.Fields("ch0_texte").Value

me renvoit toujours à l'exception :

La conversion du type 'DBNull' en type 'String' n'est pas valide.

[sevyc64]

Oupss, pardon, ça doit plutot être :

Code :

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

If Not Rs.Fields("ch0_texte").Value is DBNull.Value Then  C.Texte = Rs.Fields("ch0_texte").Value

Je me fais toujours avoir avec ce DBNull

[The_Big_Lebowski]

J'ai toujours une erreur.
Pourtant, je teste la valeur de Rs.Fields("ch0_texte").Valueet j'ai bien un system.DBNull.
Pourquoi le code Then est lu, c'est bizarre, j'en perds mes cheveux

[sevyc64]

Alors essaye avec

Code :

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

If Not Rs.Fields("ch0_texte").Value is DBNull Then  C.Texte = Rs.Fields("ch0_texte").Value

Mais normalement tu devrais avoir un message d'erreur là.