Discussion :

[thibab]

Bonsoir à tous,
Je suis sous VB.Net 2010 et j'ai fait une requête Linq qui ne fonctionne pas comme je voudrais, explication :
J'ai un DataSet issu d'une base de données. Dans ce DataSet, je sélectionne un certain nombre d'enregistrements et je voudrais pouvoir obtenir l'enregistrement qui a la valeur la plus grande dans la colonne 'Sectime'. J'ai donc fais ma requête qui ressemble à celle ci :

Code :

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

1
2
3
4
 
 Dim maRqtLinq = (From element In monDataSet.Tables("T_FTIR")
                                Where (element.Item("Sectime") > maValeur - 600 And element.Item("Sectime") <= maValeur)
                                Select New With {Key .Sectime = element.Item("Sectime")}).Max

Elle fonctionne tant que la clause WHERE retourne qu'un enregistrement, ensuite, si plusieurs enregistrements sont retournés, j'ai une erreur du type : Au moins un objet doit implémenter IComparable.
Et là, je bloque depuis plusieurs jours. Alors, si quelqu'un avait une idée pour me sortir de là.

Merci beaucoup et bonne soirée.

Thierry

[GuruuMeditation]

Pour que Max fonctionne, il faut qu'il sache comment comparer 2 éléments pour déterminer le plus grand. D'où le besoin d'IComparable. Tu peux essayer avec

Code c# :

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

1
2
 
mondataset.Tables("T_FTIR").OrderBy(d => element.Item("Sectime")).Select(d => new Key {Sectime = e.element.Item("Sectime")}).Last();

C'est du C#, mais facilement traduisible

[thibab]

Bonsoir et merci pour cette réponse mais cette requête ne peut fonctionner car le membre OrderBy n'existe pas pour mon objet "Tables". De plus, pourrais-tu m'expliquer en quelques mots ce que fait cette requête car je n'arrive pas trop à suivre. Je ne suis pas trop habitué à Linq et j'essai de me forcer à l'utiliser.
Merci

Thierry

[GuruuMeditation]

oups. Pour avoir OrderBy, il faut ajouter la référence System.Data.DataSetExtension. Puis :
Using System.Data

Après tu peux utiliser OrderBy

La requête prends les lignes de la table T_FTIR donc la valeur de la colonne 'sectime" est plus grande que (mavaleur - 600) et plus petite que mavaleur (where).
Il crée un type anonyme avec cette valeur comme propriété (select). Et puis il prend le plus grand (max).

[thibab]

Bonsoir,
ces derniers jours je n'ai pas eu le temps de me pencher concrètement sur mon projet.
C'est chose faite aujourd'hui et pour revenir sur mon problème, j'ai bien ajouté la référence System.Data.DataSetExtension mais impossible d'obtenir le membre OrderBy à mon objet monDataSet.Tables("T_FTIR"). Quant au System.Data je l'avais déja importé dans la partie Général/Déclarations.
J'aurai bien aimé savoir pourquoi ? Mais bon... en comprenant ta requête j'ai trouvé une solution qui fonctionne :

Code :

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

1
2
3
4
5
 
 
Dim maRqtLinq = (From element In monDataSet.Tables("T_FTIR")
                                Where (element.Item("Sectime") > maValeur - 600 And element.Item("Sectime") <= maValeur) Order By element.Item("Sectime") Descending
                                Take 1).ToList

Merci encore

Thierry