Discussion :

[Krys9292]

Bonjour,

J'ai un problème dans mon application au niveau de conversion de données qu'il me force à faire.

J'ai créé par code des DataTables avec des colonnes de type soit String, soit UInt16 (UShort). Je les remplis avec une base de données. Tout va bien jusque là.

J'ai ensuite une fonction qui extrait des données des DataTables (méthode select...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function ExtractDonneesDataTable(ByVal Dtt As DataTable, ByVal NumChampFiltre As Byte, ByVal ExpressionFiltre As UShort, ByVal NumChampTri As Byte, ByVal ExpressionTri As String) As DataRow()
 
        With Dtt
 
            'Renvoie le résultat en fonction des situations avec un filtre de type UShort
            If NumChampFiltre = 0 And ExpressionFiltre = 0 Then
                If NumChampTri = 0 And ExpressionTri = "" Then
                    Return .Select()
                Else
                    Return .Select("", .Columns(NumChampTri).ColumnName & " " & ExpressionTri)
                End If
            Else
                If NumChampTri = 0 And ExpressionTri = "" Then
                    Return .Select(.Columns(NumChampFiltre).ColumnName & " = " & CStr(ExpressionFiltre), "")
                Else
                    Return .Select(.Columns(NumChampFiltre).ColumnName & " = " & CStr(ExpressionFiltre), .Columns(NumChampTri).ColumnName & " " & ExpressionTri)
                End If
            End If
 
        End With
 
    End Function

Ca fonctionne très bien jusque là.

Ensuite dans un autre Form, je crée un DataRow() pour récupérer le résultat d'une extraction bien précise à partir d'une des DataTables (DttBibliotheque).

Code :

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

Dim DtRow As DataRow() = FormPrincipal.ExtractDonneesDataTable(FormPrincipal.DttBibliotheque, 11, FormPrincipal.NumImageEnCours, 0, "")

Ca se passe bien aussi.

J'affiche ensuite dans un label du Form le résultat d'une nouvelle extraction d'une autre DataTable (DttAnnee) en fonction de la valeur renvoyée par mon ancienne extraction (DtRow(0)(3)). Les deux DataTables sont en lien.

Code :

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

Label2.Text = FormPrincipal.ExtractDonneesDataTable(FormPrincipal.DttAnnee, 0, CUShort(DtRow(0)(3)), 0, "")(0)(1).ToString

Le problème, c'est que je suis obligé dans ce bout de code de laisser la conversion CUShort() autour de DtRow(0)(3) alors qu'il est bien de type UInt16.
Si je l'enlève, il me met "obligation de conversion stricte..."

Je ne comprends pas. Sauf si UInt16 ne corresponde pas à un UShort, et ça pourrait expliquer le problème....

Merci pour vos aides.

[Phil Rob]

Bonjour,

Je peux te confirmer que UShort est bien une appellation synonyme de UInt16.

Pour le reste ...

Thumb down te proposait d'utiliser le DirectCast. Peut-être devrais-tu abandonner ces outils spécifiques issus de la librairie "Visual Basic".
Personnellement, j'utilise CType https://learn.microsoft.com/fr-fr/do...ctype-function :

Code :

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

1
2
3
'UneValeurDuTypeDemande = CType(UneValeurDeTypeQuelconque, TypeDemande)
 
UneValeurUShort = CType(DtRow(0)(3), UInt32)  ' A condition que DtRow(0)(3) soit effectivement convertible en numérique

[Krys9292]

En fait, pour créer les colonnes de ma DataTable, je fais :

Code :

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

1
2
3
4
 With DttGenre.Columns
            .Add("N°", Type.GetType("System.UInt16"))
            .Add("Genre", Type.GetType("System.String"))
        End With

Par exemple.

Donc logiquement, mes données dans la colonne 0 devraient être du UInt16...
Et il veut que je force la conversion... alors que c'est déjà en UInt16...
Je ne comprends pas...

[Phil Rob]

OK pour la création des colonnes mais ton exemple que j'ai repris en partie porte sur la colonne d'indice 3 (la 4ème colonne) : est-elle bien de type numérique ?

Suggestion :
Sais-tu que tu as le choix en Access entre Octet, Entier, Entier Long, ..., pour préciser les types numériques.
Si tu modifiais en Octet le type de numérique des colonnes que tu veux en UInt16, tu pourrais laisser la méthode Fill créer seule tes tables avec les bons types aux bons endroits.



Après vérification, si un champ numérique d'Access est un NumeriqueAuto, celui-là est seulement un entier long.
Mais ceci ne concerne raisonnablement que les Id.

..

[sevyc64]

Quelque soit le type que tu as donné à ta colonne, DataRow.Item() renvoie une variable de type Object. Ta valeur est bien de type UInt16 qui est un type dérivé du type Object.

Donc tu récupère un UInt16 mais sous le type générique Object, qu'il te faut (re)caster en UInt16.

[Krys9292]

Merci à vous deux !

J'adore comprendre et pour le coup, je comprends bien avec vos explications.
J'ai fait un tour sur CType et DirectCast, les différences, les performances, la rapidité de chacun des opérateurs. Mieux documenté en anglais pour le coup.

J'ai appris des tas de choses.

Pour access, j'a pas dû faire attention sur cette possibilité de fixer des UInt16. Je vais regarder cela de près.
Dans ma DataTable, la collonne (3) est bien en UInt16.
Mais comme explique sevyc64, DataRow().Item() renvoie un type Objet, donc ça explique que je dois recaster en UInt16.

Merci à vous.

[Thumb down]

Bonjour,

Code :

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

1
2
3
DtRow(0)(3).Cast(of UInt16)
'je pense que la propriété value doit être du UInt16
DtRow(0)(3).value 'a vérifier.