Discussion :

[Loic4891]

Bonjour a tous. Voila j'ai un problème avec l'affichage de ma base de donnée dans une ListBox. J'ai deux ListBox nommé ListeCLient et ListAffaireClient et aussi un TexteBox1 qui me sert temporairement a me donnée le NumeroCLient de ma ListCLient (c'était pour debogger mon programme).

Lors du chargement du programme je viens mettre la liste de mes clients via la database dans ma ListBox "ListeCLient". Puis lorsque je clique sur un client quelconque il m'affiche bien les affaires de mon client mais a l'affichage les affaires s'additionne dans ma ListeBox "ListeAffaireClient".

C'est a dire par exemple, 1er client contient AFF1 puis AFF2, client deux contient AFF3 puis AFF4. Lorsque je clique sur le premier client dans ListeClient, ListeAffaireClient affiche AFF1 et AFF2, puis lorsque je clique sur le deuxième client, il m'affiche AFF3, AFF4, AFF3 et AFF4 qu'alors il n'y en as que deux.Quel serait mon erreur dans mon code que voici

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
Private Sub ListeClient_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeClient.SelectedIndexChanged
 
        If ListeClient.SelectedIndex <> -1 Then
            TextBox1.Text = CType(ListeClient.SelectedValue, String)
        End If
 
        strSql = "SELECT Affaires.* FROM Affaires"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "Affaires")
        ObjetDataTable = ObjetDataSet.Tables("Affaires")
 
        Dim i As Integer
 
        For i = 0 To ObjetDataSet.Tables("Affaires").Rows.Count - 1
            ListeClient.SelectedItem = ObjetDataSet.Tables("Affaires").Rows
            ListeAffaireClient.DataSource = ObjetDataSet.Tables("Affaires")
            ListeAffaireClient.DisplayMember = TextBox1.Text
        Next i
    End Sub

Merci pour votre aide

[Pol63]

Quel serait mon erreur dans mon code

je ne vois pas trop, je ne suis pas fan des dataset, mais c'est peut le fait que les variables soient utilisées plusieurs fois
essaye en faisant un nouveau dim sur dataset et datatable

en tout cas c'est pas génial

Code :

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

1
2
3
Handles ListeClient.SelectedIndexChanged
+
SELECT Affaires.* FROM Affaires

à chaque clic sur le listbox client tu va chargers toute la table ?

=>

Code :

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

select que les colonnes nécessaires si possible from Affaires WHERE IdClient = le client sélectionné dans le listbox client

ou alors tu charges toute la table une fois (donc pas ici) et tu filtres au moment de la lecture du datatable

[Loic4891]

Bonjour et merci pour votre aide voila ce que j'ai actuellement avec mon code voir l'image Description.jpg

Et voici ce que je souhaite affiché, voir l'image Description2.jpg

Voici ma base de donnée, voir l'image Description3.jpg

Et donc je n'arrive a voir ou ce trouve mon erreur ou ce que je ne gère pas mais tous s'ajoute. J'ai essayé d'utiliser la fonction Clear() de ListBox mais il me fait une erreur. Voila

[Loic4891]

C'est bon, merci pour votre aide, vous aviez raison sur le faite de cliquer a chaque fois sur ma ListBox ListeClient je rechargeais a chaque fois ma Table et je pense que c'était aussi le problème. J'ai donc remonter quasiment tous mon code dans le Load de ma form et donc il me rest plus que :

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
37
38
Private Sub ECLogistique_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= I:\Auto-Entrepreneur\Electro Concept Logistique\Electro Concept Logistique\ECLogistique.mdb;"
        strSql = "SELECT Client.* FROM Client ORDER BY NomSociete ASC"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "Client")
        ObjetDataTable = ObjetDataSet.Tables("Client")
 
        ListeClient.DisplayMember = "NomSociete" '& "Numerodeclient"
        ListeClient.ValueMember = "Numerodeclient"
        ListeClient.DataSource = ObjetDataSet.Tables("Client")
 
        strSql = "SELECT Affaires.* FROM Affaires"
        ObjetConnection = New OleDbConnection
        ObjetConnection.ConnectionString = strConn
        ObjetConnection.Open()
        ObjetCommand = New OleDbCommand(strSql)
        ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
        ObjetCommand.Connection() = ObjetConnection
        ObjetDataAdapter.Fill(ObjetDataSet, "Affaires")
        ObjetDataTable = ObjetDataSet.Tables("Affaires")
 
        ListeAffaireClient.DataSource = ObjetDataSet.Tables("Affaires")
 
     End Sub
 
Private Sub ListeClient_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeClient.SelectedIndexChanged
        If ListeClient.SelectedIndex <> -1 Then
            TextBox1.Text = CType(ListeClient.SelectedValue, String)
        End If
 
        ListeAffaireClient.DisplayMember = TextBox1.Text
    End Sub

Maintenant pensez vous qu'il serait possible de mettre dans ma ListeBox ListClient deux informations : NomSociete et Numerodeclient séparer par "-". Dans mon code vous verrez j'ai essayé de faire une concaténation mais il me donnais une erreur :

Code :

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

ListeClient.DisplayMember = "NomSociete" & "Numerodeclient"

[Pol63]

dans le select :
col 1 & ' ' & col2 as alias


et dans displaymember mettre alias

[Loic4891]

dans le select :
col 1 & ' ' & col2 as alias


et dans displaymember mettre alias

Merci c'est niquel cela fonctionne