Linq vers DataTable

Bonjour

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

Code:

---

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:

---

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 :

Citation:

---

‘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

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...

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

Citation:

---

Envoyé par jospinkapwa

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:

---

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:

---

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:

---

Dim table As DataTable = query.ToDataTable()

---

Citation:

---

Envoyé par jospinkapwa

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.

Salut

Merci beaucoup.

Grace à votre aide j'ai pu y arriver.

Merci encore

Kapwa