Discussion :

[Delphi-ne]

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

Code :

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

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

[Kelpan]

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

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

Code :

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

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

[Delphi-ne]

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 ?

[Kelpan]

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 ?

[Kelpan]

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

Essaye ceci plutôt

Code :

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

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

[Delphi-ne]

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

Code :

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

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