Discussion :

[Frantz2501]

Bonjour
Je cherche à sortir des données d'une table qui ne comporte pas de clef primaire (c'est mal, je sais). C'est une table qui liste des évènements listés par personnes concernés et par date.

Je fais une rqt Linq pour sortir les champs "Nom" et "Date", mais j'ai plusieurs évènements pour une même date et un même nom. J'ai bien rajouté une clef primaire 'ID', mais cela ne m'aide pas beaucoup.

J'ai tenté de lister à la main les différents enregistrement du résultat de la rqt, sans succès.

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
Dim liste(tableCasiers.Rows.Count, 10) As String
 
            For i = 0 To tableCasiers.Rows.Count
                If tableCasiers.Rows(i).Item("Date").ToString = "" Then Exit For
                If tableCasiers.Rows(i).Item("PJ").ToString = ListBox6.Text Then
                    liste(i, 0) = tableCasiers.Rows(i).Item("PJ").ToString
                    liste(i, 1) = tableCasiers.Rows(i).Item("Date").ToString
                    liste(i, 2) = tableCasiers.Rows(i).Item("Type interaction").ToString
                    liste(i, 3) = tableCasiers.Rows(i).Item("Organisation").ToString
                    liste(i, 4) = tableCasiers.Rows(i).Item("Personne").ToString
                    liste(i, 5) = tableCasiers.Rows(i).Item("Notes").ToString
                    liste(i, 6) = tableCasiers.Rows(i).Item("Notoriety").ToString
                    liste(i, 7) = tableCasiers.Rows(i).Item("Street Cred").ToString
                    liste(i, 8) = tableCasiers.Rows(i).Item("Public Awareness").ToString
                End If
            Next
 
For i = 0 To tableCasiers.Rows.Count
                CasierInteractionCB.Text = liste(i, 2)
                CasierOrgaTextBox.Text = liste(i, 3)
                CasiersPersTextBox.Text = liste(i, 4)
                NotesTextBox.Text = liste(i, 5)
                NotoCB.Text = liste(i, 6)
                StreetCCB.Text = liste(i, 7)
                PACB.Text = liste(i, 8)
 
            Next

Cela tient plus de l'algo que du code, mais je sèche un peu. Si des âmes charitables ont des idées...

Merci

[StringBuilder]

Code sql :

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

1
2
select distinct date, nom
from tatable

[Frantz2501]

Ahem...Effectivement, c'est pas compliqué.
Singulièrement, ça ne fonctionne pas alors que j'aurais juré que c'est la bonne méthode.

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
Dim rqtcasiers = From elt In tableCasiers
            Where (elt.Item("PJ") = casierCB.Text And elt.Item("Date") = ListBox6.Text)
                            Select elt Distinct
 
            NotesTextBox.Clear()
            CasierOrgaTextBox.Clear()
            CasierInteractionCB.Items.Clear()
            CasiersPersTextBox.Clear()
            NotoCB.Items.Clear()
            StreetCCB.Items.Clear()
            PACB.Items.Clear()
 
 For Each p In rqtcasiers
 
                CasierInteractionCB.Text = p.Item("Type interaction").ToString
                CasierOrgaTextBox.Text = p.Item("Organisation").ToString
                CasiersPersTextBox.Text = p.Item("Personne").ToString
                NotesTextBox.Text = p.Item("Notes").ToString
                NotoCB.Text = p.Item("Notoriety").ToString
                StreetCCB.Text = p.Item("Street Cred").ToString
                PACB.Text = p.Item("Public Awareness").ToString
            Next

En fait, les dates apparaissent dans une listbox. Quand l'utilisateur clique sur une date, les autres champs d'info se mettent à jour. Mais j'ai positionné la rqt Linq dans l'évènement listbox_clik. Donc vb génère la rqt à chaque fois, donc le distinct n'agit pas.
J'ai essayé de positionner la variable de résultat de la rqt hors de la procédure (en variable générale), sans résultat.

Actuellement, j'ai

Code :

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

1
2
3
4
5
6
7
8
Sub bouton_Recherche
procédure de recherche
rqt avec distinct
end sub
 
sub listbox_click
alimentation des champs par le résultat de la rqt
end sub

L'idée étant de ne passer la rqt qu'une seule fois. Mais non.