Discussion :

[Franck.H]

J'ai un problème dans le traitement des valeurs de type DBNull. J'ai peux tester ce que je veux, rien n'y fait...

Code :

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

1
2
3
4
5
w.InsertText("InfosNomAggloAss", IIf(Not _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS = "", _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS.ToString(), ""))
...
w..InsertText("InfosNomAggloAss", IIf(Not _ds.V_INFOS_GENERALES.Item(0).IsNOM_AGGLO_ASSNull(), _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS.ToString(), ""))
...
w.InsertText("InfosNomAggloAss", IIf(Not _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS Is DBNull.Value(), _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS.ToString(), ""))

Y a-t-il une autre solution ? J'ai une quinzaine de lignes de ce genre à la suite et j'aimerais éviter de mettre un bloc Try pour chacune d'entre elles
Le retour m'indique que mon champ est DBNull mais bon, c'est bien ce que je test quoi, c'est un peu débile leur histoire

[Kropernic]

Perso, j'ai aussi toutes les peines du monde à traiter les marqueurs NULL en .NET.

Du coup, je m'arrange pour que mes requêtes ne renvoient JAMAIS de marqueurs NULL.

Et alors tout est beaucoup plus simple

Maintenant, je ne connais pas ton besoin ni ton process flow. Peut-être que ce n'est pas envisageable dans ton cas... (ce serait con )

[mermich]

Salut,

A une epoque j'avais fait un helper qui faisait un try catch bien degueux pour mutualiser ce genre de chose. Cela prenait une lambada en parametre et un second parametre qui definissait la valeur en cas de catch (j'ai plus les sources).

a l'utilisation ca donnait un truc du genre:

Code :

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

w.InsertText("InfosNomAggloAss", _ds.V_INFOS_GENERALES.Item(0).EvaluateOr(i=>i.NOM_AGGLO_ASS.ToString(), "")

De plus, je crois que tu le sais mais le IIF en vbnet execute les deux cotes du if, donc utilisation a proscrire.

[J@ckHerror]

Bonjour,

Je ne comprends pas le problème, je dois passer à coté de quelques choses mais je ne vois pas l’intérêt d'entourer ces lignes d'un try/catch la partie de test sur le DBNull ne peut pas générer d'exception, c'est d'ailleurs à mon sens le but de ce test.
En tout cas je n'ai jamais eu de problème avec les DBNull, après il est vrai que tous mes champs en base sont not null (sauf les blob) mais je tests les champs DBNull pour par exemple savoir si une jointure a échoué.

Sinon pour info (et que mon poste apporte quelque chose ) il existe Convert.IsDBNull

J@ck

[mermich]

@J@ckHerror:
le premier probleme vient du fonctionnement de la methode IIf elle meme:

Because the IIf function does not use short-circuit evaluation, it always evaluates all three of its arguments.

cf:https://msdn.microsoft.com/en-us/lib...or=-2147217396

donc meme si t'as tester le dbnull dans la premier partie du iif, eh bien ceci sera evalue:

Code :

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

 _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS.ToString()

Donc oui la methode IIf est une plaie de vbnet

Ensuite le second 'probleme' vient de la verbosite du truc, c'est hyper penible a copier colle ce genre de ligne.

[J@ckHerror]

Merci Mermich ,
Je suis plus C# du coup les subtilités de IIf me sont inconnues, je pensais que le problème était sur la détection des champs DBNull.
Sinon oui en effet c'est verbeux ... ! il faut tester tous les champs.

Peux être qu'une méthode d’extension sur Object permettrait de rendre le test plus sexy. On passe en paramêtre la valeur par défaut si c'est DBNull.

Quoique avec les type générique un truc comme

Code :

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

1
2
3
4
5
6
7
8
 
        public static T GetValueOrDefaut<T>(this object me)
        {
            if (!Convert.IsDBNull(me))
                return (T)me;
            else
                return default(T);
        }

devrait même être encore plus sexy
Il faudra peut être renforcer les tests pour être sur que le transtypage ne plante pas, mais c'est déjà pas mal comme ça.

Je vais le tester tiens ...

J@ck.

[EDIT] désolé c'est du c#
le code VB equivalent doit pas être loin de :

Code :

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

1
2
3
4
5
6
7
8
 
        <Extension()> 
	Public Sub GetValueOrDefaut(Of T)(ByVal aObject As Object) As T
		If not Convert.IsDBNull(aObject)
			return  CType(aObject,T)
		End If 
			return CType(Nothing, T) 
	End Sub

[Invité]

Bonsoir,
Si tu concatène un chaine vide avec un chaine null tu as un chaine vide!
"" + _ds.V_INFOS_GENERALES.Item(0).NOM_AGGLO_ASS.ToString()