Discussion :

[Tommy57]

Bonjour,

je rencontre un petit soucis

J'ai un dataset contenant plusieurs tables. Je souhaite remplir ma table à partir d'un fichier texte dont les différents champs sont séparés par une virgule.

Jusqu'ici ca va ;-)

Ensuite je souhaite remplir ma table dont j'ai défini les types des colonnes lors de la création. (Ex : col 1 est un string, col2 est un décimal etc)

Je souhaite faire une boucle qui me récupère pour chaque ligne du fichier texte l'élément correspondant à chaque colonne et le cast en fonction du type défini dans ma table

Mais je bloque à ce niveau là :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Do While Not sr.EndOfStream()
                        ligne = sr.ReadLine()
                        tab_temp = ligne.Split(",")
                        For i = 0 To (ds.Tables.Item("Price").Columns.Count() - 1)
                        Dim type_col As Object = ds.Tables.Item("Price").Columns.Item(i).DataType()
                            ligne_temp.Item(i) = CType(tab_temp(i), type_col)
                        Next
                    Loop

Ctype ne reconnais pas type_col. le message d'erreur : Type 'type_col' non defini.

Comment faire pour que Ctype m'accepte le type de la colonne 'i' ?

D'avance merci pour toute l'aide que vous pourrez m'apporter.

Bonne nuit
Tommy57

[tomlev]

CType prend comme argument le nom d'un type, pas un objet de type Type... Tu peux utiliser Convert.ChangeType à la place :

Code :

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

ligne_temp.Item(i) = Convert.ChangeType(tab_temp(i), type_col)

[Tommy57]

Merci Tomlev,

j'ai modifié selon tes conseils, le compilateur l'accepte mais il bloque à l'exécution sur ça :

Ma chaine tab_temp contient que des string
Ma chaine de sortie doit au final contenir : String, INT16, Date, Decimal

Tant qu'il converti de String à string, cela fonctionne, dès qu'il arrive sur le premier Decimal, il me donne une exception :

"Le format de la chaîne d'entrée est incorrect."

J'ai donc essayé les modifs suivantes :

Code :

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

1
2
3
4
 
Dim type_col As TypeCode
                            type_col = Convert.GetTypeCode(ds.Tables.Item("Price").Columns.Item(i))
                            ligne_temp.Item(i) = Convert.ChangeType(tab_temp(i), type_col)

et je reçois l'erreur suivante :

"Le format de la chaîne d'entrée est incorrect.Impossible de stocker <0000000000000004.23> dans la colonne px_achat. Type attendu est Decimal."

Je dois louper un truc mais je n'arrive pas à trouver quoi !! :-(

En fait tant qu'il est en string il le fait bien et dès qu'il rencontre un autre type il râle!

[tomlev]

J'avais pas fait gaffe au début, mais pourquoi tu utilises Convert.GetTypeCode ? Ca ne sert pas du tout à ça... il faut utiliser DataType, comme tu faisais au début :

Code :

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

1
2
Dim type_col As Type = ds.Tables("Price").Columns(i).DataType
ligne_temp(i) = Convert.ChangeType(tab_temp(i), type_col)

(au passage, il n'est pas nécessaire de préciser .Item à chaque fois, c'est implicite)

[chrismonoye]

Bonsoir,
peut être utiliser cette surcharge qui spécifie les formats "culturels" que l'on trouvera dans le fichier texte :

Code :

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

ligne_temp(i) = Convert.ChangeType(tab_temp(i), type_col, CultureInfo.CreateSpecificCulture("en-US"))

Ici ce fichier est anglais ?
A voir.

[Tommy57]

Bonjour,

ca y est, j'ai résolu mon problème.

Dans ma chaine j'avais cette valeur <0000000000000004.23> que je voulais transformer en Decimal. Il me renvoyais une erreur.

J'ai donc rajouter une instruction supplémentaire afin de remplacer le "." par une "," afin qu'il m'accepte cette valeur.

Je vais essayer l'astuce de chrismonoye car il est vrai que le fichier txt semble provenir d'un anglais.

Encore merci à vous pour votre aide !!!! ;-)
Tommy