Discussion :

[jospinkapwa]

Bonjour

J'etais entrain de tester une requete Linq dans VB, ma requete et la suite :

Code :

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

1
2
3
4
5
Dim query = From agents1 In agents.AsEnumerable() _
                 Where agents1.Field(Of String)("lieu")="Kolwezi" _ 
                 select agents1
 
Dim table1 as DataTable=query.CopyToDataTable()

ça marche très bien

mais si je selectionne maintenant même deux colonnes seulement et la requête devient la suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim query = From agents1 In agents.AsEnumerable() _
                 Where agents1.Field(Of String)("lieu")="Kolwezi" _ 
                 select New {
                                  .Matricule=agents1.Field(Of String)("matricule) _
                                  .Nom=agents1.Field(Of String)("nom) _
                                  .Lieu=agents1.Field(Of String)("lieu) _
                                  }
 
Dim table1 as DataTable=query.CopyToDataTable()

j'ai un message d'erreur qui dit :

‘CopyToDataTable is not a member of Système.Data.EnumerableRowCollection(of <anonumous type>)’.

Et quand j’essaie d’afficher ça dans une zone de liste ça marche. Comment faire pour affecter ces données dans un objet DataTable ?

Merci

[tomlev]

Dans la méthode CopyToDataTable, il y a une contrainte sur le paramètre de type T : il doit hériter de DataRow. Or un type anonyme n'hérite pas de DataRow...

[jospinkapwa]

Salut,

Merci pour la réponse, mais y'a t-il pas une autre possibilité pour arriver à copier le résultat dans un datable?

J'ai aussi pensé à une autre possibilité : pour afficher les résultats dans une zone de liste j'ai utilisé une boucle qui ajoute les Items au fur et à mesure. Maintenant dans ma boucle, à la place d'ajouter les Items dans la zonne de liste elle commence plutot à creer des datarow dans mon datatable au fur et a mesure.

Mais essayé de cette idée mais j'etais bloqué quelque.

Toutes vos suggestions pour me débloqué seront les bienvenues.

Merci

[tomlev]

Merci pour la réponse, mais y'a t-il pas une autre possibilité pour arriver à copier le résultat dans un datable?

Ben ça dépend... si tu connais déjà la structure de la table, tu peux simplement faire une boucle :

Code :

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

1
2
3
4
5
6
7
For Each x In query
    Dim row As DataRow = table.NewRow()
    row("Matricule") = x.Matricule
    row("Nom") = x.Nom
    row("Lieu") = x.Lieu
    table.Rows.Add(row)
Next

Si tu veux quelque chose de plus générique, tu peux générer la table dynamiquement par rapport aux propriétés de l'objet, en utilisant la réflexion... Voilà comment on pourrait le faire avec une méthode d'extension :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Imports System.Data
Imports System.Collections.Generic
Imports System.Reflection
Imports System.Runtime.CompilerServices
 
Public Module Extensions
 
    <Extension>
    Public Shared Function ToDataTable(Of T)(source As IEnumerable(Of T)) As DataTable
 
        Dim table As New DataTable()
        Dim properties As PropertyInfo() = GetType(T).GetProperties()
 
        ' On crée les colonnes pour chaque propriété
        For Each p In properties
            table.Columns.Add(p.Name, p.PropertyType)
        Next
 
        ' On crée les lignes pour chaque élément de la séquence
        For Each item In source
 
            Dim row As DataRow = table.NewRow()
 
            ' On copie les valeurs de chaque colonne
            For Each p In properties
                row(p.Name) = p.GetValue(item, Nothing)
            Next
 
            table.Rows.Add(row)
        Next
 
        Return table
 
    End Function
 
End Class

Et pour l'utiliser :

Code :

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

Dim table As DataTable = query.ToDataTable()

J'ai aussi pensé à une autre possibilité : pour afficher les résultats dans une zone de liste j'ai utilisé une boucle qui ajoute les Items au fur et à mesure. Maintenant dans ma boucle, à la place d'ajouter les Items dans la zonne de liste elle commence plutot à creer des datarow dans mon datatable au fur et a mesure.

Je vois pas trop l'intérêt de passer par une zone de liste... Le traitement que tu cherches à faire n'a rien à voir avec l'interface graphique, donc c'est bizarre d'utiliser un composant graphique pour le faire.

[jospinkapwa]

Salut

Merci beaucoup.

Grace à votre aide j'ai pu y arriver.

Merci encore

Kapwa