Valeur retournée par GetFieldType

Je voudrais pouvoir analyser le type d'un champ retourné dans un DataReader
Quelque chose comme

Code:

---

1 2 3 4

LN_IndiceChamp = pData.GetOrdinal(pNomChamp) Select Case pData.GetData.GetFieldType(LN_IndiceChamp) case End Select

---

Je n'arrive pas à trouver la valeur à tester (à mettre après le Case)
Toutes les aides que je trouve sur Internet parlent de Type mais n'en donnent pas l'énumération
Merci d'avance à qui pourra m'aider

Y a pas d'énumération...

Tu peux tester les types qui t'interesse le plus :

Code:

---

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

Dim objType As Type LN_IndiceChamp = pData.GetOrdinal(pNomChamp) objType = pData.GetData.GetFieldType(LN_IndiceChamp) Select Case True Case TypeOf objType Is SmallInt Case TypeOf objType Is Int Case TypeOf objType Is String Case TypeOf objType Is Decimal Case TypeOf objType Is DateTime ' .... End Select

---

Merci
Effectivement c'est ce que je cherche à faire
Le problème est que je me prends un message d'erreur à chaque ligne
Sur les deux premières
Type non défini

Sur les autres
L'expression de type System.Type ne peut jamais être de type String

Faut-il que j'ajoute une ligne Imports en début de module ?

Oui, en effet il y a une erreur. J'étais sur du Sql et j'ai confonfu les types

smallint => Short
int => Integer

Pour le String, j'ai pas compris ?

Tout compte fait, je me rends compte que la solution que je te propose ne marche pas

Essaye ceci plutôt

Code:

---

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

Select Case True Case objType Is GetType(Short) MsgBox("Short") Case objType Is GetType(Integer) MsgBox("Integer") Case objType Is GetType(String) MsgBox("String") Case objType Is GetType(Decimal) MsgBox("Decimal") Case objType Is GetType(DateTime) MsgBox("DateTime") ' .... End Select

---

Je m'en étais sorti en testant la variable avec le debugger et j'avais trouvé ceci

Code:

---

1 2 3

LO_Type = pData.GetFieldType(LN_IndiceChamp) Select Case True Case LO_Type.Name = "Int32"

---

Je vais changer, l'autre exemple est plus propre.

En tout cas merci